gusucode.com > 爱美尔女性商城源码 1.0源码程序 > admintouch/viewfk.asp
<!--#include file="conn.asp"--> <%if session("bjxadmin")="" then response.Write "<script language='javascript'>alert('网络超时或您还没有登陆!');window.location.href='login.asp';</script>" response.End end if %> <html><head><title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="images/css.css" rel="stylesheet" type="text/css"> </head> <body> <%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="" or lx=0 then rs.open "select * from BJX_fk order by fkdate desc",conn,1,1 else rs.open "select * from BJX_fk 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 "<p align='center' class='contents'> 对不起,暂时还没有任何反馈信息!</p>" 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,"viewfk.asp" else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showContent showpage totalput,MaxPerPage,"viewfk.asp" else currentPage=1 showContent showpage totalput,MaxPerPage,"viewfk.asp" end if end if end if sub showContent dim i i=0 %> <%do while not rs.eof%> <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#6a7f9a"> <tr> <td colspan="4" align="right" background="images/admin_bg_1.gif"> <b><font color="#ffffff">选择查看类型</font></b> <select name="select" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" ><base target=Right> <option selected>选择信息类型</option> <option value="viewfk.asp?lx=0" >查看所有类型</option> <option value="viewfk.asp?lx=1" >简单的留言</option> <option value="viewfk.asp?lx=2" >对网站的意见</option> <option value="viewfk.asp?lx=3" >对公司的建议</option> <option value="viewfk.asp?lx=4" >具有合作意向</option> <option value="viewfk.asp?lx=5" >产品投诉</option> <option value="viewfk.asp?lx=6" >服务投诉</option> </select> </td> </tr> <tr> <td width="80%" style="padding-left:10px"> <%response.write "发表类型:<font color=red>" call leixing() response.write "</font> 用户:<a href=mailto:"&trim(rs("fkemail"))&" title=此用户访问IP地址是:"&trim(rs("fkip"))&"><font color=red>"&trim(rs("fkusername"))&"</font></a> 所在地:"&trim(rs("fklaizi"))&" 电话:"&trim(rs("fktel"))%> </td> <td width="20%" align="center"> <a href="delfk.asp?id=<%=rs("fkid")%>" onClick="return confirm('您确定删除吗?')">删 除</a></td> </tr> <tr> <td colspan="2" align="center"> <table width="80%" border="0" cellspacing="1" cellpadding="0"> <tr> <td align="center"> <b><%=trim(rs("fksubject"))%></b> </td> </tr> <tr> <td> <%=trim(rs("fkcontent"))%><br> <%="发表时间:"&rs("fkdate")%> </td> </tr> </table> </td> </tr> </table> <%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 "<form method=Post action="&filename&"?lx="&lx&">" Response.Write "<p align='center' class='contents'> " If CurrentPage<2 Then Response.Write "<font class='contents'>首页 上一页</font> " Else Response.Write "<a href="&filename&"?page=1&lx="&lx&" class='contents'>首页</a> " Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&lx="&lx&" class='contents'>上一页</a> " End If If n-currentpage<1 Then Response.Write "<font class='contents'>下一页 尾页</font>" Else Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&lx="&lx&"&class='contents'>" Response.Write "下一页</a> <a href="&filename&"?page="&n&"&lx="&lx&"&class='contents'>尾页</a>" End If Response.Write "<font class='contents'> 页次:</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> " Response.Write "<font class='contents'> 共有"&totalnumber&"条信息 " Response.Write "<font class='contents'>转到:</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="¤tpage&">" Response.Write " <input type='submit' class='contents' value='GO' name='cndok'></form>" End Function %> <!--#include file="bjxfoot.asp"--> </body> </html>