validitycheck.asp

统管理：初始设置

<%
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 Aymi_Topic_Disp where TopicID="&Reason
			Set Rs=Conn.execute(Sql)
			Sql="select BoardMaster from Aymi_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)<2 or Len(UserName)>16 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,"