| |
| 网友评论 |
|
| ·热门主题：当你可以近距离看到华仔..........立即评论 |
|
<%
if request.form("Submit")="发表" then
name1=server.HTMLEncode(request("name"))
text=server.HTMLEncode(request("text"))
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from ping where content='"& text &"'",conn,1,3
if rs.eof then
rs.addnew
rs("content")=text
rs("name")=name1
rs("time1")=now
rs("IP")=request.servervariables("remote_addr")
rs.update
end if
end if
set rs=nothing
%>
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from ping order by time1 desc" ,conn,1,1
while not rs1.eof
%>
| <%=server.HTMLEncode(rs1("name"))%> 发表评论: <%= rs1("time1")%>
|
|
<%=server.HTMLEncode(rs1("content"))%>
|
|
<% rs1.movenext
wend
set rs1=nothing
set conn=nothing%>
|
