logincheck_class.asp

起点9 V2.0小说整站系统 介绍： 1、 采用企业级标准应用三层架构

<!--#include file="md5.asp"-->
<!--#include file="conn.asp"-->
<%
pnum=request("pnum")
bid=request("bid")
cid=request("cid")
did=request("did")
if pnum="" then
pnum=500
end if
username=request("username")
userpass=request("userpass")
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from "&prefix&"userpro where username='"&username&"' and userpass='"&md5(userpass)&"'"
rs.open sql,conn,1,1
if rs.eof then
result="登陆失败!<a href=""login.asp?pnum="&pnum&""">返回</a>"
elseif bid<>"" then
result="登陆成功!<a href=""show.asp?bid="&bid&"&amp;pnum="&pnum&"&amp;uid="&rs("id")&"&amp;ups="&rs("userpass")&""">点这里继续</a>"

elseif cid<>"" then
result="登陆成功!<a href=""chapter.asp?cid="&cid&"&amp;pnum="&pnum&"&amp;uid="&rs("id")&"&amp;ups="&rs("userpass")&""">点这里继续</a>"
elseif did<>"" then
result="登陆成功!<a href=""comment.asp?bid="&did&"&amp;pnum="&pnum&"&amp;uid="&rs("id")&"&amp;ups="&rs("userpass")&""">点这里继续</a>"
else
result="登陆成功!<a href=""index.asp?pnum="&pnum&"&amp;uid="&rs("id")&"&amp;ups="&rs("userpass")&""">返回</a>"
end if
rs.close
%>