<%if GuestbookAllow="1" then%>
<%if Trim(Request.Form("GB_Type"))="GB_Admin" then%>
|
<%
dim GB_Title,GB_UserName,GB_UserQQ,GB_UserEmail,GB_Content,GB_VisitIP,GB_VisitDateTime
if Trim(Request.Form("GB_Title"))="" or Trim(Request.Form("GB_Content"))="" then
Response.write "留言失败，请填写留言标题及内容"
elseif Len(Trim(Request.Form("GB_Content")))>GuestbookContentKB then
Response.write "留言失败，留言字数超过了限制"
elseif GuestbookValidationCode="1" and UCase(Trim(Request.Form("GuValidationCodeInput")))<>Request.Cookies("GuValidationCodeCookies") then
Response.write "留言失败，验证码输入错误"
else
GB_Title=Trim(Request.Form("GB_Title"))
GB_UserName=Trim(Request.Form("GB_UserName"))
GB_UserQQ=Trim(Request.Form("GB_UserQQ"))
GB_UserEmail=Trim(Request.Form("GB_UserEmail"))
GB_Content=Request.Form("GB_Content")
GB_Content=Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(GB_Content,"'","’"),"<","＜"),">","＞"),"&","＆"),"?","？"),"delete","删除"),"update","更新"),"insert","插入"),"select","选择")
dim rsGB1
set rsGB1=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_Guestbook where (GB_ID is null)"
rsGB1.open GuSQL,GuConn,1,3
rsGB1.addnew
rsGB1("GB_Type")="GB_Admin"
rsGB1("GB_GuResourceName")=GB_Title
rsGB1("GB_UserName")=GB_UserName
rsGB1("GB_UserQQ")=GB_UserQQ
rsGB1("GB_UserEmail")=GB_UserEmail
rsGB1("GB_Content")=GB_Content
rsGB1("GB_GuResourceNameColor")="Black"
rsGB1("GB_UserIP")=Request.ServerVariables("REMOTE_ADDR")
rsGB1("GB_DateTime")=Now()
rsGB1.update
rsGB1.close
set rsGB1=nothing
if SendmailAllow="1" then
Gu_SendmailSubject=Trim(Request.Form("GB_Title"))
Gu_SendmailName=Trim(Request.Form("GB_UserName"))
Gu_SendmailAddressFrom=Trim(Request.Form("GB_UserEmail"))
Gu_SendmailBodyText=GB_Content
dim GuMail
Set GuMail=Server.CreateObject("JMail.Message")
GuMail.silent=true
GuMail.Logging=true
GuMail.Charset="gb2312"
GuMail.ContentType="text/html"
GuMail.Priority=3
GuMail.MailServerUserName=GuSMTPUsername
GuMail.MailServerPassword=GuSMTPPassword
GuMail.From=Gu_SendmailAddressFrom
GuMail.FromName=Gu_SendmailName
GuMail.AddRecipient(Gu_SendmailAddressTo)
GuMail.Subject=Gu_SendmailSubject
GuMail.Body=Gu_SendmailBodyText&Gu_SendmailBodyOther
GuMail.Send(GuSMTPServer)
set GuMail=nothing
end if
Response.write "留言已提交成功，感谢你的留言"
end if
%>
|
<%end if%>
<%else%>
<%end if%>
|
|
|
|
