📄 reply.asp

📁 很不错的文章系统,可以下载下来看看吧
💻 ASP
字号:
<!--
############################  智思留言本 版权声明  ##############################
#####  智思留言本系统（版本：ZSBS v3.0 构建于 2005/11/01）                  #####
#####  智思网络（zhisi.net) （2004-2024）版权所有！                         #####
#####  此留言本为自由源码版，你可以自由传播和使用而不用交纳任何款项，       #####
#####  你也可以进行更改，但必须本保留版权信息！                             #####
#####  如需删除版权信息，则必须经授权，并交纳版权费，否则将会诉诸于法律！   #####
#####  电子邮箱：zhisi@126.com  QQ：122178250  POPO：simonda                #####
#################################################################################
#####  此版权信息不会妨碍你正常使用本留言本，我们承诺完全免费，但保留版权！ #####
################ 请访问http://www.zhisi.net 查看新版本信息 ######################
-->
<!-- #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">&nbsp;
    <% =rs("name") %></td>
  </tr>
  <tr>
    <td width="100" height="20" align="right">性别：</td>
    <td width="400" height="20">&nbsp;
    <% =rs("sex") %></td>
  </tr>
  <tr>
    <td width="100" height="20" align="right">来自：</td>
    <td width="400" height="20">&nbsp;
    <% =rs("address") %></td>
  </tr>
  <tr>
    <td width="100" height="20" align="right">邮箱：</td>
    <td width="400" height="20">&nbsp;
    <% =rs("email") %></td>
  </tr>
  <tr>
    <td width="100" height="20" align="right">主页：</td>
    <td width="400" height="20">&nbsp;
    <% =rs("homepage") %></td>
  </tr>
  <tr>
    <td width="100" height="20" align="right">OICQ：</td>
    <td width="400" height="20">&nbsp;
    <% =rs("Oicq") %></td>
  </tr>
  <tr>
    <td width="100" height="20" align="right">主题：</td>
    <td width="400" height="20">&nbsp;
    <% =rs("Title") %></td>
  </tr>
  <tr>
    <td width="100" height="20" align="right">内容：</td>
    <td width="350" height="20">&nbsp;
    <% =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 + -