logon.asp

来自「JavaScript_VBScript网页编程实例」· ASP 代码 · 共 31 行

<%@  Language=VBScript %>
<% Response.Buffer=True %>
<%
Set Logfile=Server.CreateObject("Scripting.FileSystemObject")  
  
logfilename=Server.MapPath("log.txt")  
set R=logfile.OpenTextFile(logfilename,1,false,false)  
flag=0 
i=0 
Do while not R.AtEndOfStream  
i=i+1
Root=R.readline  
RootId=R.readline  
if Request.Form("UserName")=Root and Request.Form("Id")=RootId and i=1 then flag=1  

if Request.Form("UserName")=Root and Request.Form("Id")=RootId and i=2 then flag=2
loop  
R.close  
Session("Username")=Request.Form("UserName")  
if flag=1 then 
Response.Clear
Response.redirect "manager.asp"
elseif flag=2 then
Response.Clear
response.redirect "user.asp"
else flag=0
response.clear
response.redirect "logon.html"
end if
%>