chan_const.asp

来自「一个用ASP编写的在线的整站系统,可用于网站初学者修改,编辑个人主页!」· ASP 代码 · 共 53 行

<%
Function Get_ChallengeWord()
	'挑战随机数
	Dim MaxUserID,MaxLength
	Dim rs
	MaxLength=12
	set rs=Dvbbs.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") & ":" & Dvbbs.CacheData(21,0),32)

	Get_ChallengeWord=MaxUserID

End Function

Function Emp_ChallengeWord()

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

End Function
%>