📄 guestadd.asp
字号:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037 Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - 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="770" BORDER="0" ALIGN="center" cellpadding="0" CELLSPACING="0">
<TR>
<Form NAME=guestsave method=post action="Guestadd.asp?Action=save" >
<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 <%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> 正常<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>
<%
End IF
Call Page_iBottom()
Call Page_Bottom()
Call CloseConn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -