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 %>