📄 loginchick.asp

📁 该系统实现居域网网络考试和,系统平分轻松实现

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
dim admin,password
admin=request.Form("admin")
password=md5(request.Form("password"))
if admin="" or request.Form("password")="" then
response.Write("<script>alert('用户名密码不能为空');window.location.href('login.asp')</script>")
response.End()
end if
set rs=server.createobject("adodb.recordset")
cmd="select * from admin where username like '"&admin&"' and password like '"&password&"'"
rs.open cmd,conn,1,3
if not rs.eof then
session("admin")=rs("username")
session("key")=rs("key")
response.Write("<script>alert('用户登陆成功');window.location.href('main.asp')</script>")
else
response.Write("<script>alert('用户登陆失败');window.location.href('login.asp')</script>")
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -