<% on error resume next '''''SQL检索无数据处理结束''''' '''''页面开始''''' Dim Action,Guestname,Title,Content,Face,Addr,Datetime Action=request.querystring("Action") if Action="Add" then GuestName=trim(request.form("GuestName")) Title=request.form("Title") Content=request.form("Content") Addr=request.servervariables("remote_addr") Datetime=now() Face=request.form("face") if Face="" then Face="face1.gif" end if Response.Write "
" if Guestname="" then Response.Write("") Response.End elseif Title="" then Response.Write("") Response.End elseif Content="" then Response.Write("") Response.End end if code=request.form("code") if code="" then response.write("") response.end elseif session("code")<>code then response.write("") response.end end if '''打开数据库链接''' set rs = server.createobject("ADODB.recordset") asql="select * from GuestBook order by ID desc" rs.cursortype = 3 rs.open asql,OpenCn,1,3 rs.addnew rs.open asql,Cn rs("GuestName")=GuestName rs("Title")=Title rs("Content")=Content rs("Addr")=Addr rs("Datetime")=Datetime rs("Face")=Face rs("Reply")=0 rs.update Response.Write"

..成功留言!,系统将于秒后自动返回..." Response.Write"

" response.end end if Response.Write"

" Response.Write"" Response.Write"签写留言
" Response.Write"
" dim ipage ipage=request.querystring("ipage") if ipage="" then ipage=1 end if set OpenCn= NewOpenConn.OpenConn 'set cn = server.createobject("ADODB.connection") set rs1 = server.createobject("ADODB.recordset") 'cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("../data/xk.mdb")&";Persist Security Info=False" Bsql="select * from GuestBook order by id desc" rs1.cursortype = 3 rs1.pagesize=3 rs1.open bsql,OpenCn rs1.absolutepage=cint(ipage) rowcount=0 while not rs1.eof and rowcount" Response.Write"
" %>

 留言主题 :  <%=RS1("title")%> 留言时间 : <%=Dtime%> 
width=64 height=64>
称呼:<%=Gname%>
 留言内容 : 

 <%=Ccontent%>

 
回复: <% if RReply=0 then else Response.Write" " Response.Write RReplyContent end if %>
<% Response.Write"

" rowcount=rowcount+1 rs1.movenext wend Response.Write"共" Response.Write PageCount Response.Write"页" Response.Write"当前页次" Response.Write ipage Response.Write"/" Response.Write pagecount Response.Write"分页" for i=1 to pagecount if i=cint(ipage) then Response.Write"[" Response.Write i Response.Write"]" else Response.Write"[" Response.Write i Response.Write"]" end if next %>