网址提交

<%set rs=server.createobject("adodb.recordset") dim Login_Menu,Login_UrlNmae,Login_Url,Login_Class,Login_Tel,Login_Email,Login_Memo Login_UrlNmae=Request.Form("Login_UrlNmae") Login_Url=Request.Form("Login_Url") Login_Class=Request.Form("Login_Class") Login_Tel=Request.Form("Login_Tel") Login_Email=Request.Form("Login_Email") Login_Memo=Request.Form("Login_Memo") Login_Menu=Request.Form("Login_Menu") if Login_Menu="Add" then rs.open"select * from Login where Login_Url='"&Login_Url&"'",conn,1,3 if not rs.eof and not rs.bof then Response.Write("
") Response.End() end if rs.close rs.open"select * from Login",conn,1,3 rs.addnew rs("Login_UrlNmae")=Login_UrlNmae rs("Login_Url")=Login_Url rs("Login_Class")=Login_Class rs("Login_Tel")=Login_Tel rs("Login_Email")=Login_Email rs("Login_Memo")=Login_Memo rs.update rs.close Response.Write("
") Response.End() else Response.Redirect ("../") end if %>