chkdl.asp

好！由此可以引申出另一快速恢复多系统启动选单的方法：就是利用Ghost克隆工具

<!--#include file="conn.asp"-->
<%
dim flag
dim sql
dim rs
dim username '从form获取的用户名
dim password '从from获取用户密码
dim shenfen  '从form获取用户身份
dim method
method=request.querystring("method") '登陆方式确定是发新闻还是修改资料
username=request.form("txtuser") 
password=request.form("txtpass")

if method="news" then
  path="news" '如果是发新闻的话
elseif method="gzl" then
  shenfen=request.form("shenfen") '如果是修改资料的话。
  if shenfen="null" then
   response.redirect "error.asp?errorid=6"
  end if  
  path="gzl" 
elseif method="admin" then
  path="admin" '如果是管理员登陆的话
else
  response.redirect "error.asp?errorid=1" '如果method为空的话就退出
end if

if len(password)>8 then '如果输入的密码大于8位的话
 response.redirect "error.asp?errorid=3"
 response.end
end if
if path="news" then '如果是发新闻必须是合法用户
   sql="select * from lm where pass=true and username='" & username & "'" 
elseif path="gzl" then '如果是改资料的话分为正式与待审成员
   if shenfen="dsmember" then
     sql="select * from lm where pass=false and username='" & username & "'"
   elseif shenfen="member" then
     sql="select * from lm where pass=true and username='" & username & "'"
   end if
elseif path="admin" then '如果是管理员登陆就到admin表里去验证
   sql="select * from admin where username='" & username & "'"
end if

set rs=conn.execute(sql)
if rs.eof and rs.bof then '如果没找到记录就说明不存在的用户名
  response.redirect "error.asp?errorid=7"
  response.end
else
 if password<>rs("password") then '验证密码
  response.redirect "error.asp?errorid=7"
  response.end
 end if
end if

if path="news" then
  session(username & "news")="true"  ' 设置标志说明验证通过
  response.redirect "news.asp?user=" & username
elseif path="gzl" then  
  session(username & "gzl")="true"
  response.redirect "gzl.asp?user=" & username & "&shenfen=" & shenfen    
elseif path="admin" then
  session("ymadminok")="true"
  response.redirect "manage.asp"
end if
rs.close
%>