📄 revert_more.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim key,toppath,dbpath
key="a2"
toppath=""
dbpath=""
%>
<!--#include file="chk.asp" -->
<!--#include file="db_conn.asp"-->
<!--#include file="my_lib/my_request.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">
<%
id=my_request("id",1)
page=my_request("page",1)
sql="select title,email,phone,content,flag from message_yqj where id="&id&" order by addtime desc"
set rs=conn.execute (sql)
title=rs("title")
email=rs("email")
phone=rs("phone")
content=rs("content")
flag=rs("flag")
rs.close
set rs=nothing
%>
<table border="0" width="100%" id="table4" cellspacing="1" class=smallfont>
<tr>
<td colspan="4">
<p align="center">查看留言内容及回复</td>
</tr>
<tr>
<td width="21%" align="right">留言标题：</td>
<td width="29%"><%=title%></td>
<td width="24%" align="right">留言类别：</td>
<td width="24%">
<%
select case flag
case 1
response.write "订单问题"
case 2
response.write "服务问题"
case 3
response.write "技术问题"
case 4
response.write "其他问题"
case else
response.write "其他问题"
end select
%></td>
</tr>
<tr>
<td width="21%" align="right">电子邮件地址：</td>
<td width="29%"><%=email%></td>
<td width="24%" align="right">联系电话：</td>
<td width="24%"><%=phone%></td>
</tr>
<tr>
<td colspan="4">
留言内容：<%=content%></td>
</tr>
<tr>
<td colspan="4">
<p align="center"><input name=Submit3 type=button onclick="window.location='revert.asp?page=<%=page%>'" value=返回留言列表 onFocus="this.blur()"></td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select lid,revert_man,content,addtime from revert where lid="&id
rs.open sql,conn,1,1
if (rs.eof and rs.bof) then
response.write "<tr><td colspan=4><span class=12px><font color=#FF0000>此留言正在处理中......</font></span></td></tr>"
else
do while not rs.eof
revert_man=rs("revert_man")
contents=rs("content")
addtime=rs("addtime")
%>
<tr>
<td colspan="4">回复：<font color=#FF0000><%=contents%></font></td>
</tr>
<tr>
<td colspan="4">
<p align="right">回复人：<%=revert_man%> 回复时间：<%=addtime%></td>
</tr>
<tr>
<td colspan="4"><hr size="1"></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="end.asp" -->
</body>
</html>
<%
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -