check.asp

来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 33 行

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->

<%
dim rs
UserName=request.form("UserName")
password=md5(request.form("password"))
if username="" then
response.redirect"../error.asp?id=2"
else
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'"
rs.open sql,conn,1,3
if rs.eof then
response.redirect"../error.asp?id=3"
elseif username=rs("userName") and password=rs("Password") then
rs("IP")=Request.ServerVariables("REMOTE_ADDR")
rs("time")=Now()
rs.update
session("login")="login"
response.redirect"admin.asp"
elseif password="" then
response.redirect"../error.asp?id=2"
else
response.redirect"../error.asp?id=1"


rs.close
set rs=nothing
end if
end if
%>