read.asp

asp+flash宾客留言系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp" -->
<%
id=request("id")

set rs=server.CreateObject("adodb.recordset")
sql="select * from gbook where id="&id&" or g_id = "&id&" order by g_id,g_time desc"
rs.open sql,conn,1,1
if not rs.eof then
while not rs.eof
g_title = rs("g_title")
g_name = rs("g_name")
g_email = rs("g_email")
g_face = rs("g_face")
g_homepage = rs("g_homepage")
g_content = rs("g_content")
g_time = rs("g_time")
g_qq = rs("g_qq")
g_bl = rs("g_bl")
g_rtime = rs("g_rtime")
g_rhit = rs("g_rhit")
out =out&"<info id='"&rs("id")&"' g_title='"&g_title&"' g_name='"&g_name&"' g_email='"&g_email&"' g_face='"&g_face&"' g_homepage='"&g_homepage&"' g_content='"&g_content&"' g_time='"&g_time&"' g_qq='"&g_qq&"' g_bl='"&g_bl&"' g_rtime='"&g_rtime&"' g_rhit='"&g_rhit&"'/>"
rs.movenext
wend
conn.Execute("Update gbook set g_hit=g_hit+1 where id="&id)
end if
rs.close
set rs=nothing
Response.Write "<?xml version='1.0' encoding='utf-8'?>"
Response.Write "<gbook>" &out&"</gbook>"
%>
<!-- 这一页也可以直接运行，只要在URL后面加上?id=数字，就能检查到数据是否正确 -->