⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 revert.asp

📁 一个不错的个人商务网站的源码
💻 ASP
字号:
<%dim nowplace
nowplace="guestbook"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/pages.asp"-->
<!--#include file="../comm/my_lib.asp"-->
<%
page=my_request("page",1)
id=my_request("id",1)
sql="select * from message_yqj where id="&id
set rs=conn.execute (sql)
userid=rs("userid")
title=rs("title")
flag=rs("flag")
email=rs("email")
phone=rs("phone")
content=rs("content")
addtime=rs("addtime")
ip=rs("ip")
ishf=rs("ishf")
rs.close
set rs=nothing
select case flag
case 1
leibie="订单问题"
case 2
leibie="服务问题"
case 3
leibie="技术问题"
case 4
leibie="其他问题"
case else
leibie="不知道"
end select

sql="select txt_login_name from user_info_list where id="&userid
set rs=conn.execute (sql)
txt_login_name=rs("txt_login_name")
rs.close
set rs=nothing
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=AdminStyle.css rel=stylesheet type=text/css>
<title>留言回复</title>
</head>

<body>
<div align="center">
	<table border="1" width="100%" id="table1" cellspacing="0" bordercolor="#EFEFEF" style="border:1px solid #183789; border-collapse: collapse; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" cellpadding="4">
		<tr>
			<td colspan="2" height="25" background="Image/admin_bg_1.gif">
			<font color="#FFFFFF">
		<b>留言回复</b></font></td>
		</tr>
		<tr>
			<td colspan="2" height="18">
			<p align="center">留言标题:<%=title%></td>
		</tr>
		<tr>
			<td width="172" align="right" height="18">留言人:</td>
			<td width="578" height="18"><a href=memeber_info.asp?id=<%=id%>><%=txt_login_name%></a></td>
		</tr>
		<tr>
			<td width="172" align="right" height="18">留言类别:</td>
			<td width="578" height="18"><%=leibie%></td>
		</tr>
		<tr>
			<td width="172" align="right" height="18">电子邮件地址:</td>
			<td width="578" height="18"><%=email%></td>
		</tr>
		<tr>
			<td width="172" align="right" height="18">联系电话:</td>
			<td width="578" height="18"><%=phone%></td>
		</tr>
		<tr>
			<td width="172" align="right" height="18">加入时间:</td>
			<td width="578" height="18"><%=addtime%></td>
		</tr>
		<tr>
			<td width="172" align="right" height="18">IP地址:</td>
			<td width="578" height="18"><%=ip%></td>
		</tr>
		<tr>
			<td width="172" align="right" height="18">是否回复:</td>
			<td width="578" height="18"><%if ishf=0 then
			response.write "未回复"
			elseif ishf=1 then
			response.write "已回复"
			else
			response.write "不知道"
			end if%></td>
		</tr>
		<tr>
			<td width="172" align="right" height="18">内容:</td>
			<td width="578" height="18"><%=content%></td>
		</tr>
		<tr>
			<td colspan="2" height="18"><font color=#0000FF>【已经回复的留言】</font></td>
		</tr>
		<tr>
			<td colspan="2" height="18">
			<table border="0" width="100%" id="table2" cellspacing="0" cellpadding="0">
			<%
			  sql="select * from revert where lid="&id&" order by addtime desc"
			  set rs=conn.execute (sql)
			  if rs.eof then
			  response.write "<tr><td><font color=#FF0000>暂时还没有任何回复</font></td></tr>"
			  else
			  i=1
			  do while not rs.eof%>
				<tr>
					<td height="36" width="4%" rowspan="2" bgcolor="#CCCCCC"><p align="center"><font color=#ffffff><%=i%></font></p></td>
					<td height="18" width="24%">回复人:<%=rs("revert_man")%></td>
					<td height="18" width="71%">回复时间:<%=rs("addtime")%></td>
				</tr>
				<tr>
					<td height="18" colspan="2"><font color=#FF0000>回复内容:<%=rs("content")%></font></td>
				</tr>
				<tr>
					<td height="18" colspan="3"><hr size="1"></td>
				</tr>
				<%
				rs.movenext
				i=i+1
				loop
				end if
				rs.close
				set rs=nothing
				conn.close
				set conn=nothing%>
				</table>
			</td>
		</tr>
		<tr>
			<td colspan="2" height="18">
			<form action="save_revert.asp" method=post>
			<table border="0" width="100%" id="table3" cellpadding="2" bordercolor="#CCCCCC">
				<tr>
					<td width="22%" align="right">回复内容:</td>
					<td width="76%">
					<textarea rows="4" name="revert_content" cols="68"></textarea><input type="hidden" name=id value=<%=id%>></textarea></td>
				</tr>
				<tr>
					<td width="99%" colspan="2">
					<p align="center">
					<input type="submit" value="确定回复" name="B1">
					<input type="reset" value="重写" name="B2">
					<input name=Submit3 type=button onclick="window.location='leavemessage.asp'" value=返回上页 onFocus='this.blur()'> </td>
				</tr>
				<tr>
					<td width="99%" colspan="2"> </td>
				</tr>
			</table></form>
			</td>
		</tr>
	</table>
</div>
</body>

</html>

⌨️ 快捷键说明

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