客户留言

<% 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=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" Response.Write"
" ''''日期开始++ 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 %>

<%if i=1 then%> <%else%> <%end if%>
 
border=0>
姓名:<%=left(Gname,1)%>****
电话:<%=left(rs1("Contact"),7)%>****
 
发表于:<%=preday%> <%=hour1%>:<%=minute(Dtime)%>:<%=second(Dtime)%>发表于:<%=preday%> <%=hour(Dtime)%>:<%=minute(Dtime)%>:<%=second(Dtime)%>
<%=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 %>