chkmember.asp

来自「欢迎使用《雨点下载系统 2.0》！ 本系统仅提供给个人网站免费使用」· ASP 代码 · 共 25 行

<%dim chkmember
chkmember=true
if Request.Cookies("ydxz")("usr")="" or Request.Cookies("ydxz")("pwd")="" then
	chkmember=false
else
	dim rsu,sqlu,power,mypoint
	sqlu="select top 1 Power,LockUser,Point from UserInfo where USR='"&Request.Cookies("ydxz")("usr")&"' and PWD='"&Request.Cookies("ydxz")("pwd")&"'"
	set rsu=conn.execute(sqlu)
	if rsu.eof and rsu.bof then
		chkmember=false
	elseif rsu(1)=True then
		chkmember=false
%>
<script language=vbscript>
  MsgBox "此用户已被锁定，请与管理员联系！"
  location.href = "#"
</script>
<%
	else
		power=split(rsu(0),",")
		mypoint=rsu(2)
	end if
	set rsu=nothing
end if
%>