<%
  Server.ScriptTimeout=50000
  Response.Buffer = True
  On Error Resume Next
  ApplicationName = "站长助手6 增强版"
  UserPass = "123456" '登陆密码
  URL = Request.ServerVariables("URL")
  ServerIP = Request.ServerVariables("LOCAL_ADDR")
  Action = Request("Action")
  RootPath = Server.MapPath(".")
  WWWRoot = Server.MapPath("/")
  FolderPath = Request("FolderPath")
  FName = Request("FName")
  BackUrl = "<meta http-equiv='refresh' content='2;URL=?Action=ShowFile'>"
  
  If Session("webadmin")<>UserPass Then
   If Request.Form("Pass")<>"" Then
   If Request.Form("Pass")=UserPass Then
   Session("webadmin")=UserPass
   Response.Redirect URL
   Else
   response.write"验证失败！"
   End If
   Else
   SI="<center style='font-size:12px'><br><br>欢迎使用ASP站长助手<br><br>"
   SI=SI&"<form action='"&URL&"' method='post'>"
   SI=SI&"密码：<input name='Pass' type='password' size='15'>"
   SI=SI&" <input type='submit' value='登录'></form></center>"
   Response.Write SI
   End If
   Response.End
  End If
  
  sub ShowErr()
   If Err Then
   Response.Write"<br>

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

在google里搜索更多ASP站长助手源代码

	Web www.51ec.org

上一篇信息学院： 在ASP中结合对象和组件

下一篇信息学院： 解析ASP的Application和Session对象