<% Dim num1,rndnum Randomize Do While Len(rndnum)<4 num1=CStr(Chr((57-48)*rnd+48)) rndnum=rndnum&num1 Loop session("verifycode")=rndnum %>

		用户名： 密  码：