📄 viewfk.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
response.redirect "error.asp?error=001"
response.end
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body bgcolor="#FFFFCC" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" vspace="0" hspace="0" bgcolor="#FFFFFF">
<tr bgcolor="#FFCC33">
<td height="27" bgcolor="#FFCC33" background="images/admin_bg_1.gif">.:: 您可以在这里进行用户相关操作</td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="1" bordercolor="#6699FF" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="../images/back_3.gif" rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#006600">
<tr>
<td height="27" bgcolor="#FFCC33" background="images/admin_bg_1.gif">
<div align="center"><font color="#000000">查看信息反馈</font></div>
</td>
</tr>
<tr>
<td height="169" valign="top" bgcolor="#E8F1FF">
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td>
<div align="right">选择查看类型
<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=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>
</select>
</div>
</td>
</tr>
</table>
<%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 56770_fk order by fkdate desc", conn, 1, 1
else
rs.open "select * from 56770_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 width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="89%" bgcolor="#E8F1FF" style="padding-left:8px">
<%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="11%" bgcolor="#E8F1FF">
<div align="center"><a href="delfk.asp?id=<%=rs("fkid")%>" onClick="return confirm('您确定删除吗？')">删
除</a></div>
</td>
</tr>
<tr>
<td height="41" colspan="2" bgcolor="#E8F1FF">
<div align="center">
<table width="80%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td>
<div align="center"><b><%=trim(rs("fksubject"))%></b></div>
</td>
</tr>
<tr>
<td><%=trim(rs("fkcontent"))%><br>
<div align=right><%="发表时间："&rs("fkdate")%></div>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<hr width="90%" size="1" color=#cccccc>
<%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
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -