<%@ CODEPAGE=65001 %> <% response.buffer=true Response.Expires=0 function ShowOK response.write "" & VbCRLF end function if request("test")="insert" then ' 新增 Set rs= Server.CreateObject("ADODB.Recordset") sql="select * from tconsult" rs.open sql,conn,3,2 rs.addnew rs("fname") = Request("name") rs("faddress") = Request("address") rs("fPhone") = Request("Phone") rs("ffax") = Request("fax") rs("femail") = Request("email") rs("fprono") = Request("prono") rs("fcompany") = Request("company") rs("fmemo") = Request("memo") rs("fip")=Request.ServerVariables("REMOTE_HOST") rs("ftime")=now() rs.update rs.close %> EXAC INDUSTRY (H.K.) Co.,Limited_services
                      HOMEhome
         
  about us products services contact us
Services