sys_modify1.asp

该系统是宿舍管理系统

<!--#include file="conn.asp"-->
<%
set rs2=Server.CreateObject("ADODB.Recordset")
  sql2="select * from admin"
  rs2.open sql2,conn,2,3
%>
<%
if session("admin") <> rs2("admin") or session("adminpass") <> rs2("adminpass") then
response.write("<script>alert('你还没有登录，无法访问该页！')</script>") 
server.transfer("admin_login.asp")
end if
%>
<%
dim webname,weburl,adminemail
webname=request("webname")
weburl=request("weburl")
adminemail=request("adminemail")
if webname="" then
response.write("<script>alert('网站名称必须填写！')</script>") 
server.transfer("sys_modify.asp")
end if
if weburl="" then
response.write("<script>alert('网址必须填写！')</script>") 
server.transfer("sys_modify.asp")
end if
if adminemail="" then
response.write("<script>alert('站长E-mail必须填写！')</script>") 
server.transfer("sys_modify.asp")
end if
rs2("weburl")=weburl
rs2("webname")=webname
rs2("adminemail")=adminemail
rs2.update
rs2.close
set rs2=nothing
response.write("<script>alert('修改成功！')</script>") 
server.transfer("sys_modify.asp")
%>
<!--#include file="close.asp"-->