checkadmin.asp

来自「自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑」· ASP 代码 · 共 10 行

<%
Dim adminname,adminpassword
adminname=Trim(Split(const_admin,"|")(0))
adminpassword=Trim(Split(const_admin,"|")(1))
If Session("adminname")=adminname and Session("adminpassword")=adminpassword Then
Else
  Response.write "<script>top.location.href='"&const_txl_HomeUrl&"manage/login.asp';</script>"
  Response.End
End if
%>