📄 addgsbook.asp
字号:
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/CallErr.asp" -->
<!--#include file="class/command.asp" -->
<!--#include file="class/savegsbook.asp" -->
<!--#include file="class/SendMail.asp" -->
<!--#include file="inc/IsValidEmail.asp" -->
<%
Response.Expires = -1
Server.ScriptTimeout = 300
dim ClassSystem,ClassCheck
Set ClassSystem = New System
Set ClassCheck = New CheckUser
Set ClassSave = New Savegsbook
ClassSystem.CheckLockIp()
ClassSystem.GetWebSys()
ClassCheck.GetUserInfo()
ClassCheck.CheckOpenGsbook ClassCheck.loginok,ClassSystem.ArrRs(13,0),ClassSystem.ArrRs(14,0)
ClassCheck.CheckOpenWrite ClassCheck.loginok,ClassSystem.ArrRs(6,0)
ClassCheck.GetUserCss Request.Querystring("GetStyle")
ClassSave.SetRequest_Method Request.ServerVariables("Request_Method")
Select Case ClassSave.Request_Method
Case "POST"
ClassSave.GetGsbookInfo Request.Form("Author"),Request.Form("Open"),Request.Form("Sex"),Request.Form("Email"),Request.Form("WebSize"),Request.Form("Face"),Request.Form("Title"),Request.Form("Content"),Request.Form("EditPass"),Request.Form("EmailCall"),1,0,Request.ServerVariables("REMOTE_ADDR"),Request.Form("TextChange")
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,ClassSystem.ArrRs(15,0)
ClassSave.GetContentChange ClassSave.Content,ClassSave.TextChange
ClassSave.CheckSave Request.Cookies("sContent"),ClassSave.Content
ClassSave.UpdateGsBook 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,ClassSave.TextChange
Select Case ClassSystem.ArrRs(4,0)
Case True
Dim ClassEmail
Set ClassEmail = New SendMail
ClassEmail.GetMailInfo()
Select Case ClassEmail.MailIObj
Case "Ok"
ClassEmail.SetMailTxt2 ClassEmail.ArrRs(6,0),ClassSystem.ArrRs(0,0),ClassSystem.ArrRs(1,0),ClassSave.Author
Select Case ClassEmail.ArrRs(0,0)
Case "Jmail"
ClassEmail.Jmail ClassEmail.ArrRs(5,0),ClassEmail.Txt,ClassSystem.ArrRs(11,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,ClassSystem.ArrRs(11,0),ClassEmail.ArrRs(1,0)
End Select
End Select
End Select
ClassCheck.CallOk 2
End Select
ClassSave.GetFace()
ClassSave.getFaceDefault()
ClassSystem.Closedb()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="script/GetStyle.js"></script>
<script src="script/Ubb.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=400 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<form method="POST" action="?type=save" name="form" target="_self" onsubmit="return checkForm()">
<TD valign="top"> <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<script>function showimage(){document.images.tus.src="face/"+document.form.Face.options[document.form.Face.selectedIndex].value+".gif";}</script>
<tr>
<td height="30" colspan="4" nowrap>签下我的留言：</td>
</tr>
<tr>
<td height="25" nowrap>昵称:</td>
<td height="25" nowrap> <input name="author" title="请输入你的昵称！" value="<%=request.cookies("Author")%>" size="25" maxlength="20" class=put>
* </td>
<td height="25" align="right" nowrap>权限设置:</td>
<td height="25" align="center" nowrap><font color="#669900">
<select name="Open" size="1" class=put>
<option selected value="1">公开</option>
<option value="0">悄悄話</option>
</select>
</font></td>
</tr>
<tr>
<td width="8%" height="25" nowrap>邮箱:</td>
<td width="56%" height="25" nowrap> <input name="email" title="请输入你的邮箱地址！" value="@" size="25" maxlength="50" class=put>
</td>
<td width="17%" height="25" align="right" nowrap>我的性別: </td>
<td width="19%" height="25" align="center" nowrap> <font color="#669900">
<select name="sex" size="1" onChange="showimage()" class=put>
<option value="0">♀女生</option>
<option selected value="1">♂男生</option>
</select>
</font></td>
</tr>
<tr>
<td height="25" nowrap>主页: </td>
<td height="25" nowrap> <input name="websize" title="请输入您的个人主页，如果没有，则留空！" value="http://" size="25" maxlength="50" class=put>
</td>
<td height="25" align="right" nowrap>留言表情:</td>
<td height="25" align="center" nowrap> <font color="#669900">
<select name=Face size=1 onChange="showimage()" class=put>
<%
Select Case ClassSave.ArrFaceRsi
Case 1
For i=0 To Ubound(ClassSave.ArrFaceRs,2)
Response.Write "<option value="&ClassSave.ArrFaceRs(2,i)
If ClassSave.ArrFaceRs(3,i) = True Then Response.Write " selected"
Response.Write ">"&ClassSave.ArrFaceRs(1,i)&"</option>"
Next
Case Else
Response.Write "<option>没有表情</option>"
End Select
%>
</select>
</font></td>
</tr>
<tr>
<td height="25" nowrap>标题:</td>
<td height="25" colspan="2"> <input name="title" title="请输入留言标题！" size="36" maxlength="40" class=put>
*</td>
<td rowspan="3" align="center" valign="top"><font color="#669900"><img src="face/<%=ClassSave.FaceDefault%>.gif" name="tus" alt="请选择适合你的表情图片" ></font></td>
</tr>
<tr>
<td nowrap>UBB:</td>
<td height="30" colspan="2">
<INPUT name="button" type=button class=Put title="背景色和颜色" onclick=ytext() value="A">
<INPUT name="button" type=button class=Put title="加粗" onclick=ybold() value="B">
<INPUT name="button" type=button class=Put title="倾斜" onclick=italicize() value="I">
<INPUT name="button" type=button class=Put title="下划线" onclick=underline() value="U">
<INPUT name="button" type=button class=Put title="飞翔文字" onclick=setfly() value="飞">
<INPUT name="button" type=button class=Put title="移动文字" onclick=move() value="移">
<INPUT name="button" type=button class=Put title="光晕文字" onclick=yglow() value="光">
<INPUT name="button" type=button class=Put title="插入图片" onclick=image() value="图">
<INPUT name="button" type=button class=Put title="超链接" onclick=hyperlink() value="链">
<INPUT name="button" type=button class=Put title="EMAIL" onclick=yemail() value="邮">
</td>
</tr>
<tr>
<td valign="top" nowrap> 內容:<br> <br> <br> <br> </td>
<td colspan="2" align="center" valign="top"> <textarea title="请在这里输入留言内容...
请把内容限制到800字以內！" cols="39" name="content" rows="5" class=put></textarea>
</td>
</tr>
<tr>
<td height="30" colspan="4" align="left">密码: <input name="EditPass" class=put4 title="以后修改留言时，需要此密码！" onKeyPress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" size="12" maxlength="12">
回复时邮件通知:
<input name="EmailCall" type="checkbox" value="1"> 字符表情
<input name="TextChange" type="checkbox" value="1" <%if ClassSystem.ArrRs(15,0) = True Then Response.write "checked"%>></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=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>
<script Language="JavaScript">
<!--
function checkForm()
{
if (form.author.value == "")
{
alert("请输入您的昵称");
form.author.focus();
if (form.author.value.length > 20)
{
alert("您输入的昵称过长！请限制到20字以内");
form.author.focus();
return (false);
}
return (false);
}
if (form.title.value == "")
{
alert("请输入留言标题");
form.title.focus();
if (form.title.value.length > 20)
{
alert("您输入的标题过长！请限制到20字以内");
form.title.focus();
return (false);
}
return (false);
}
if (form.content.value == "")
{
alert("请输入留言的内容！");
form.content.focus();
return (false);
}
if (form.content.value.length > 800)
{
alert("留言内容已超出限制字数\n请限制到800字以內");
form.content.focus();
return (false);
}
form.Submit.disabled=true
return (true);
}
//-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -