📄 leavemessage.asp

📁 购物系统时尚版.强大的后台文章编辑器的功能
💻 ASP
字号:
<!--#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>
<!--#include file="TopManu.asp"-->
<br>
<div align="center">
<table border="0" width="100%" id="table1" cellspacing="0" style="border-collapse: collapse" cellpadding="0">
	<tr>
		<td background="image/admintoptdbg.gif">
		<p align="left">
		<img border="0" src="image/title_arrow.bmp" width="17" height="27" align="absmiddle"><font color="#808080"><b>留言信息管理</b></font></td>
	</tr>
</table>
	<table border="1" width="100%" id="table1" style="border:1px solid #CCCCCC; border-collapse: collapse; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" bordercolor="#EFEFEF" cellspacing="0" cellpadding="4">
		<tr>
			<td width="36" bgcolor="#CCCCCC"><b>ID</b></td>
			<td width="254" bgcolor="#CCCCCC"><b>标题</b></td>
			<td width="124" bgcolor="#CCCCCC">		
			<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; font-weight:700">
                <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" bgcolor="#CCCCCC"><b>添加时间</b></td>
			<td width="146" colspan="2" bgcolor="#CCCCCC"><b>操作</b></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>
<div align="center">
<table border="0" width="100%" id="table3" cellpadding="4" style="border-collapse: collapse">
	<tr>
		<td align=right><input TYPE="button" VALUE="刷新本页" ONCLICK="location.reload()"> </td>
	</tr>
</table>

</div>

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -