登陆.txt

来自「刚做的数据库和ASP做的班级管理系统效果不错」· 文本 代码 · 共 30 行

<!--#include file="Connections/connlogin.asp"-->
<%  if request.Form("user")="" then
    response.Write"<script language=javascript>alert('请输入用户名');history.back(-1);</script>"
 response.End()
 end if
 if request.Form("pwd")="" then
 response.Write"<script language=javascript>alert('请输入密码');history.back(-1);</script>"
 response.End()
 end if
    user=trim(request.Form("user"))
    pwd=trim(request.Form("pwd"))
 sql="select * from login where user='"&user&"' and pwd='"&pwd&"'"
 set rs=server.CreateObject("adodb.recordset")
 rs.open sql,cn,1,1
 if rs.eof then
 response.Write"<script> alert('无此用户');history.back(-1);</script>"
 response.End()
 else 
      session("user")=rs("user")
   session("level")=rs("level")
      response.Redirect"index.asp"
 end if
 rs.close
 set rs=nothing
 cn.close
 set cn=nothing
 
%>