checkindexlogin.asp

个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站

<%@LANGUAGE="VBSCRIPT.Encode" CODEPAGE="936"%>
<!-- #include file="../Inc/config.asp" -->
<!-- #include file="../Inc/vbDecode.inc" -->
<%
	dbstr="../"
	username=vbDecode(Trim(request("username")))
	if(len(username)>20) then response.end
	userpass=Trim(request("userpass"))
	dim conn,rs,sql
	set conn=getconn()
	set rs=getrs()
	
	sql="select * from users where username='"&username&"'"
	rs.open sql,conn,3,3
	if rs.bof and rs.eof then 
		errormsg="Wrong user name!"
	else
		if userpass<>rs("userpass") then 
			errormsg="Wrong password!"
		else 
			Session("master")=username			'记录用户名
			Session("masterqx")=rs("usertype")		'记录用户权限
			Session("masterlive")=rs("alive")		'记录用户状态
			Session("masterid")=rs("id")			'记录用户ID
			rs("ifonline")=1
			rs.update
			redirectstr="admin/"				
		end if
	end if
	
	if errormsg<>"" then 
		response.write(errormsg)
	else
		response.write("100|"&redirectstr)			
	end if
	
	rs.close
	closeconn(conn)	
%>