<% dim cls if session("admin")="" then Response.Redirect("index.asp?err=4") else if session("flag")<>"0" then cls = Instr(session("flag"), "feedback") if cls <= 0 then %> <% end if end if end if %>

当前位置:网站管理中心--留言信息管理 <% action=request("action") if action="" then %> <% dim rs,msg_per_page dim sql msg_per_page = 20 '定义每页显示记录条数 Set rs=Server.CreateObject("ADODB.Recordset") sql="select * from Feedback where del=false order by Postdate desc" rs.cursorlocation = 3 '使用客户端游标，可以使效率提高 rs.pagesize = msg_per_page '定义分页记录集每页显示记录数 rs.open sql,conn,1,1 if err.number<>0 then '错误处理 response.write " 数据库操作失败：" & err.description err.clear else if not (rs.eof and rs.bof) then '检测记录集是否为空 '--------------------------计算页码统计记录数----------------------------- totalrec = RS.RecordCount 'totalrec：总记录条数 if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数 n = rs.recordcount\msg_per_page 'n:总页数 else n = rs.recordcount\msg_per_page+1 end if currentpage = request("page") 'currentpage:当前页 If currentpage <> "" then currentpage = cint(currentpage) if currentpage < 1 then currentpage = 1 end if if err.number <> 0 then err.clear currentpage = 1 end if else currentpage = 1 End if if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then currentPage=1 end if rs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头 rowcount = rs.pagesize 'pagesize：设置每一页的数据记录数 '----------------------------------end --------------------------- dim i dim k Do while not rs.eof and rowcount>0 content=rs("Comments") Replay=rs("Replay") UserName=rs("UserName") gb=rs("gb") %> <% Response.write "" Response.write "" Response.write "" response.Write"" response.Write "" else if len(rs("Replay"))>20 then response.write left(Replay,20)&" ..." else Response.write Replay end if response.write "" end if response.write "" rowcount=rowcount-1 rs.movenext loop else response.write "" end if end if rs.close conn.close set rs=nothing set conn=nothing %> 姓名 电话 邮箱 留言内容 留言日期 回复内容 回复日期 处理时间 删除 "&UserName&" "&rs("Usertel")&" "&rs("UserMail")&" " if len(content)>200 then response.write left(content,200)&" ..." else Response.write content end if response.write " "&rs("Postdate")&" " if Isnull(rs("Replay")) then response.write "马上回复     "&rs("ReplayDate")&" "&Datediff("h",rs("Postdate"),rs("ReplayDate"))&"小时 无满足条件商品   <% call listPages() end if if action="删除" then delid=replace(request("id"),"'","") call delfeedback() end if if action="replay" then id=request("id") call detailfeedback() end if %>

<% sub delfeedback() if delid="" or isnull(delid) then Response.write "

操作失败，没有选择合适参数!点击返回

" else conn.execute("delete from Feedback where ID in ("&delid&")") if err.number<>0 then '错误处理 response.write "数据库操作失败：" & err.description err.clear else conn.close set conn=nothing Response.write "

留言删除成功!点击返回

" end if end if end sub sub detailfeedback() if id="" then response.write "非法留言编号" response.write "" else '修改留言资料 if request("send")="ok" then set rs=server.createobject("adodb.recordset") sql = " select * from feedback where del=false and ID="&id rs.open sql,conn,1,3 if err.number<>0 then response.write "数据库操作失败：" & err.description '错误描述 err.clear else if not (rs.eof and rs.bof) then rs("Replayer")=session("admin") rs("Replay")=request.form("Replay") rs("ReplayDate") = Now() rs.update end if end if rs.close if request("send2")="1" then response.write "-----留言已经修改、回复 正在转发给留言人指定的邮箱，请稍候!------" response.write "" response.end else response.write "-----留言已经修改、回复 !------" response.write "" response.End() end if end if '显示详细资料 set rs = server.createobject("adodb.recordset") sql = "select * from feedback where ID="&id rs.open sql,conn,1,1 if err.number<>0 then '错误处理 response.write "数据库操作失败：" & err.description '错误描述 err.clear else if not (rs.eof and rs.bof) then Comments=rs("Comments") zhuti=rs("userzhuti") ip=rs("userip") Comments=Autolink(Comments) replay=rs("Replay") if replay<>"" then replay=Autolink(replay) %> 留言编号: <%=rs("ID")%>　　　　　留言来自于网站的<%=rs("gb")%>　　留言来自于IP：<%=ip%> <%if rs("Userzhiwei")<>"" then%> <%end if%> <%if rs("Usergsmc")<>"" then%> <%end if%> <%if rs("Usertel")<>"" then%> <%end if%> <%if rs("Userfax")<>"" then%> <%end if%> <%if rs("UserMail")<>"" then%> <%end if%> <%if rs("Useraddress")<>"" then%> <%end if%> <%if rs("userzip")<>"" then%> <%end if%>

标　　题：	<%=zhuti%>
留言日期：	[<%=rs("Postdate")%>]
姓　　名：	<%=rs("UserName")%>
职　　位：	<%=rs("Userzhiwei")%>
公司名称：	<%=rs("Usergsmc")%>
电　　话：	<%=rs("Usertel")%>
传　　真：	<%=rs("Userfax")%>
邮　　件：	<%=rs("UserMail")%>
地　　址：	<%=rs("useraddress")%>
邮　　编：	<%=rs("userzip")%>
留言内容：	<%=Comments%>
回　　复：	<%if isnull(rs("Replay")) then response.write "新留言，未回复" else response.write replay%>
更新回复：
发送到客户邮箱：	是     否 (将回复的内容发送到客户指定的邮箱)
">	[返回上一页]

<% else response.write "
无此序号留言!

请检查!
" end if end if rs.close set rs=nothing end if end sub %> <% sub listPages() if n <= 1 then exit sub %> <%if currentpage = 1 then%> 首页 <%else%> ?page=1">首页 ?page=<%=currentpage-1%>"> 前页 <%end if%> <%if currentpage = n then%> 后页 <%else%> ?page=<%=currentpage+1%>">下页 ?page=<%=n%>">末页 <%end if%> 总:<%=currentpage%>/<%=n%>页  总共:<%=totalrec%>条留言 [<%=msg_per_page%>条/页] <%end sub%>