Om du har ett textfält som heter "email" som du skickar från en sida rill en annan så skriver du request("email") för att få reda på vilket värde som finns i det skickade fältet "email".
Jag vill kunna kommentera det som mina besökare skrivit i min gästbok. Tyvärr kan jag inte ASP alls egentligen utan saxar och modifierar layouten mest.
Jag har hittat en bra gästbok på nätet som jag nu skulle vilja ha kommentarsruta i.
I nuvarande form har gästboken en admin-avdelning där man kan välja bl.a. att ta bort poster genom att markera en box och sedan skicka.
Jag skulle vilja att antingen omarbeta delete-sidan eller få hjälp med att göra en sida där jag kan se vad folk har skrivit och svara på de jag vill.
Skickar med koden för delete-sidan om någon är intresserad:
<!--#include file="config.asp"-->
<%
Function FormatStr(String)
on Error resume next
String = Server.HTMLEncode(String)
String2 = Replace(String, CHR(13), "")
String2 = Replace(String, CHR(10) & CHR(10), "</P><P>")
String2 = Replace(String, CHR(10), "<br>")
FormatStr = String2
End Function
Sub Update
'objConn.Open strConn
Set objRec = Server.CreateObject ("ADODB.Recordset")
objRec.Open "Messages", objConn,1, 3, &H0002
For intLoop = 1 to Request.Form("field").Count
IDnum = Request.Form("field")(intloop)
objRec.Filter = 0
objRec.Filter = "ID='" & IDnum & "'"
objRec.Delete
Next
End Sub
Sub Show
NumPerPage=INT(objRec2("NumPerPage"))
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
Set objRec = Server.CreateObject ("ADODB.Recordset")
StrSql = "SELECT * FROM Messages ORDER BY ID DESC;"
objRec.PageSize = NumPerPage
objRec.CacheSize = NumPerPage
objRec.Open StrSql,objConn,3,1,&H0001
iPages = objRec.PageCount
TotalRows = objRec.RecordCount
If iPageCurrent > iPages Then iPageCurrent = iPages
If iPageCurrent < 1 Then iPageCurrent = 1
If iPages = 0 Then
Response.Write "Inga poster funna!<p>"
Else
ObjRec.AbsolutePage = iPageCurrent
%>
<html>
<head>
<title>Black 'n' Tan</title>
</head>
<body bgcolor="#000000">
<font face="garamond" color="#99ccff" size="3"><center><b>Radera poster</b></center><p align=left>Det finns <b><%=TotalRows%></b> poster på <b><%=iPages%></b> sidor</font></p>
<%
iRecordsShown = 0
Do While iRecordsShown < NumPerPage And Not objRec.EOF
Rating = ObjRec("Rating")
If IsNull(Rating) or Rating="0" then
Rating = "nr"
Else
Rating = ObjRec("Rating")
End If
Email = FormatStr(ObjRec("Email"))
Name = FormatStr(ObjRec("Name"))
%>
<table width="500" border="0" cellpadding="1" cellspacing="0"><tr><td bgcolor="#000000" width="261">
<font face="garamond" color="#99ccff" size="3"><input type="checkbox" name="field" value="<%=objRec("ID")%>"> <%=ObjRec("DateID") %></font>
</td>
<td bgcolor="#000000" width="138">
<font face="garamond" color="#99ccff" size="3"><i>IP:<%= ObjRec("IP") %> </i></font></td>
<td bgcolor="#000000" width="139" align="right">
<p><font face="garamond" color="#99ccff" size="3"><b>Rating: </b></font><img src="../images/star<%= Rating %>.gif" height="14" width="65"></p>
</td>
</tr>
<tr><td colspan=3 bgcolor="#000044" width="546"><font face="garamond" color="#99ccff" size="3">
<%
If IsEmpty(Email) or Email=" " then
Response.Write "<strong>" & Name & " säger:</strong>"
Else
Response.Write "<strong>" & Name & " <a href=""mailto:" & Email & """><img src=../images/mail.gif border=0></a> säger:</strong>"
End If
%>
<br>
<%=FormatStr(ObjRec("Message"))%>
<br><br>
<%
If Len(ObjRec("URL")) > 1 Then
Hemsa = ObjRec("URL")
If left(Hemsa,4) <> "http" then
Hemsa = "http://" & Hemsa
End If
Response.Write "<font face=garamond color=#99ccff size=3><strong>Hemsida: <a href=" & Hemsa & " target=_blank>" & ObjRec("URL") & "</a></strong><br><br>"
End If
%>
<%
If Len(ObjRec("Svar")) > 1 then
Response.Write "<font face=garamond color=#0000ff size=3><strong>Svar: </strong><font color=#99ccff>" & ObjRec("Svar") & "<br><br>"
End If
%>
</font>
<center>
<textarea name="Svar" rows=3 cols=57 wrap="virtual"><%= Request.Form("Svar") %></textarea>
</center>
</td></tr>
</table>
<%
iRecordsShown = iRecordsShown + 1
objRec.MoveNext
Loop
if iPages > 1 then
%>
<p align=center><font face="garamond" color="#99ccff" size="3"><b>Pages: </b>
<%
For I = 1 To iPages
If I = iPageCurrent Then
Response.Write "<b>" & I & "</b> "
Else
Response.Write "<a href=delete.asp?page=" & I & ">" & I & "</a> "
End If
Next
Response.Write "</font>"
Else
Response.Write " "
End If
End If
objRec.Close
Set objRec = Nothing
%>
<br><br>
<input type="submit" value="Radera markerade poster" name="Submit" style="font-family: Garamond; font-size: 12pt; color: #000044"></p></form>
<%
End Sub
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open StrConn
Set objRec2 = Server.CreateObject ("ADODB.Recordset")
ConfigSql = "SELECT * FROM Admin;"
objRec2.Open ConfigSql,objConn,0,1,&H0001
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<center><table border="0" width="500" cellpadding="0"><tr><td align=center><form method="POST" action="delete.asp?mode=delete">
<%
select case Request.QueryString("mode")
case "delete"
Call Update
case "show"
Call Show
case Else
Call Show
End Select
objRec2.Close
Set objRec2 = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "</p><font face=""garamond"" size=""-2"" color=""#000000"">Developed by: <a href=""http://www.aspjar.com"">ASPJar.com</a></font></td></tr></table></center>"
%>
</table>
</font>
</body>
262 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
