isuser.asp

本同学录系统演示地址: http://class.19870123.cn/ 下载后请在Web.Config里更改设置,如数据库路径等 如果要换sql数据库,请将app_code里的MyPage

<% 
  '从Session变量中读取注册用户信息，并连接到数据库验证
  UserId = Trim(Session("UserId"))
  Pwd = Trim(Session("UserPwd"))
  '如果用户名为空，则显示提示信息
  If UserName = "" Then
    Response.Write("请登录后使用本系统！")
    Response.End
  Else
    '连接数据库，进行身份验证
    sql="SELECT * FROM Person WHERE UserId='" & UserId & "' AND UserPwd='" & Pwd & "'"
    Set rs = conn.Execute(sql)
    If rs.EOF Then
      Response.Write("请登录后使用本系统！")
      Response.End
    End If
  End If
%>