messagesave.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 114 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp"-->
<!--#include file="../Include/ConnSiteData.asp"-->
<%Response.Charset="utf-8"%>
<%
Call SiteInfo()
if DateDiff("s",session("time"),now())<Refresh then
   response.write "<script language='JavaScript'>alert('Please refresh it at "&Refresh&" seconds');" & "history.back()" & "</script>"
   response.end
else
   session("time")=now()
end if
dim rs,sql
dim MesName,Content,SecretFlag,mMemID,mLinkman,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,CheckCode
MesName=trim(request.form("MesName"))
Content=trim(request.form("Content"))
if trim(request.form("SecretFlag"))="1" then
  SecretFlag=1
else
  SecretFlag=0
end if
mMemID=request.QueryString("MemberID")
mLinkman=trim(request.form("Linkman"))
mSex=trim(request.form("Sex"))
mCompany=trim(request.form("Company"))
mAddress=trim(request.form("Address"))
mZipCode=trim(request.form("ZipCode"))
mTelephone=trim(request.form("Telephone"))
mFax=trim(request.form("Fax"))
mMobile=trim(request.form("Mobile"))
mEmail=trim(request.form("Email"))
CheckCode = Trim(request.form("CheckCode"))
dim ErrMessage,ErrMsg(9),FindErr(9),i
  ErrMsg(0)="Your title must contain 1 - 100 characters."
  ErrMsg(1)="Please enter message content."
  ErrMsg(2)="Your name must contain 1 - 50 characters."
  ErrMsg(3)="Your company/address must contain 0 - 100 characters."
  ErrMsg(4)="Your Zip/Postal Code must contain 0 - 20 characters."
  ErrMsg(5)="Your tel/fax/mobile must contain 0 - 50 characters."
  ErrMsg(6)="Please enter a valid email address."
  ErrMsg(7)="Please enter the number in the image."
  ErrMsg(8)="Time that you stop over in the Register page over long, cause verify the code the expiration.\ the n pleases return and break the Register page to Register afresh"
  ErrMsg(9)="Verifying the code cannot for getting empty please return the check."
if len(MesName)>100 Or len(MesName)=0 then
  FindErr(0)=true
end if
if len(Content)<10 then
  FindErr(1)=true
end if
if len(mLinkman)>50 Or len(mLinkman)=0 then
  FindErr(2)=true
end if
if len(mCompany)>100 Or len(mAddress)>100 Or len(mCompany)=0 Or len(mAddress)=0 then
  FindErr(3)=true
end if
if len(mZipCode)<>6 then
  FindErr(4)=true
end if
if len(mTelephone)>50 Or len(mFax)>50 Or len(mMobile)>50 Or len(mTelephone)=0 Or len(mFax)=0 Or len(mMobile)=0 then
  FindErr(5)=true
end if
if not IsValidEmail(mEmail) then
  FindErr(6)=true
end If
If CheckCode = "" Then
	FindErr(7)=true
End If
If Trim(Session("CheckCode")) = "" Then
	FindErr(8)=true
End If
If CheckCode <> Session("CheckCode") Then
	FindErr(9)=true
End If
for i = 0 to UBound(FindErr)
  if FindErr(i)=true then
    ErrMessage=ErrMessage+ErrMsg(i)+"\n"
  end if
next
if not (ErrMessage="" Or isnull(ErrMessage)) then
  WriteMsg(ErrMessage)
  response.end
end if
set rs = server.createobject("adodb.recordset")
sql="select * from LiangJingCMS_Message"
rs.open sql,conn,1,3
rs.addnew
rs("MesName")=StrReplace(MesName)
rs("Content")=StrReplace(Content)
rs("MemID")=mMemID
rs("Linkman")=StrReplace(mLinkman)
rs("Sex")=mSex
rs("Company")=StrReplace(mCompany)
rs("Address")=StrReplace(mAddress)
rs("ZipCode")=StrReplace(mZipCode)
rs("Telephone")=StrReplace(mTelephone)
rs("Fax")=StrReplace(mFax)
rs("Mobile")=StrReplace(mMobile)
rs("Email")=mEmail
rs("SecretFlag")=SecretFlag
If MesViewFlag = 0 Then
rs("ViewFlag"&Language)=0
Else
rs("ViewFlag"&Language)=1
End If
rs("AddTime")=now()
rs.update
rs.close
set rs=Nothing
If MesViewFlag = 0 Then
	response.write "<script language='javascript'>alert('Thank you for your message,Please wait for the managing person examine, replies');location.replace('MessageList.asp');</script>"
Else
	response.write "<script language='javascript'>alert('Thank you for your message');location.replace('MessageList.asp');</script>"
End If
%>