checkcode.asp

一个行政网站加一个宣传网站

<%
'If Session("AdminUID") = "" then
			dim num1
			dim rndnum
			Randomize
			Do While Len(rndnum)<4
			num1=CStr(Chr((57-48)*rnd+48))
			rndnum=rndnum&num1
			loop
			session("verifycode")=rndnum
'Else
'session("verifycode")=""
'End If
%>
<%
countsize=len(rndnum)
for n=1 to countsize
response.write "<img src=images/numpic/"& mid(rndnum,n,1) &".gif>"
next
%>