chklogin.asp

文学网采用飞翔网的内核和界面作了较大程度的修改和美化 主要功能有： 1、界面美化 2、增加网文周榜和推荐作品 3、增加每个栏目图片和栏目的导读 4、增加推荐作品和会员文集 5、增加会员个人管理中心 6

<!--#include file=articleconn.asp-->
<%UserName1=request.form("UserName")
if username1="" then
response.redirect "error.asp?id=012"
response.end
end if
if request.form("passwd")="" then
response.redirect "error.asp?id=013"
response.end
end if
dim rs

PassWd1=request.form("PassWd")
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin where UserName='" & UserName1 & "'",conn,1
if rs.eof then
response.redirect "error.asp?id=055"
response.end
end if
if passwd1<>rs("passwd") then
response.redirect "error.asp?id=031"
response.end
else
session("UserName")=RS("Username")
session("Passwd")=rs("Passwd")
session("KEY")=rs("OSKEY")
response.redirect "userlogin.asp"
end if
rs.close
%>