validitycheck.asp

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

<%
sub validitycheck(What,Reason)
	Select Case LCase(What)
	Case "founduser"
		if request.Cookies("UserName")="" then
			Response.Write ("<script>alert('友情提示!\n\n您不是注册会员,不能收藏帖子!');history.back();</script>")
			Response.end
		end if
	Case "userinfo"
		if request.Cookies("UserName")="" then
			Response.Write ("<script>alert('友情提示!\n\n您不是注册会员,不能查看会员信息!');window.close();</script>")
			Response.end
		end if
	Case "managetopic"
		if UserName="" then
			Response.Write ("<script>alert('友情提示!\n\n您不是斑竹或管理员,不能管理帖子!');history.back();</script>")
			Response.end
		end if
		If UserGroupID<>2 and UserGroupID<>3 then
			Response.Write ("<script>alert('友情提示!\n\n您不是斑竹或管理员,不能管理帖子!');history.back();</script>")
			Response.end
		Elseif UserGroupID<>3 then
			Dim M_BoardMaster,M_CanEdit
			M_CanEdit=False
			Sql="Select BoardNlass,BoardClass,BoardChild from QiQiBoy_Topic_Disp where TopicID="&Reason
			Set Rs=Conn.execute(Sql)
			Sql="select BoardMaster from QiQiBoy_Board_Disp where BoardNlass="&Rs(0)&" and BoardClass="&Rs(1)&" and BoardChild="&Rs(2)
			Set Rs=Conn.execute(Sql)
			M_BoardMaster=Split(Rs(0),"|")
			For x = 0 to Ubound(M_BoardMaster)
				If UserName=M_BoardMaster(x) then
				M_CanEdit=True
				Exit For
			end if
			Next
			If M_CanEdit=False then
			Response.Write ("<script>alert('友情提示!\n\n您不是斑竹或管理员,不能管理帖子!');history.back();</script>")
			Response.end
			end if
		end if
	End Select
end sub

Sub CheckUserNameValidity(UserName)
	if Len(UserName)<3 or Len(UserName)>18 or Instr(UserName,">")>0 or Instr(UserName,"<")>0 or Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr(UserName,chr(32))>0 or Instr(UserName,"?")>0 or Instr(UserName,"&")>0 or Instr(UserName,";")>0 or Instr(UserName,",")>0 or Instr(UserName,"'")>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"