📄 reply.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="odbc.asp"-->
<!--#include file="head.asp"-->
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="keywords" content="大大鱼">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>回复留言</title>
<link href="../img/index.CSS" rel="stylesheet" type="text/css">
<body leftmargin="0" topmargin="0" scroll="no">
<%
id = request("id")
select case request("act")
case "reply"
call replyupdate()
case else
call replymain()
end select
%>
<%
sub replymain()
if not session("log")="true" then
errorinfo=" 错 误 ! !<br><br>您没有登陆或者已经退出登陆，不能进入该页。"
error(errorinfo)
exit sub
else
strsql="select id,recontent from mainbook where id="&id
set rs = server.createobject("adodb.recordset")
rs.open strsql,db,1,3
if rs.eof and rs.bof then
errorinfo=" 错 误 ! !<br><br>该留言不存在。"
error(errorinfo)
exit sub
end if
%>
<table width="500" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<form name="form1" method="post" action="?act=reply">
<input type="hidden" name="id" size="12" maxlength="15" value="<%=id%>">
<tr>
<th height="50" colspan="2">管理员回复</th>
</tr>
<tr>
<td width="26%" align="right" valign="top">回复内容：</td>
<td width="74%" height="150" align="left" valign="top"><textarea name="recontent" cols="40" rows="8" wrap="VIRTUAL" id="recontent"></textarea></td>
</tr>
<tr align="center" valign="middle">
<td height="50" colspan="2">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="清除">
</td>
</tr>
</form>
</table>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<tr>
<td width="5" height="5"></td>
<td width="750"></td>
<td width="5"></td>
</tr>
<tr>
<td width="8" height="46"></td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="f2f2f2" class="tde">
<!--DWLayoutTable-->
<tr>
<td width="491" height="44"><div align="left"><font color="#75754f"> |</font>
<font color="#75754f"><span onclick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.dadayu.com');" style="CURSOR: hand">设为首页</span>
|
<script language="JavaScript">
function bookmarkit(){window.external.addFavorite('http://www.dadayu.com','│ DaDaYu │ 易天网络 │')}
if (document.all)document.write('<a href="#" onClick="bookmarkit()"><font color="#75754f">加入收藏</font></a>')
</script>
| <a href="mailto:www@dadayu.com">联系站长</a> | <a href="FriendSite.asp">友情链接</a>
| <a href="Copyright.asp" target="_blank">版权申明</a> | 易天留言 | </font></div></td>
</tr>
</table></td>
<td width="8"></td>
</tr>
<tr>
<td height="5"></td>
<td></td>
<td></td>
</tr>
</table>
<%
rs.close
set rs = nothing
end if
end sub
sub replyupdate()
if not session("log") ="true" then
errorinfo=" 错 误 ! !<br><br>您没有登陆或者已经退出登陆，不能进入该页。"
error(errorinfo)
exit sub
else
dim recontent,id
recontent = request.form("recontent")
id = request.form("id")
if recontent="" then
errorinfo="请输入回复内容。"
error(errorinfo)
exit sub
end if
set rs = server.createobject("adodb.recordset")
strsql = "select * from mainbook where id="&id
rs.open strsql,db,3,2
rs.update
rs("reply")=1
rs("reptime")=now()
rs("recontent")=recontent
rs.update
rs.close
%>
<script>self.opener.location.reload();</script>
<script>self.close();</script>
<%
end if
end sub
%>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -