check.asp

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

<!--#include file=conn.asp-->
<!--#include file=inc/md5.asp-->
<%
dim rs,sql
dim zkz,password
zkz=request.form("zkz")
password=md5(request.form("password"))
if zkz="" then
response.redirect"error.asp?id=5"
else
set rs=server.createobject("adodb.recordset")
sql="select * from user where zkz='"&zkz&"'"
rs.open sql,conn,1,1
if rs.eof then
response.redirect"error.asp?id=6"
elseif zkz=rs("zkz") and password=rs("Password") then
response.cookies("cnwy")="cnwy"
response.cookies("name")=rs("name")
response.cookies("kt")=rs("kt")
response.cookies("class")=rs("class")
response.cookies("zkz")=rs("zkz")
response.redirect"main.asp"
elseif password="" then
response.redirect"error.asp?id=7"
else
response.redirect"error.asp?id=8"
rs.close
set rs=nothing
set conn=nothing
end if
end if
%>