9 svar · 191 visningar · startad av graf
Hej!
Har en gästbok, om jag vill att när namnet Graf skrivs så kommer en speciell signatur under mina inlägg, hur gör jag då? Vill helst inte ha nåt med en databas och göra.
Du har väl en databas där du lagrar inläggen?
I din loop där du presenterar inlägg så får du lägga till en signatur beroende på vem som gjort inlägget. Det är enklare att beskriva hur du skall göra om du visar den kod som du har för att visa inlägg.
------------------
essentitia preter non sans multiplicandum
<!-- #include file="adovbs.inc" -->
<HEAD>
<SCRIPT LANGUAGE="JavaScript">
<!-- DRT
function doscriptwin(path) {
window.open(path, "_blank", "scrollbars,width=820,height=550,resizable=yes,left=150,top=80");
}
// DRT-->
</SCRIPT>
</HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
a:link { text-decoration: none; color: #000000}
a:visited { text-decoration: none; color: #000000}
a:active { text-decoration: none; color: #330000}
BODY {
scrollbar-face-color: #FFFFFF;
scrollbar-shadow-color: #CCCCCC;
scrollbar-highlight-color: #CCCCCC;
scrollbar-3dlight-color: #CCCCCC;
scrollbar-darkshadow-color: #CCCCCC;
scrollbar-track-color: #FFFFFF;
scrollbar-arrow-color: #CCCCCC;
}
-->
</style>
<%
IF Request.QueryString("DO") = "SKICKA" THEN
'###### LITE KONTROLLER ######
IF Trim(Request.Form("namn")) = "" THEN
Session("fel")= "Du måste fylla i NAMN"
ElseIF Trim(Request.Form("kommentar")) = "" THEN
Session("fel")= "Du måste fylla i en KOMMENTAR"
END IF
IF Session("fel") <> "" Then
Response.Redirect "gb.asp?DO=SKRIV"
END IF
'##### SLUT KONTROLLERAT #####
'####### FIXAR SMILEYS OCH ANNAT ######
text = Request.Form("kommentar")
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
namn = server.HTMLEncode(Request.Form("namn")) 'Så slipper man jobbigt folk!
epost = server.HTMLEncode(Request.Form("epost")) 'Så slipper man jobbigt folk!
hemsida = server.HTMLEncode(Request.Form("hemsida")) 'Så slipper man jobbigt folk!
'################ SLUT ################
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb97.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.ADDNEW
RecSet("NAMN") = namn
RecSet("EPOST") = epost
RecSet("HEMSIDA") = hemsida
RecSet("KOMMENTAR") = text
RecSet("IP") = Request.ServerVariables("REMOTE_ADDR")
RecSet("DATUM") = NOW()
RecSet.UPDATE
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Response.Redirect "gb.asp"
END IF
%>
<html>
<head>
<title>graf</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="6" color="#000000"><b>
<% IF Request.QueryString("DO") <> "READ" THEN %>
</b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><br>
<b></b><br>
<br>
<br>
<a href=javaScript:window.self.close()><IMG SRC="stang_fonster.gif" border="0"></a><br>
<br>
</p>
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>
<%
IF Session("fel") <> "" THEN
Response.Write Session("fel")
Session("fel") = ""
End IF
%>
</b> </font> </div>
<form name="form1" method="post" action="gb.asp?DO=SKICKA">
<div align="left">
<table width="400" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="143"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="namn" size="25" maxlength="50">
</font></td>
<td width="249"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">namn<font color="#993300"></font></font></td>
</tr>
</tr>
<tr>
<td width="143"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="hemsida" size="25" value="" maxlength="50">
</font></td>
<td width="249"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">Hemsida</font></td>
</tr>
<tr>
<td colspan="2"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<textarea name="kommentar" rows="5" cols="40"></textarea>
</font><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">text<font color="#993300"></font></font></td>
</tr>
<tr>
<td width="143"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<input type="submit" name="Submit" value="Spara" alt="Posta ditt inlägg" border = "0">
</font></td>
<td width="249"> </td>
</tr>
</table>
</div>
</form>
<p align="center">
<% END IF %>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<% IF Request.QueryString("DO") = "READ" THEN
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb97.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
'#### Räknar ut antal sidor ####
COUNT = 0
DO UNTIL RecSet.EOF
COUNT = COUNT +1
RecSet.MOVENEXT
LOOP
IF int(COUNT/5) = COUNT/5 THEN
antal_sidor = COUNT/5
ELSE
antal_sidor = int(COUNT/5)+1
END IF
RecSet.Close
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
'##### SLUT PÅ RÄKNANDET #####
%>
</font></p>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><br>
Antal sidor:
<% FOR X=1 TO antal_sidor %>
<a href="gb.asp?DO=READ&skipp=<%=(X-1)%>"><%=X%></a>
<% NEXT %>
<%
IF Request.QueryString("skipp") = "" THEN
skipp = 0
ELSE
skipp = Request.QueryString("skipp")
END IF
'### Hoppar fram till rätt inlägg ###
FOR X=1 TO skipp
FOR Y=1 TO 9
RecSet.MOVENEXT
NEXT
NEXT
'#### KLAR ####
Z=0
DO UNTIL RecSet.EOF OR Z=10
Z=Z+1
%>
<br>
<br>
</font>
<table width="400" border="0" cellspacing="0" cellpadding="1">
<tr>
<td bgcolor="#F5F5F5">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="<%=strColor%>">Skrivet
av:<font color="#993300"> <%=RecSet("NAMN")%> </font> den: <%session.lcid=1053%>
<%=dateadd("h",6,cdate(RecSet("DATUM")))%>
</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<b><%=RecSet("HEMSIDA")%></B><p><%=RecSet("KOMMENTAR")%> <br>
<br>
</font>
<hr width="100%" size="1" align="center">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<%
IF RecSet("HEMSIDA") = "" OR RecSet("HEMSIDA") = "http://" THEN
Response.Write "Ingen hemsida"
ELSE
%>
\<% END IF %\>
\<%
IF RecSet("EPOST") = "" THEN
Response.Write ""
ELSE
%>
\<% END IF %\>
\</font\>\</td\>
\</tr\>
\</table\>
\</td\>
\</tr\>
</table>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<%
RecSet.MOVENEXT
LOOP
RecSet.Close
Connect.CLose
%><%End If%>
</font></div>
</body>
</html>
Det är den här biten du måste ändra
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="<%=strColor%>">Skrivet
av:<font color="#993300"> <%=RecSet("NAMN")%> </font> den: <%session.lcid=1053%>
<%=dateadd("h",6,cdate(RecSet("DATUM")))%>
till
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="<%=strColor%>">Skrivet
av:<font color="#993300"> <%
[b]namn = Recset("NAMN")
response.write namn
if namn = "graf" then %>
skriv din signatur här
<%end if[/b] %> </font> den: <%session.lcid=1053%>
<%=dateadd("h",6,cdate(RecSet("DATUM")))%>
Du får fixa till din HTML så att det blir som du vill ha.
------------------
essentitia preter non sans multiplicandum
Perfekt, tack!
Men om jag vill att en till användare ska ha en signatur, så om t ex användaren danne vill ha signatur: "Hejsan" vad lägger jag till då i koden?
Tack så mkt!
Du kan fylla på med elseif för varje ny signatur
if namn = "graf" then %>
skriv din signatur här
<%elseif namn = "danne" then %>
skriv dannes signatur här
<%elseif namn = "kurt" then %>
skriv kurts signatur här
<%end if %>
Är det inte lika bra att lägga ner signaturen i databasen på en gång?
------------------
essentitia preter non sans multiplicandum
Schyst! Tack!
Kan typ inget om databashantering, så jag tror inte jag klarar det faktiskt...
Har en till fråga till vem som helst här ;-)
Såhär ser scriptet ut för en signatur:
<%
namn = Recset("NAMN")
response.write namn
if namn = "Webmaster" then %>
<p></B>Signaturen
<%elseif namn = "Graf" then %>
SIGNATUREN
<%end if %>
Men där det står Webmaster & Graf, om jag vill göra så att de blir länkaktiva, så att signaturen blir Graf + vad jag har som signatur, och om man klickar på Graf så kommer man till en annan sida, hur gör man då? Tack på förhand!
<%
namn = Recset("NAMN")
if namn = "Webmaster" then
response.write "<a href='somepage.asp'>" & _
namn & "</a>" %>
<p></B>Signaturen
<%elseif namn = "Graf" then
response.write "<a href='someotherpage.asp'>" & _
namn & "</a>" %>
SIGNATUREN
<%else
response.write name
end if %>
------------------
essentitia preter non sans multiplicandum
Vafan Lars!!
Hur kan du allt? Du är ju onormal ;-)
Hehe tack så jätte mycket än en gång!