<%@ codepage = 936 LCID = 2052 %> <% 'get action action = Trim(Request.Form("action")) Select Case action Case "add": ' Add 'get fields from form x_yourName = Request.Form("yourName") x_yourAddress = Request.Form("yourAddress") x_yourCompany = Request.Form("yourCompany") x_yourPhone = Trim(Request.Form("yourPhone")) x_yourFax = Trim(Request.Form("yourFax")) x_buyedProduct = Trim(Request.Form("buyedProduct")) x_buyedDate = Trim(Request.Form("buyedDate")) x_needProduct = Trim(Request.Form("needProduct")) x_yourMainPage = Trim(Request.Form("yourMainPage")) x_yourEmail = Trim(Request.Form("yourEmail")) x_leaveWord = Trim(Request.Form("leaveWord")) If (x_yourName="") Or (x_yourAddress="") Or (x_yourCompany="") Or (x_yourPhone="") Or (x_needProduct="") Or (x_yourEmail="") Or (x_leaveWord="") Then Response.Write("") Response.end End If ' Open record StrSql = "SELECT * FROM [feedback] WHERE 0 = 1" set rs = Server.CreateObject("ADODB.Recordset") rs.Open StrSql, conn, 1, 2 rs.AddNew tmpFld = Trim(x_yourName) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("yourName") = tmpFld tmpFld = Trim(x_yourAddress) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("yourAddress") = tmpFld tmpFld = Trim(x_yourCompany) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("yourCompany") = tmpFld tmpFld = Trim(x_yourPhone) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("yourPhone") = tmpFld tmpFld = Trim(x_yourFax) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("yourFax") = tmpFld tmpFld = Trim(x_buyedProduct) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("buyedProduct") = tmpFld tmpFld = Trim(x_buyedDate) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("buyedDate") = tmpFld tmpFld = Trim(x_needProduct) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("needProduct") = tmpFld tmpFld = Trim(x_yourMainPage) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("yourMainPage") = tmpFld tmpFld = Trim(x_yourEmail) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("yourEmail") = tmpFld tmpFld = Trim(x_leaveWord) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("leaveWord") = tmpFld rs.Update rs.Close Set rs = Nothing conn.Close Set conn = Nothing Response.Clear Response.Write("") End Select %>

				关键字：
版权所有:济南白鹤塑料有限责任公司 地址:中国 济南市明湖北路1号 电话:86-531-82332327 86961175 传真:86-531-82332329 86961795 Email:baihe@163169.net xs@baiheplastic.com 邮政编码:250033