<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%=CompanyName%>-客户反馈 <% If Request("action")="submit0k" Then f_name=Trim(Request("f_name")) f_sex=Trim(Request("f_sex")) f_job=Trim(Request("f_job")) f_tel=Trim(Request("f_tel")) f_mail=Trim(Request("f_mail")) f_phone=Trim(Request("f_phone")) f_url=Trim(Request("f_url")) f_address=Trim(Request("f_address")) f_ma=Trim(Request("f_ma")) f_title=Trim(Request("f_title")) content=Trim(Request("content")) If f_name="" Then response.Write "":response.End End If If f_job="" Then response.Write "":response.End End If If f_tel="" Then response.Write "":response.End End If If f_mail="" Then response.Write "":response.End End If If f_title="" Then response.Write "":response.End End If If content="" Then response.Write "":response.End End If If f_phone="" Then response.Write "":response.End End If If f_url="" Then response.Write "":response.End End If If f_address="" Then response.Write "":response.End End If If f_ma="" Then response.Write "":response.End End If Date_Time=now() if Request.ServerVariables("HTTP_X_FORWARDED_FOR")=empty then Ip=Request.ServerVariables("REMOTE_ADDR") else Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR") end if Set Rs = Server.CreateObject("Adodb.Recordset") Rs.Open "Select * from FeedBack",Conn,1,3 Rs.Addnew Rs("Date_Time")=Date_Time Rs("Ip")=Ip Rs("backer_name")=f_name Rs("backer_companyname")=f_job Rs("backer_addr")=f_address Rs("backer_fax")=f_phone Rs("backer_siteurl")=f_url Rs("backer_sex")=f_sex Rs("backer_tel")=f_tel Rs("backer_type")=f_title Rs("backer_email")=f_mail Rs("backer_content")=Chgstr(content) Rs.Update Rs.Close Set Rs = Nothing response.Write("") End If %>
首页>>客户反馈
客户反馈

您的姓名: * 称谓:
单位名称: *
联系电话: *
电子邮件: *[请填写真实的邮件地址,以便最快地收取我们给您的邮件答复]
传真号码: *
您的主页: *
联系地址: *
邮政编码: *
留言主题: *
留言内容: