admin.asp

来自「公司企业网站管理系统全站源码,用于企业内部对网站的管理」· ASP 代码 · 共 18 行

<%
dim ComeUrl,cUrl,AdminName

AdminName=replace(session("AdminName"),"'","")
if AdminName="" then
	call CloseConn()
	response.redirect "login.asp"
	response.End()
end if
sql="select UserName from Admin where UserName='" & session("AdminName") & "' and Password='" & session("AdminPassword") & "'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
  rs.close
  response.Redirect("login.asp")
  response.End()
end if
%>