Har problem med min community. Hej! Här kommer koden för read_gb.asp . Hej igen Jesper! Mycket konstigt problem
http://213.64.229.211/wwwroot/default.asp
använd: hm pw: hm
In o kolla... Klicka på "SÖK MUPPAR", väl vem som helst...
Längst ned under fliken "- meny -" finner ni Gästbok, håll musmakören över där.. ni ser att den delar ut ett ID. Klickar ni där ska ni få fram en vit sida? Varför blire så? Nån som har en aning? Gästboken fungerar juh liksom när man klickar på "Gästbok" i menyn....
/tacksam för svarSv: Mycket konstigt problem
När jag provade kunde jag bara konstatera att det gick att läsa sin egen gästbok, så därför tror jag att du har gjort så att ingen förutom ägaren av gästboken kan läsa den. Om du publicerade koden för filen read_gb.asp skulle det bli lite enklare.
Lev väl,
Tom S. Sv: Mycket konstigt problem
------------------------------------------------------
<!-- #include file="adovbs.inc" -->
<!-- #include file = "delaText.inc" -->
<% Session.LCID = 1053 %>
<%
If Request.Querystring("tillid")="" & Session("id") Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<html>
<head>
<title></title>
<style type="text/css">
body {
scrollbar-base-color: #FFE784;
scrollbar-arrow-color: #000000;
scrollbar-highlight-color: #;
scrollbar-3dlight-color: #000000;
scrollbar-darkshadow-color: #000000;
scrollbar-track-color: #FFE1A5 }
</style>
<style type="text/css">
a:link { text-decoration: none}
a:visited { text-decoration: none}
a:active { text-decoration: none}
</style>
<script language="JavaScript1.2">
function high(which2){
theobject=which2
highlighting=setInterval("highlightit(theobject)",50)
}
function low(which2){
clearInterval(highlighting)
which2.filters.alpha.opacity=75
}
function highlightit(cur2){
if (cur2.filters.alpha.opacity<100)
cur2.filters.alpha.opacity+=5
else if (window.highlighting)
clearInterval(highlighting)
}
</script>
<SCRIPT LANGUAGE="JavaScript">
function formCheck()
{
if (document.form1.text.value == "")
{
alert("Skriv nått innan du skickar är du snäll");
return false;
}
}
</SCRIPT>
<title></title>
<script language="JavaScript1.2">
function high(which2){
theobject=which2
highlighting=setInterval("highlightit(theobject)",50)
}
function low(which2){
clearInterval(highlighting)
which2.filters.alpha.opacity=75
}
function highlightit(cur2){
if (cur2.filters.alpha.opacity<100)
cur2.filters.alpha.opacity+=5
else if (window.highlighting)
clearInterval(highlighting)
}
</script>
<SCRIPT LANGUAGE="JavaScript">
function formCheck()
{
if (document.form1.text.value == "")
{
alert("Skriv nått innan du skickar är du snäll");
return false;
}
}
</SCRIPT>
</head>
<body background="bg1.jpg" link="#333333" vlink="#333333" alink="#333333"><% Session.LCID = 1053 %>
<table width="100%" height="100%" border="0" cellspacing="4" cellpadding="2"><tr valign="top">
<td valign="top">
<% Do Until RecSet.EOF %>
<table border="0" width="100%" cellspacing="1" cellpadding="0"><tr>
<td height="10" width="100%" background="bg1ram.jpg"><font face="Arial" size="1"><b><font color="#333333">" target="front"><%=RecSet("namn")%>
">Svara ">Tabort
<%=RecSet("datum")%>
</font></b></font>
</td></tr><tr valign="top"><td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="2"><tr><td background="bg1.jpg">
<font face="Arial" size="1"><b><font color="#333333"><%=delaText(RecSet("text"))%>
</font></b></font>
</td></tr></table>
</td></tr></table><font face="Arial" size="1" color="#333333"><b><br>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</b></font>
</td><td width="165" align="right">
<form name="form1" method="post" action="write_gb.asp?tillid=<%=Request.QueryString("tillid")%>" onSubmit="return formCheck()">
<font face="Arial" size="1" color="#333333"><b>
<input type="hidden" name="bild" value="">
<textarea name="text" cols="30" rows="6" style="font-family: Arial; font-size: 10px; color: #333333; font-weight: bold"></textarea>
</b></font>
<div align="right"><font face="Arial" size="1" color="#333333"><b><input type="submit" name="Submit" value="SKICKA!" style="font-family: Arial; font-size: 8pt; color: #333333; font-weight: bold"></b></font></div>
</form><font face="Arial" size="1" color="#333333"><b><br>
</b></font>
</td>
</tr></table>
</body>
</html>
<% Else
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<% End If %>Sv: Mycket konstigt problem
<code>If Request.Querystring("tillid")="" & Session("id") Then</code>
...Efter den här raden kommer ju koden som listar gästboksinläggen. Men för att lista gästboksinläggen så måste Request.QueryString("tillid") vara likamed Session("id"). Vad innebär det? Jo, att bara den användaren som jag är inloggad som kan lista mina egna gästboksinlägg, inte andras!
Hoppas det hjälper dig att komma vidare med lösningen... :O)
Lev väl,
Tom S.