📄 checklogin.asp

📁 医药进销存管理系统全代码很详细可惜没有数据库可供参考

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>登录验证</title>
</head>
<body>
<%
on error resume next
userid=Trim(Request("userid"))             '提交用户ID号
userpwd=Request("userpwd")                 '提交用户密码
If userid="" Then      
   Session("msg")="用户ID不能为空"
ElseIf userpwd="" Then
    Session("msg")="用户密码不能为空"
end if
%>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
	Strsql="Select * from tb_User where UserID='"&userid&"'"
	rs.open Strsql,conn,3,3
	if not isnumeric(userid) then                '如果不存在该ID号
	   Session("msg")="请输入正确ID"
	else
	If rs.Eof Then                  '如果用户不存在
	    Session("msg")="不存在此用户"
    Else
	    If rs("UserPass")<>userpwd Then
		    Session("msg")="密码错误"
		Else
		    Session("msg")=""
			Session("UserID")=userid
			Session("flag")=rs("Flag")
		    Session("passed")=true
			Session("Timeout")=90
            Session("username")=rs("UserName")
			Response.Redirect("../default.htm")         '登录成功跳转到后台管理首页  
		End If
	End If
End If
If Session("msg")<>"" Then
  Response.Redirect("../default.asp")       '密码错误跳转到后台登录页面
End If
Rs.close             '关闭记录集
Set Rs=Nothing             '将记录集在系统内存中清除
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -