<% if session("sysop")<>True then response.redirect "adminpass.asp" end if %> <% response.buffer=true Response.Expires=0 keys=Request("keys") if keys="DeleteID" then delete_user_list end if %> <% sub delete_user_list() 'chk_admin_password UserID=Request.Form("UserID") Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("data/feedback.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") currentPage=Session("currentPage") sql="DELETE * from feedbackinfo where ID="+UserID rs.open sql,conn,3,2 response.write "" & Chr(13) End sub %> 查看反馈信息 <% const MaxPerPage=5 dim totalPut dim CurrentPage dim TotalPages dim i,j dim typename typename="messages" if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if %>
查看、管理反馈信息   请选择显示信息类型
<% if Request("lx")<>"" then session("lx")=request("lx") end if if Session("lx")="" then Session("lx")="all" end if %>
反馈信息类型:<% select case Session("lx") case "A1" Response.Write "简单的留言 " case "A2" Response.Write "对网站的意见 " case "A3" Response.Write "给公司的建议 " case "A4" Response.Write "购买及合作意向 " case "A5" Response.Write "产品投诉 " case "A6" Response.Write "服务投诉 " case "all" response.write "所有类型" End select %>
<% if Request.QueryString("searchname")<>null or Request.QueryString("searchname")<>"" then searchname=Request.QueryString("searchname") end if '----------------------------------------------------------------------------------------- 'response.write lx 'response.write searchname sql="SELECT * FROM feedbackinfo " if searchname<>"" then if searchname<>"reset" then sql=sql & " where title LIKE " sql=sql & "'%" sql=sql & searchname sql=sql & "%'" sql=sql & " or " sql=sql & " name LIKE " sql=sql & "'%" sql=sql & searchname sql=sql & "%'" sql=sql & " or " sql=sql & " comment LIKE " sql=sql & "'%" sql=sql & searchname sql=sql & "%'" else searchname=null end if if Session("lx")="all" then sql = sql & "order by ID DESC" else sql = sql & "where leixing=" & Session("lx") &" order by ID DESC" end if else if Session("lx")="all" then sql = sql & "order by ID DESC" else sql = sql & "where leixing='" & session("lx") &"' order by ID DESC" end if end if 'Response.Write sql '---------------------------------------------------------------------------------- %> <% dim sql dim rs Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

还 没 有 任 何 相 关 信 息

" else totalPut=rs.recordcount totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showpage totalput,MaxPerPage,"view.asp" showContent showpage totalput,MaxPerPage,"view.asp" else if (currentPage-1)*MaxPerPage <% if searchname<>null or searchname<>"" then Response.write("搜索关键字" & searchname & "的结果如下:") end if %>
<% do while not rs.eof %> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>
编号 主题[点击主题查看详细信息] 类型 留言者 电子邮件 日期

<%=rs("ID")%>

','InfoDetail','toolbar=no,scrollbars=yes,resizable=yes,top=0,left=0,width=460 height=360');"><%=rs("title")%>

<% select case rs("leixing") case "A1" Response.Write "简单的留言 " case "A2" Response.Write "对网站的意见 " case "A3" Response.Write "给公司的建议 " case "A4" Response.Write "购买及合作意向 " case "A5" Response.Write "产品投诉 " case "A6" Response.Write "服务投诉 " End select %> <%=rs("name")%>

<%=rs("email")%>

<%=rs("mess_date")%>  <%=rs("mess_time")%>

  信息内容:

<% =rs("comment") %>

">
<% end sub function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "
" response.write "

 " if CurrentPage<2 then response.write "首页 上一页 " else response.write "首页 " response.write "上一页 " end if if n-currentpage<1 then response.write "下一页 尾页" else response.write "下一页 尾页" end if response.write " 页次:"&CurrentPage&"/"&n&" " response.write " 共"&totalnumber&"条信息 "&maxperpage&"篇/页

" response.write "转到:" response.write "搜索:" response.write "
" end function %>
无锡市万利源科技服务有限公司
Email
wuxi@veryyear.com