'if isnumeric(session("UserID")) then '如果已登录就不用打开新窗口了
' if session("UserID")>0 then
' Response.Write "<script>"
' Response.Write "alert('"& session("UserID") &"');"
' Response.Write "</script>"
' Response.End
' end if
'end if
dim LoginName
dim PassWord
dim VerifyLogin
dim strSchoolID
dim fso
dim path
dim file
dim fso1
dim path1
dim file1
set fso1=server.CreateObject("Scripting.FileSystemObject")
path1="c:\login\login@" & LoginName & ".txt"
set file1=fso1.OpenTextFile(path1,8,TRUE)
file1.writeline(LoginName)
file1.close
set file1=nothing
set fso1=nothing
'Response.Write verifylogin
'Response.End
if VerifyLogin=-1 then
response.write "<script>alert('密码或登录名错误');</script>"
response.end
end if
set fso=server.CreateObject("Scripting.FileSystemObject")
path="c:\login\" & LoginName & ".txt"
set file=fso.OpenTextFile(path,8,TRUE)
file.writeline(LoginName)
file.close
set file=nothing
set fso=nothing