gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\inc\Chan_Const.asp

    <%
Function Get_ChallengeWord()
	'挑战随机数
	Dim MaxUserID,MaxLength
	Dim rs
	MaxLength=12
	set rs=Mybbs.Execute("select Max(userid) from [Dv_user]")
	MaxUserID=rs(0)
	set rs=nothing

	Dim num1,rndnum
	Randomize
	Do While Len(rndnum)<4
		num1=CStr(Chr((57-48)*rnd+48))
		rndnum=rndnum&num1
	loop
	MaxUserID=rndnum & MaxUserID
	MaxLength=MaxLength-len(MaxUserID)

	select case MaxLength
	case 7
		MaxUserID="0000000" & MaxUserID
	case 6
		MaxUserID="000000" & MaxUserID
	case 5
		MaxUserID="00000" & MaxUserID
	case 4
		MaxUserID="0000" & MaxUserID
	case 3
		MaxUserID="000" & MaxUserID
	case 2
		MaxUserID="00" & MaxUserID
	case 1
		MaxUserID="0" & MaxUserID
	case 0
		MaxUserID=MaxUserID
	end select

	Session("challengeWord")=MaxUserID

	Session("challengeWord_key")=md5(Session("challengeWord") & ":" & Mybbs.CacheData(21,0),32)

	Get_ChallengeWord=MaxUserID

End Function

Function Emp_ChallengeWord()

	Session("challengeWord")=""
	Session("challengeWord_key")=""

End Function
%>