📄 guestadd.asp
字号:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110 Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved.
'***********************************************************************************
Dim replaceadd,Adderror
Dim replaceIP
IF int(Web_Const(33))=0 or int(Loginuser_Flag(2))=0 or int(Web_Const(34))=0 THEN
IF Loginuser_GroudId=0 THEN
error_title="对不起，请先登陆，如果您不是我们的会员，请先注册！"
Else
error_title="对不起，留言功能已关闭，您现在不能发表留言，如有需要请与管理员联系！"
End IF
Call Page_check(3,0)
End IF
IF instr(Web_Const(30),VisitorsIp) THEN
error_title="对不起，您的IP已被限制发表留言！"
Call Page_check(3,0)
End IF
IF Action="save" THEN
replaceadd=Web_Const(35)
replaceadd=split(replaceadd,",")
For intTemp=0 to ubound(replaceadd)
IF instr(trim(request.form("G_Add")),replaceadd(intTemp)) THEN
Adderror=1
End IF
Next
IF trim(request.form("G_Add"))="" And Session("Loginuser")="" THEN
error_title="对不起，请问您怎么称呼？"
founderr=true
ElseIF Adderror=1 THEN
error_title="对不起，您输入的称呼中含有被禁止的字符，请重新输入！"
founderr=true
ElseIF IsValidEmail(trim(request.form("G_Email")))=false THEN
error_title="对不起，请输入正确的电子邮件地址！"
founderr=true
ElseIF trim(request.form("G_Content"))="" THEN
error_title="对不起，请您输入留言内容！"
founderr=true
ElseIF len(trim(request.form("G_Content")))>int(Web_Const(28)) THEN
error_title="对不起，留言内容不能超过" & Web_Const(28) & "个字！"
founderr=true
End IF
IF founderr=true THEN
Call Page_check(3,0)
Else
Dim replaceall,replacestr
Dim Guest_Add,Guest_Email,Guest_Tel,Guest_Title,Guest_Content
Set Rs=Server.createobject("adodb.recordset")
Sql="Select * From Tx_Guest"
Rs.open Sql,Conn,1,3
Rs.addnew
Rs("Guest_Class")=request.form("G_Class")
Rs("Guest_Pass")=request.form("G_Pass")
IF Web_Const(32)=1 THEN
Rs("Guest_Flag")=int(Loginuser_Flag(9))
Else
Rs("Guest_Flag")=Web_Const(32)
End IF
Rs("Guest_Face")=request.form("Picture")
Guest_Add=trim(request.form("G_Add"))
Guest_Email=trim(request.form("G_Email"))
Guest_Tel=trim(request.form("G_Tel"))
Guest_Title=trim(request.form("G_Title"))
Guest_Content=trim(request.form("G_Content"))
replaceall=Web_Const(29)
replaceall=split(replaceall,",")
For i=0 To ubound(replaceall)
For intTemp=0 To len(replaceall(i))
replacestr=replacestr & "*"
Next
Guest_Add=replace(Guest_Add,replaceall(i),replacestr)
Guest_Email=replace(Guest_Email,replaceall(i),replacestr)
Guest_Tel=replace(Guest_Tel,replaceall(i),replacestr)
Guest_Title=replace(Guest_Title,replaceall(i),replacestr)
Guest_Content=replace(Guest_Content,replaceall(i),replacestr)
replacestr=""
Next
IF Session("Loginuser")<>"" THEN
Rs("Guest_Add")=Session("Loginuser")
Else
Rs("Guest_Add")=checkfSQLStr(Guest_Add)
End IF
Rs("Guest_Email")=checkfSQLStr(Guest_Email)
Rs("Guest_Tel")=checkfSQLStr(Guest_Tel)
Rs("Guest_Title")=checkfSQLStr(Guest_Title)
IF Web_Const(31)=0 THEN
Guest_Content=nohtml(checkfSQLStr(Guest_Content))
Else
Guest_Content=checkfSQLStr(Guest_Content)
End IF
Rs("Guest_Content")=Guest_Content
Rs("Guest_UserId")=Loginuser_Id
Rs("Guest_Ress")=VisitorsRess
Rs("Guest_Ip")=VisitorsIp
Rs("Guest_Date")=Now()
Rs.UpDate
Rs.Close
Set Rs=Nothing
ToHistory="Guest.asp"
IF Web_Const(32)=1 THEN
saveok="您的留言已成功发表！"
Else
saveok="您的留言已提交，请等待管理员审核！"
End IF
Call Form_Saveok()
End IF
Else
Class_Name="<A HREF='Guest.asp'>留 言</A> > 发表留言"
Page_Name="发表留言 -- " & Web_Const(0)
Call Page_Head()
Call Page_iHead()
Call Page_nHead()
%>
<table width="990" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="321" valign="bottom" bgcolor="#082421"><span>
<%Call Page_Login()%>
</span><img src="Skins/blak/leftad.jpg" width="321" /></td>
<td valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form action="Guestadd.asp?Action=save" method="post" name="guestsave" id="guestsave" >
<td valign="top" class="TABLE-Main"><div class="page-head">发表留言</div>
<div class="TABLE-Mainall">
<div class="guest-addcontent"> 称 呼：
<input name="G_Add" type="text" value="<%=session("Loginuser")%>" class="INPUTimage1" <%IF Session("Loginuser")<>"" THEN%> disabled="disabled" <%End IF%> id="G_Add" size="14" maxlength="25" />
电子邮件：
<input name="G_Email" value="<%=Loginuser_C(2)%>" type="text" class="INPUTimage1" id="G_Email" size="14" maxlength="35" />
<br />
电 话：
<input name="G_Tel" type="text" value="<%=Loginuser_C(4)%>" class="INPUTimage1" id="G_Tel" size="14" maxlength="20" />
<br />
头 像：
<select name="Picture" size="1" class="INPUTimage1" id="Picture" align="absmiddle" onchange="document.all.idface.src=options[selectedIndex].value;">
<%
Set Rs_cm=server.createobject("adodb.recordset")
Sql="Select * from Tx_Picture order By Picture_Id"
Rs_cm.Open Sql,Conn,1,1
While Not Rs_cm.Eof
Response.write "<OPTION VALUE='" & Rs_cm("Picture_Url") & "' "
IF session("Loginuser")<>"" THEN
IF Loginuser_C(5)=Rs_cm("Picture_Url") THEN
Picture=Loginuser_C(5)
Response.write "selected"
End IF
End IF
Response.write ">" & Rs_cm("Picture_Name") & "</OPTION>"
IF Picture="" THEN Picture=Rs_cm("Picture_Url")
Rs_cm.MoveNext
Wend
Rs_cm.Close
Set Rs_cm=Nothing
%>
</select>
<img hspace="5" src="<%=Picture%>" vspace="3" border="0" id="idface" align="absmiddle" /><br />
方 式：
<select name="G_Class" class="INPUTimage1" id="G_Class">
<option value="">请选择留言方式</option>
<%
Web_Class=split(Web_Const(27),",")
For intTemp=0 To ubound(Web_Class)
Response.write "<OPTION VALUE='" & Web_Class(intTemp) & "'>" & Web_Class(intTemp) & "</OPTION>"
Next
%>
</select>
<br />
<br />
属 性：
<input type="radio" name="G_Pass" value="1" />
保密
<input name="G_Pass" type="radio" value="0" checked="checked" />
正常<br />
主 题：
<input name="G_Title" type="text" class="INPUTimage1" id="G_Title" size="44" maxlength="50" />
<br />
<br />
内 容：
<textarea name="G_Content" class="INPUTimage" cols="50" rows="8" id="G_Content"></textarea>
<br />
<br />
<div class="TABLE-tstd">
<input type="image" src="Skins/Blue/go.gif" width="51" height="21" name="Ok" align="absmiddle" />
<input type="image" src="Skins/Blue/cl.gif" width="51" height="21" name="Ok" align="absmiddle" onclick="vbscript:location.reload" />
</div>
</div>
</div></td>
</form>
<td width="5"></td>
<td width="195" align="center" valign="top" class="TABLE-Side"><%
Web_Class=split(Web_Const(27),",")
Response.write "<A HREF='Guestadd.asp'><DIV CLASS=guest-CLASS onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#CAE5E8'><FONT COLOR=#FFFFFF>发表留言</FONT></DIV></A>"&_
"<A HREF='Guest.asp'><DIV CLASS=guest-CLASS onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#CAE5E8'><FONT COLOR=#FFFFFF>留言列表</FONT></DIV></A>"
IF Session("Loginuser")<>"" THEN
Response.write "<A HREF='Guest.asp?Action=UserGuest'><DIV CLASS=guest-CLASS onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#CAE5E8'><FONT COLOR=#FFFFFF>我的留言</FONT></DIV></A>"
End IF
For intTemp=0 To ubound(Web_Class)
Response.write "<A HREF='Guest.asp?Action=" & Web_Class(intTemp) & "'><DIV CLASS=guest-CLASS onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#CAE5E8'><FONT COLOR=#FFFFFF>" & Web_Class(intTemp) & "</FONT></DIV></A>"
Next
%>
</td>
</tr>
</table></td>
</tr>
</table>
<%
End IF
Call Page_iBottom()
Call Page_Bottom()
Call CloseConn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -