📄 replymesg.asp

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

💻 ASP

字号:

<%
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/my_lib.asp" -->
<%
id=my_request("id",1)
action=my_request("action",0)

if action="save" then
call save()
end if

set rs=conn.execute ("select replycontent from messagecontent where id="&id)
scontent=rs(0)
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>

<table border="0" width="100%" id="table1" cellspacing="1" cellpadding="4" style="border: 1px solid #183789; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px">
<form action=replymesg.asp method=post>
	<tr>
		<td colspan="2" background="Image/admin_bg_1.gif" height="25">
		<p align="center"><font color="#FFFFFF"><b>留言回复</b></font></td>
	</tr>
	<tr>
		<td width="20%">
		<p align="right">回复内容：</td>
		<td width="78%"><textarea rows="14" name="rcontent" cols="48"><%=Outleach(scontent)%></textarea><input type=hidden name=action value=save><input type=hidden name=id value=<%=id%>></td>
	</tr>
	<tr>
		<td colspan="2">
		<p align="center"><input type="submit" value="保存数据" name="B1"></td>
	</tr></form>
</table>

</body>

</html>
<%
sub save()
rcontent=leach(my_request("rcontent",0))
conn.execute ("update messagecontent set replycontent='"&rcontent&"',replyaddtime='"&now()&"',ishf=1 where id="&id)
conn.close
set conn=nothing
response.write"<script>window.opener.document.location.reload();</script>"
response.write"<script>window.close();</script>"
end sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -