feedbacksave.asp

官方最新的南方数据v12生成静态商业版。全站生成静态。

<!--#Include File="Inc/Check_Sql.asp"--> 
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/articleCHAR.INC"-->
<%
If request.form("CompanyName")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入公司名称，请返回检查！！"");history.go(-1);</script>")
response.end
end if
If request.form("Receiver")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入联系人，请返回检查！！"");history.go(-1);</script>")
response.end
end if
If request.form("Phone")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入联系电话，请返回检查！！"");history.go(-1);</script>")
response.end
end if
If request.form("title")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入标题，请返回检查！！"");history.go(-1);</script>")
response.end
end if
If request.form("content")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入留言内容，请返回检查！！"");history.go(-1);</script>")
response.end
end if

VerifyCode=replace(trim(Request("VerifyCode")),"'","")
if VerifyCode<>CStr(session("VerifyCode")) then
  Response.Write("<script language=""JavaScript"">alert(""错误：您输入验证码有错，请返回检查！！"");history.go(-1);</script>")
  response.end
end if

UserName=replace(Trim(session("UserName")),"'","")
Add=replace(Trim(request("Add")),"'","")
Postcode=replace(Trim(request("Postcode")),"'","")
Mobile=replace(Trim(request("Mobile")),"'","")
Fax=replace(Trim(request("Fax")),"'","")
email=replace(Trim(request("email")),"'","")

if Add="" then
	Add=null
end if
if Postcode="" then
	Postcode=null
end if
if Mobile="" then
	Mobile=null
end if
if Fax="" then
	Fax=null
end if
if Email="" then
	Email=null
end if

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 0791idc_Feedback"
rs.open sql,conn,1,3

rs.addnew
if session("username")="" then
  rs("Username")="未注册用户"
else
  rs("Username")=UserName
end if
rs("CompanyName")=replace(Trim(request("CompanyName")),"'","")
rs("Add")=Add
rs("Postcode")=Postcode
rs("Receiver")=replace(Trim(request("Receiver")),"'","")
rs("Phone")=replace(Trim(request("Phone")),"'","")
rs("Mobile")=Mobile
rs("Fax")=Fax
rs("email")=email
rs("title")=replace(Trim(request("title")),"'","")
rs("content")=htmlencode2(replace(Trim(request("content")),"'",""))
rs("Publish")=replace(Trim(request("Publish")),"'","")
rs("time")=date()
rs.update
rs.close

response.redirect "FeedbackView.asp"
%>