revert_more.asp

一个不错的个人商务网站的源码

<!--#include file="chk.asp" -->
<%
dim dbpath
dbpath="../"
%>
<!--#include file="../db_conn.asp"-->
<!--#include file="../comm/comm.asp"-->
<!--#include file="../comm/sub.asp"-->
<!--#include file="../comm/my_request.asp"-->
<!--begin TOP-->
<%
'说明 head(a,b,c)
'a为页标题
'b为页描述
'c为页关键字

call head(r(26)&"-会员控制面板-留言详细信息",r(27),r(28))
%><!--end TOP-->
<div align="center">
<table border="0" width="760" class="li_table" cellspacing="0">
		<tr>
		<td class="maincolor" height="26" align=center width="758" colspan="2">会 员 控 制 面 板</td>
	</tr>
	<tr>
		<td width="127" align="right" height="175" valign="top">
		<p align="left"><!--#include file="left.asp"--></td>
		<td width="629" height="175" 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="629" id="table4" cellspacing="1" class=smallfont>
						<tr>
							<td colspan="4">
							<p align="left"><font color="#FF0000">◇ 查看留言内容及回复</font></td>
						</tr>
						<tr>
							<td width="131" align="right">留言标题：</td>
							<td width="183"><%=title%></td>
							<td width="151" align="right">留言类别：</td>
							<td width="151">
<%
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="131" align="right">电子邮件地址：</td>
							<td width="183"><%=email%></td>
							<td width="151" align="right">联系电话：</td>
							<td width="151"><%=phone%></td>
						</tr>
						<tr>
							<td width="131">
							<p align="right">留言内容：</td>
							<td colspan="3" width="491"><%=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%>&nbsp;&nbsp;&nbsp; 回复时间：<%=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>
<!--begin end-->
<%call boot()%><!--end end-->