天天棋牌

<%on error resume next '''''SQL检索无数据处理结束''''''''''页面开始'''''Dim Action,Guestname,Title,Content,Face,Addr,DatetimeAction=request.querystring("Action")if Action="Add" thenGuestName=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="" thenFace="face1.gif"end ifResponse.Write "
"if Guestname="" thenResponse.Write("")Response.Endelseif Title="" thenResponse.Write("")Response.Endelseif Content="" thenResponse.Write("")Response.Endend ifcode=request.form("code")if code="" thenresponse.write("")response.endelseif session("code")<>code thenresponse.write("")response.endend if'''打开数据库链接'''set rs = server.createobject("ADODB.recordset")asql="select * from GuestBook order by ID desc"rs.cursortype = 3rs.open asql,OpenCn,1,3rs.addnewrs.open asql,Cnrs("GuestName")=GuestNamers("Title")=Titlers("Content")=Contentrs("Addr")=Addrrs("Datetime")=Datetimers("Face")=Facers("Reply")=0rs.updateResponse.Write"

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

"response.endend ifResponse.Write"

"Response.Write""Response.Write"签写留言
"Response.Write"
"dim ipageipage=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 = 3rs1.pagesize=3rs1.open bsql,OpenCnrs1.absolutepage=cint(ipage)rowcount=0while not rs1.eof and rowcount"Response.Write"
"%>

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

 <%=Ccontent%>

 
回复: <% if RReply=0 thenelseResponse.Write" "Response.Write RReplyContentend if %>
<%Response.Write"

"rowcount=rowcount+1rs1.movenextwendResponse.Write"共"Response.Write PageCountResponse.Write"页"Response.Write"当前页次"Response.Write ipageResponse.Write"/"Response.Write pagecountResponse.Write"分页" for i=1 to pagecount if i=cint(ipage) thenResponse.Write"["Response.Write iResponse.Write"]" else Response.Write"["Response.Write iResponse.Write"]" end if next %>