%dim action action=replace(trim(request("action")),"'","") if action="save" then set sql=server.CreateObject("adodb.recordset") sql.open"select * from dingdan",conn,1,3 sql.addnew sql("name")=trim(request("name")) sql("tel")=trim(request("tel")) sql("fax")=trim(request("fax")) sql("email")=trim(request("email")) sql("company")=trim(request("companyname")) sql("address")=trim(request("address")) sql("youbian")=trim(request("youbian")) sql("pdname")=trim(request("pdname")) sql("num")=trim(request("num")) sql("ddcontent")=trim(request("content")) sql("adddate")=now() sql.update sql.close set sql=nothing response.Write"" response.End end if %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||