📄 revert.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim key,toppath,dbpath
toppath=""
dbpath=""
%>
<!--#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="css/main.css" rel="stylesheet" type="text/css">
<title>会员控制面版-留言跟踪处理</title>
</head>
<body topmargin="1">
<!--#include file="top.asp" -->
<div align="center">
<table border="1" width="760" id="table1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#F47E36">
<tr>
<td valign="top">
<table border="0" width="100%" id="table2" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#FFEEDD" colspan="2" style="border-top: 3px solid #F47E36">
<p align="center">『会员控制中心』</td>
</tr>
<tr>
<td width="23%" valign="top" bgcolor="#EEF7FF">
<table border="0" width="100%" id="table3" cellspacing="1">
<tr>
<td bgcolor="#EEF7FF" height="18" class=smallfont><font color=#CC0000><%=session("chk_name")%></font>,您好 状态：已登录</td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="UserModiInfo.asp">修改用户资料</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="UserModiPass.asp">修改用户密码</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="MessageBack.asp">留言反馈</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="revert.asp">留言跟踪处理</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="MyFavorite.asp">我的收藏夹</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="MyHisoryCart.asp">查询历史订单</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a target="_blank" href="my_cart_list.asp">我的购物车</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="loginout.asp">退出登录</a></td>
</tr>
</table>
</td>
<td width="77%" valign="top">
<table border="0" width="100%" id="table4" cellspacing="1" class=smallfont>
<tr>
<td colspan="5">
<p align="center">问题跟踪回复</td>
</tr>
<tr>
<td width="8%">ID</td>
<td width="39%">标题</td>
<td width="27%">留言时间</td>
<td width="24%" colspan="2">操作</td>
</tr>
<%
userid=(session("chk_id"))
set rs=server.CreateObject("adodb.recordset")
sql="select id,title,addtime,ishf from message_yqj where userid='"&userid&"'"
rs.open sql,conn,1,1
if (rs.eof and rs.bof) then
response.write "<tr>"
response.write "<td><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 addtime=rs("addtime")
set ishf=rs("ishf")
%>
<tr>
<td width="8%"><%=(page-1)*19+ii%></td>
<td width="39%"><a href=revert_more.asp?id=<%=id%>&page=<%=page%>><%=title%></a></a></td>
<td width="27%"><%=addtime%></td>
<td width="12%">
<%
if ishf=0 then
response.write "处理中..."
elseif ishf=1 then
response.write "<font color=#FF0000><a href=revert_more.asp?id="&id&"&page="&page&">查看回复</a></font>"
else
response.write "错误状态"
end if
%></td>
<td width="12%">
<a href="SaveUserInfo.asp?action=delmessage&page=<%=page%>&id=<%=id%>">删除</a></td>
</tr>
<%
rs.movenext
ii=ii+1
wend%>
<tr>
<td colspan="5"><%call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")%></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="end.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -