联系人: 姜爱荣
电话:0515-85922898
    0515-85520868
传真:0515-85922890
    0515-85524898
手机: 13851305111
E-mail:changfeng@cnchangfeng.com
网址:http://www.cnchangfeng.com
地 址:江苏省东台市溱东青蒲工业园区
邮编:224212


 
 
 
 
 
 
<% if request("action_e")<>"" then If Request.Form("name")="" Then call showerr("姓名不能为空!") End If If Len(Request.Form("name"))>20 Then call showerr("姓名不能太!") End If If Request.Form("words")="" Then call showerr("留言不能为空") End If Set Rs = Server.CreateObject("ADODB.RecordSet") Sql="Select * From words2" Rs.Open Sql,Conn,2,3 Rs.AddNew Rs("name")=Server.HTMLEncode(Request.Form("name")) Rs("country")=Server.HTMLEncode(Request.Form("country")) Rs("dw")=Server.HTMLEncode(Request.Form("dw")) Rs("sex")=Server.HTMLEncode(Request.Form("sex")) Rs("head")=Server.HTMLEncode(Request.Form("head")) Rs("web")=Server.HTMLEncode(Request.Form("web")) Rs("sj")=Server.HTMLEncode(Request.Form("sj")) Rs("fax")=Server.HTMLEncode(Request.Form("fax")) Rs("email")=Server.HTMLEncode(Request.Form("email")) Rs("words")=Server.HTMLEncode(Request.Form("words")) Rs("qq")=Server.HTMLEncode(Request.Form("qq")) Rs("head")=Server.HTMLEncode(Request.Form("Image")) Rs("date")=Now() Rs("ip")=request.servervariables("remote_addr") Rs("ipadd")=address(request.servervariables("remote_addr")) Rs("come")=Server.HTMLEncode(Request.Form("come")) Rs.Update Rs.Close Set Rs = Nothing response.write "" response.end end if %>
请留下您的宝贵意见
姓名:
*
地址:
电话:
手机:
传真:
性别:
先生 女士
网址:
QQ:
MSN:
Email:




您的宝贵意见:
*

 
版权所有 江苏长风波纹管有限公司