📄 reply.asp
字号:
<!-- #include file="common.asp"-->
<!-- #include file="isadm.asp" -->
<%
Dim zsb_auth, hasAuth
hasAuth = False
zsb_auth = Split( Trim( session("zsb_auth") ), ",", -1, 1 )
For Each auth In zsb_auth
If ( auth = "config" ) Then
hasAuth = True
Exit For
End If
Next
If hasAuth = false Then
Response.Write("<script language=javascript>alert('对不起，你没有权限，请联系超级管理员！');history.back(-1);</script>")
End If
%>
<%
if Trim(session("mangflag"))="" or Trim(session("timeflag"))="" then
Response.redirect("noadmto.asp")
end if
%>
<%
set rs=Server.CreateObject("ADODB.Recordset")
'ret=request.QueryString("timflg")
sqlstr="select * from guest where ID=" & Request("ID")
rs.open sqlstr,conn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>回复留言</title>
<style type="text/css">
<!--
body {
font-size: 12px;
margin-left: 0px;
background-image: url(images/bg.gif);
margin-right: 0px;
margin-top: 0px;
}
.mytext {
font-size: 12px;
}
-->
</style></head>
<body>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" class="mytext" style="background-image:url(<% =GBSkin %>/guest_top.gif) ">
<tr>
<td height="30" align="center"><a href="manage.asp?currentpage=<% =Trim(Request("pn")) %>">不回了</a></td>
</tr>
</table>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" class="mytext" style="background-image:url(<% =GBSkin %>/guest_bg.gif) ">
<% if not rs.eof then'while not rs.eof %>
<%
'if rs("timeflag")=ret then
'if rs("repflag")=true then
'response.Redirect("hadreply.asp")
'end if
%>
<tr>
<td width="100" height="20" align="right">昵称：</td>
<td width="400" height="20">
<% =rs("name") %></td>
</tr>
<tr>
<td width="100" height="20" align="right">性别：</td>
<td width="400" height="20">
<% =rs("sex") %></td>
</tr>
<tr>
<td width="100" height="20" align="right">来自：</td>
<td width="400" height="20">
<% =rs("address") %></td>
</tr>
<tr>
<td width="100" height="20" align="right">邮箱：</td>
<td width="400" height="20">
<% =rs("email") %></td>
</tr>
<tr>
<td width="100" height="20" align="right">主页：</td>
<td width="400" height="20">
<% =rs("homepage") %></td>
</tr>
<tr>
<td width="100" height="20" align="right">OICQ：</td>
<td width="400" height="20">
<% =rs("Oicq") %></td>
</tr>
<tr>
<td width="100" height="20" align="right">主题：</td>
<td width="400" height="20">
<% =rs("Title") %></td>
</tr>
<tr>
<td width="100" height="20" align="right">内容：</td>
<td width="350" height="20">
<% =rs("Content") %></td>
</tr><form action="replysave.asp?ID=<% =Trim(Request("ID")) %>&pn=<% =Trim(Request("pn")) %>" method="POST">
<tr>
<td height="20" align="right">不显示回复：</td>
<td height="20"><% if rs("ReNoView")=True then %><input name="NoView" type="checkbox" id="NoView" value="1" checked>
<% else %><input name="NoView" type="checkbox" id="NoView" value="1">
<% end if %>
</td>
</tr>
<%
end if
'rs.movenext
'wend
rs.close
set rs=nothing
'conn.close
'set conn=nothing
%>
<tr align="center">
<td height="30" colspan="2" style="background-image:url(<% =GBSkin %>/guest_top.gif) "><strong>回复内容</strong></td>
</tr>
<tr>
<td colspan="2">
<table width="320" align="center" class="mytext">
<tr>
<td align="center">
<%
set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from Reply where GuestID=" & Request("ID")
rs.open sqlstr,conn,1,3
if not rs.eof then
%>
<textarea name="recontent" cols="55" rows="6"><% =HEncode(rs("content")) %></textarea>
<% else %>
<textarea name="recontent" cols="55" rows="6"></textarea>
<% end if %>
</td>
</tr>
<tr>
<td height="30" align="center"><input type="submit" value="提交回复留言"></td>
</tr>
</table>
</td>
</tr></form>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -