Untitled Document

<% if request.QueryString("action")="del" then dim feedbackid feedbackid=request.QueryString("id") if feedbackid="" then response.End conn.execute "delete from alasea_dingdan where fkid="&feedbackid response.redirect "viewgbook.asp" end if sub leixing() select case rs("fkleixing") case "1" response.write "信息反馈" case "2" response.write "对网站的意见" case "3" response.write "对公司的建议" case "4" response.write "具有合作意向" case "5" response.write "产品投诉" case "6" response.write "服务投诉" end select end sub %> <%'开始分页 Const MaxPerPage=10 dim totalPut dim CurrentPage dim TotalPages dim j dim sql if Not isempty(request("page")) then currentPage=Cint(request("page")) else currentPage=1 end if dim lx lx=request.QueryString("lx") set rs=server.CreateObject("adodb.recordset") if lx="" then lx=0 if lx=0 then rs.open "select * from alasea_dingdan order by fkdate desc",conn,1,1 else rs.open "select * from alasea_dingdan where fkleixing="&lx&" order by fkdate desc",conn,1,1 end if if err.number<>0 then response.write "数据库中无数据" end if if rs.eof And rs.bof then Response.Write "

对不起，暂时还没有任何反馈信息！

" else 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 showContent showpage totalput,MaxPerPage,"viewgbook.asp" else if (currentPage-1)*MaxPerPage

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　选择查看类型

<%do while not rs.eof%>

<%response.write "发表类型：" call leixing() response.write " 用户："&trim(rs("fkusername"))&" 所在地："&trim(rs("fklaizi"))&" 电话："&trim(rs("fktel"))%>

" onClick="return confirm('您确定删除吗？')">删除

<%=trim(rs("fksubject"))%>

<%=trim(rs("fkcontent"))%>
<%="发表时间："&rs("fkdate")%>

<%i=i+1 if i>=MaxPerPage then Exit Do rs.movenext loop rs.close set rs=nothing%> <% 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 "