..成功留言!,系统将于秒后自动返回..." Response.Write"
" response.end end if Response.Write""
Response.Write""
Response.Write"签写留言 <%=Ccontent%>
"
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
"
%>
留言主题 :
<%=RS1("title")%>
留言时间 :
<%=Dtime%>
<%
Response.Write"
width=64 height=64>
称呼:<%=Gname%>
留言内容 :
回复:
<%
if RReply=0 then
else
Response.Write" "
Response.Write RReplyContent
end if
%>
" 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 %>