const.asp

中国网站网贴吧程序源码（ASP+ACCESS） 实现功能： 多级分类查找,可按多级分类查找贴吧,多用户申请,任何人都可以申请自己的贴吧, 用户三种权限管理,1,普通会员,2,普通版主(只有管理自己的贴

<%
	Dim FoundUser,UserID,UserGroupID,Integral,UserName,LastLogin
	Sql="select UserID,UserGroupID,Integral from QiQiBoy_User_Disp where UserName='"&Request.Cookies("UserName")&"' and Pwd='"&Request.Cookies("Pwd")&"'"
	Set Rs=Conn.execute(Sql)
	if not rs.eof then
		FoundUser 	= True
		UserID		= Rs(0)
		UserGroupID	= Rs(1)
		Integral	= Rs(2)
		UserName  	= Request.Cookies("UserName")
		LastLogin 	= Request.Cookies("LastLogin")
	Else
		FoundUser 	= False
	End if
%>