checkuser.asp

教师论文管理系统 主要是完成注册登陆身份验证以及上传教师论文上传等

<!-- file name:checkuser.asp -->
<%@ Language="VBScript" %>
<%
'获得客户输入的登录名与密码：
Dim nick,password
nick=Request.Form("nick")
password=Request.Form("password")
'创建XML DOM对象：
set xmldoc=server.createObject("MSXML.DOMDocument")
xmldoc.async="false"
'载入存放客户注册信息的文档Users.xml：
xmldoc.load(server.mappath("users.xml"))
'调用selectNodes方法获得其中所有的Nick(登录名)节点，
'并赋给nodes节点集合：
set nodes=xmldoc.selectNodes("//nick")
'利用循环将客户输入的登录名与注册表中的登录名逐个对比，如果对上，
'就将注册表中该登录名对应的密码赋给Password1变量，并退出循环：
for i=0 to nodes.length-1
   if Nodes(i).text=nick then
     password1=Nodes(i).nextSibling.text
     exit for
   End if
next
'如果循环结束仍未对上，则显示“登录名不存在”并要求重新登录：
if i>=nodes.length then
    set xmldoc=nothing
    Response.write "<center>登录名不存在,"&"单击<a href=JavaScript:history.go(-1)>"&"这里</a>重新登录."
    Response.End
End if
if password<>password1 then
  set xmldoc=nothing
  Response.write "<center>密码错误,"&"单击<a href=JavaScript:history.go(-1)>"&"这里</a>重新登录."
  Response.End
End if
set xmldoc=nothing
Response.redirect("GBList.asp")
%>