<!--#include file="conn.asp"-->
<%if session("admin")="" 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 shop_fk order by fkdate desc",conn,1,1
	  else
	  rs.open "select * from shop_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="#FFFFFF">
<tr> 
<td colspan="4" align="right" background="../img/green.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%" bgcolor="#ffffff" style="padding-left:10px"> 
		<%response.write "发表类型：<font color=red>"
		call leixing()
		response.write "</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;用户：<a href=mailto:"&trim(rs("fkemail"))&" title=此用户访问IP地址是："&trim(rs("fkip"))&"><font color=red>"&trim(rs("fkusername"))&"</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;所在地："&trim(rs("fklaizi"))&"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;电话："&trim(rs("fktel"))%>
</td>
<td width="20%" bgcolor="#ffffff" align="center"> 
<a href="delfk.asp?id=<%=rs("fkid")%>" onClick="return confirm('您确定删除吗？')">删 除</a></td>
</tr>
<tr> 
<td colspan="2" bgcolor="#ffffff" 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="&currentpage&">"  
					Response.Write "&nbsp;<input type='submit'  class='contents' value='GO' name='cndok'></form>"  
				End Function  
				%>
<!--#include file="copyright.asp"-->
</body>
</html>