chkuser_login.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="md5.asp"-->
<%if session("verifycode")=request("yz") then
session("verifycode")=""
else
Response.Write("<script>alert(""错误的验证码"");location.href=""index.asp"";</script>")
Response.end
end if%>
<%
if request("username")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('用户名不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if
if request("password")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('密码不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if



username=request("username")
password = md5(Qcdn.checkStr(Trim(Request("password"))),16)

sql="select * from article_user where username='"&username&"' and password='"&password&"' "
set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('用户名或密码或验证码不正确!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
else
Response.Cookies("qcdn")("user_name") = rs("username")
			Response.Cookies("qcdn")("password") = rs("password")
			Response.Cookies("qcdn")("u_id") = rs("Unid")
			Response.Cookies("qcdn")("userlevel") = rs("userlevel")
			Session("userlevel")=rs("userlevel")
			Session("user_Name")=username
response.redirect "index.asp"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>