% Dim CID,ID CID=5 ID=Clng(Request("ID")) if Request("action")="gopost" then If request.form("Somane")="" Then Response.Write("") response.end end if If request.form("Comane")="" Then Response.Write("") response.end end if If request.form("Phone")="" Then Response.Write("") response.end end if Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from Lz_book" rs.open sql,conn,1,3 rs.addnew rs("UserID")=Session("UserName") rs("CompName")=server.HTMLEncode((request.form("Comane"))) rs("Lxr")=server.HTMLEncode(request.form("Somane")) rs("tel")=server.HTMLEncode(request.form("Phone")) rs("Fax")=server.HTMLEncode(request.form("Fox")) rs("email")=server.HTMLEncode(request.form("email")) rs("title")=server.HTMLEncode(request.form("title")) rs("content")=server.HTMLEncode(request.form("content")) rs("mobile")=server.HTMLEncode(trim(request("mobile"))) rs("number")=request("number") rs("ip")=getip rs("bank")=request("bank") rs("datetime")=now() rs.update rs.close Alert_GoUrl "您的订购内容已经成功发表,请等待管理员回复,感谢您的参与","index.asp" Response.end End if %>
|
||||||||||
|
||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||
|