..成功留言!,系统将于秒后自动返回..." 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=15
rs1.open bsql,OpenCn
rs1.absolutepage=cint(ipage)
rowcount=0
''''日期开始++
if ipage=1 then
i=0
else
i=(ipage-1)*15
end if
''''日期开始++
while not rs1.eof and rowcount
"
''''日期开始++
rq=date()
if i=1 then
preday=DateAdd("d",-i+1,rq)
else
preday=DateAdd("d",-i,rq)
end if
''''日期开始++
''''Time star
hour1=hour(now())-1
if hour1<0 then
hour1=24
else
hour1=hour1
end if
'''Time End
%>
<%
Response.Write"
<%if i=1 then%>
border=0> 姓名:<%=left(Gname,1)%>****
电话:<%=left(rs1("Contact"),7)%>****发表于:<%=preday%> <%=hour1%>:<%=minute(Dtime)%>:<%=second(Dtime)%>
<%else%>
发表于:<%=preday%> <%=hour(Dtime)%>:<%=minute(Dtime)%>:<%=second(Dtime)%>
<%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 %>