📄 regsbook.asp
字号:
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/CallErr.asp" -->
<!--#include file="class/command.asp" -->
<!--#include file="class/savegsbook.asp" -->
<!--#include file="class/showpage.asp" -->
<!--#include file="class/SendMail.asp" -->
<%
Response.Expires = -1
Server.ScriptTimeout = 300
dim ClassSystem,ClassCheck,ClassSave,ClassPage
Set ClassSystem = New System
Set ClassCheck = New CheckUser
Set ClassSave = New Savegsbook
Set ClassPage = New ShowPage
ClassSystem.GetWebSys()
ClassCheck.GetUserInfo()
ClassCheck.GetUserCss Request.Querystring("GetStyle")
ClassCheck.CheckUserLogin ClassSystem.ArrRs(2,0),ClassSystem.ArrRs(3,0),ClassCheck.AdminUser,ClassCheck.AdminPass
ClassPage.CheckGsbookId Request.QueryString("Id")
ClassPage.ShowGsbookInfo ClassPage.Id
ClassSave.SetRequest_Method Request.ServerVariables("Request_Method")
Select Case ClassSave.Request_Method
Case "POST"
ClassSave.GetGsbookInfo "管理员",1,1,"@","http://","13",Request.Form("Title"),Request.Form("Content"),"空",0,0,ClassPage.Id,Request.ServerVariables("REMOTE_ADDR"),0
ClassSave.CheckGsbookInfo ClassSystem.ArrRs(5,0),ClassSave.Author,ClassSave.Open,ClassSave.Sex,ClassSave.Email,ClassSave.WebSize,ClassSave.Face,ClassSave.Title,ClassSave.Content,ClassSave.EditPass,ClassSave.EmailCall,ClassSave.Topic,ClassSave.GsBookId,ClassSystem.ArrRs(10,0),ClassSave.TextChange,ClassSave.TextChange
ClassSave.SetWithHtml Request.Form("WithHtml"),Request.Form("Content")
ClassSave.UpdateRe ClassSave.Author,ClassSave.Open,ClassSave.Sex,ClassSave.Email,ClassSave.WebSize,ClassSave.Face,ClassSave.Title,ClassSave.Content,ClassSave.EditPass,ClassSave.EmailCall,ClassSave.Topic,ClassSave.GsBookId,ClassSave.Ip,ClassPage.ArrRs(9,0)
If ClassPage.ArrRs(13,0) = True And ClassPage.ArrRs(9,0) <> True Then
Dim ClassEmail
Set ClassEmail = New SendMail
ClassEmail.GetMailInfo()
Select Case ClassEmail.MailIObj
Case "Ok"
ClassEmail.SetMailTxt ClassEmail.ArrRs(6,0),ClassSystem.ArrRs(0,0),ClassSystem.ArrRs(1,0),ClassPage.ArrRs(2,0),ClassPage.Id
Select Case ClassEmail.ArrRs(0,0)
Case "Jmail"
ClassEmail.Jmail ClassEmail.ArrRs(5,0),ClassEmail.Txt,ClassPage.ArrRs(4,0),ClassEmail.ArrRs(4,0),ClassEmail.ArrRs(1,0),ClassEmail.ArrRs(2,0),ClassEmail.ArrRs(3,0)
Case "CDONTS"
ClassEmail.CDONTS ClassEmail.ArrRs(5,0),ClassEmail.Txt,ClassPage.ArrRs(4,0),ClassEmail.ArrRs(1,0)
End Select
ClassEmail.SendInfo()
End Select
End If
ClassCheck.CallOk 2
End Select
Select Case ClassPage.ArrRs(9,0)
Case True
ClassPage.GetReInfo ClassPage.Id
ClassSave.GetEditContent ClassPage.ArriRs(1,0),0
End Select
ClassSystem.Closedb()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="script/GetStyle.js"></script>
<title><%=ClassSystem.ArrRs(0,0)%> - <%=ClassSystem.ArrRs(1,0)%></title>
</head>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 class="body" Bgproperties="fixed">
<!--#include file=Include/Top.asp -->
<div class="div">
<table Class=TableTop border=0 cellpadding="0" cellspacing="0">
<tr>
<td class=TableTop_Left rowspan="11"> </td>
<td colspan="2" align="center"> </td>
</tr>
<tr>
<td colspan="2" class=TableTop_Right>
<TABLE width=500 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<form method="POST" action="?Id=<%=ClassPage.Id%>" name="form" target="_self" onsubmit="return checkForm()">
<TD valign="top"> <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" nowrap>留言作者：</td>
<td height="25" colspan="2" nowrap><u><%=ClassPage.ArrRs(2,0)%></u><strong>
<%If ClassPage.ArrRs(3,0)=True Then response.write "<font color=0000ff>♂</font>" else Response.write "<font color=red>♀</font>"%>
</strong></td>
<td height="25" nowrap> </td>
</tr>
<tr>
<td height="25" nowrap>原文标题：</td>
<td height="25" colspan="2" nowrap><%=ClassPage.ArrRs(7,0)%></td>
<td height="25" nowrap> </td>
</tr>
<tr>
<td height="25" nowrap>留言时间：</td>
<td height="25" colspan="2" nowrap><u><%=ClassPage.ArrRs(11,0)%></u>
</td>
<td height="25" nowrap> </td>
</tr>
<tr>
<td height="25" valign="top" nowrap>留言内容：</td>
<td height="25" colspan="2" nowrap> <table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><u><%=ClassPage.ArrRs(8,0)%></u></td>
</tr>
</table></td>
<td height="25" nowrap> </td>
</tr>
<tr>
<td width="8%" height="25" nowrap> </td>
<td width="56%" height="25" nowrap> </td>
<td width="17%" height="25" nowrap> </td>
<td width="19%" height="25" nowrap> </td>
</tr>
<tr>
<td height="25" nowrap>使用HTML:</td>
<td height="25" colspan="2">
<input name="WithHtml" type="checkbox" value="1"></td>
<td rowspan="3" align="center" valign="top"> </td>
</tr>
<tr>
<td height="25" nowrap>回复标题:</td>
<td height="25" colspan="2"> <input name="title" class=put title="请输入留言标题！" value="<%If ClassPage.ArrRs(9,0)=True Then response.write ClassPage.ArriRs(0,0) Else Response.write "Re:"&ClassPage.ArrRs(7,0)%>" size="51" maxlength="40">
</td>
</tr>
<tr>
<td valign="top" nowrap> 回复内容:<br> <br> <br> <br> </td>
<td colspan="2" valign="top"> <textarea title="请在这里输入留言内容...
请把内容限制到800字以內！" cols="50" name="content" rows="5" class=put><%=ClassSave.EditContent%></textarea>
</td>
</tr>
<tr>
<td height="30" colspan="4" align="left"> </td>
</tr>
<tr>
<td align="center"> </td>
<td height="30" colspan="2" align="center"> <input type="submit" name="Submit" value="=> 提交回复" class=put2>
<input type=reset name="Reset" value="重写" class=put2>
<input type=reset name="Reset2" value="返回" onClick="javascript:history.back()" class=put3>
</td>
<td align="center"> </td>
</tr>
<tr>
<td colspan="4" align="center" valign="bottom"> </td>
</tr>
</table></TD>
</form>
</TR>
</TBODY>
</TABLE></td>
</tr></table>
</div>
<!--#Include File="Include/CopyRight.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -