mfk_login_code.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<%
sub code1
		dim num1
		dim rndnum
		Randomize
		Do While Len(rndnum)<4
		num1=CStr(Chr((57-48)*rnd+48))
		rndnum=rndnum&num1
		loop
session("code1")=rndnum
response.write ("　<b>"&rndnum&"</b>")
end sub

sub code2
		dim num1
		dim rndnum
		Randomize
		Do While Len(rndnum)<4
		num1=CStr(Chr((57-48)*rnd+48))
		rndnum=rndnum&num1
		loop
session("code2")=rndnum
response.write ("　<b>"&rndnum&"</b>")
end sub
%>