leavemessage.asp
来自「非常有商业价值的软件」· ASP 代码 · 共 127 行
ASP
127 行
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<!--#include file="../my_lib/pages.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=stylesheet type=text/css>
<title>留言管理</title>
</head>
<body>
<div align="center">
<table border="1" width="760" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#EFEFEF">
<tr>
<td colspan="6">
<p align="center">信息管理</td>
</tr>
<tr>
<td width="36">ID</td>
<td width="254">标题</td>
<td width="124">
<select size="1" onchange="if (this.options[this.selectedIndex].value==3) {void(null)} else {location=this.options[this.selectedIndex].value;}" onChange="openCopartner(copartner)" name="qs" style="background-color: #F6F6F6">
<option value="3" selected>筛选类别</option>
<option value="3">-----------</option>
<option value="leavemessage.asp?flag=1">订单问题</option>
<option value="leavemessage.asp?flag=2">服务问题</option>
<option value="leavemessage.asp?flag=3">技术问题</option>
<option value="leavemessage.asp?flag=4">其他问题</option>
<option value="leavemessage.asp">全部显示</option>
</select></td>
<td width="166">添加时间</td>
<td width="146" colspan="2">操作</td>
</tr>
<%
flags=my_request("flag",1)
if flags="" then
sql="select id,title,flag,addtime,ishf from message_yqj order by addtime desc"
else
sql="select id,title,flag,addtime,ishf from message_yqj where flag="&flags&" order by addtime desc"
end if
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if (rs.eof and rs.bof) then
response.write "<tr>"
response.write "<td width=500 colspan=4><font color=#FF0000>目前还没有任何留言</font></td>"
response.write "</tr>"
else
rs.PageSize =20 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
ii=1
while not rs.eof and ii<=rs.pagesize
set id=rs("id")
set title=rs("title")
set flag=rs("flag")
set addtime=rs("addtime")
set ishf=rs("ishf")
select case flag
case 1
leibie="订单问题"
case 2
leibie="服务问题"
case 3
leibie="技术问题"
case 4
leibie="其他问题"
case else
leibie="不知道"
end select
%>
<tr>
<td width="36"><%=(page-1)*19+ii%></td>
<td width="254"><a href=revert.asp?id=<%=id%> title="查看"><%=title%></a></td>
<td width="124"><%=leibie%></td>
<td width="166"><%=addtime%></td>
<td width="73"><%if ishf=0 then
response.write "<a href=revert.asp?id="&id&"><font color=#FF0000>未回复</a></font>"
elseif ishf=1 then
response.write "<a href=revert.asp?id="&id&"><font color=#0000FF>已回复</font></a>"
else
response.write "不知道"
end if%></td>
<td width="73"><a href="ad_del_mess.asp?id=<%=id%>&page=<%=page%>">删除</a></td>
</tr>
<%
rs.movenext
ii=ii+1
wend
%>
<tr>
<td colspan="6"><%call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")%></td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?