% ranNum=int(9*rnd)+10 iddata=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum dim name,tel,product,email,address,youbian,content,codeID dim Rs,Sql,Action name=dvHTMLEncode(Trim(Request.Form("name"))) tel=dvHTMLEncode(Trim(Request.Form("phone"))) product=dvHTMLEncode(Trim(Request.Form("chanpin"))) email="" address=dvHTMLEncode(Trim(Request.Form("addr"))) youbian="" content=dvHTMLEncode(Trim(Request.Form("body"))) codeID=Trim(Request.Form("codeID")) set Rs=server.createobject("adodb.recordset") Sql="SELECT * FROM dingdan " rs.open sql,conn,3,3 Rs.Addnew rs("DDname")=name rs("DDtel")=tel rs("DDprjc")=product rs("DDEmail")=email rs("DDaddr")=address rs("DDyoubian")=youbian rs("DDcontent")=content rs("DDcodeID")=iddata rs("refererID")=codeID rs("DDtime")=now() Rs.update Rs.close set Rs=nothing Call CloseConn() %>
|
||||