index.html title='网站首页' >网站首页 >>  zxly.asp title='在线留言'>在线留言
<% on error resume next '''''SQL检索无数据处理结束''''' '''''页面开始''''' 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 %>