% 'NetsysID=Request("NetsysID") 'NetsyClass=Trim(Request.Form("NetsyClass")) web_name=Request("web_name") web_keyword=Request("web_keyword") web_desp=Request("web_desp") web_email=Request("web_email") web_qq=Request("web_qq") web_tel=Request("web_tel") web_url=Request("web_url") web_beian=Request("web_beian") sql="select top 1 * from web_conn" if request.Form("modify")="yes" then set rs=createobject("adodb.recordset") rs.open sql,conn,1,3 rs("web_name")=web_name rs("web_keyword")=web_keyword rs("web_desp")=web_desp rs("web_email")=web_email rs("web_qq")=web_qq rs("web_tel")=web_tel rs("web_url")=web_url rs("web_beian")=web_beian rs.update rs.close set rs=nothing response.Write "" Response.end end if set rspro=createobject("adodb.recordset") rspro.open sql,conn,1,1 'If Request.Cookies("Netsys")("NetsyClass")<>"管理员" Then 'IF Request.Cookies("Netsys")("NetsysName")= rspro("NetsysName") then %>
|
|