网上看到用了一下，先记录在此
－生成4位验证码文件
<%
dim getrandom
Randomize
getrandom=mid((rnd*100000),1,4)
Session("getrandom")=getrandom
%>
－显示验证码及输入框文件
<input name="r_random" type="text" >/Files/allancandy/num.rar
－生成4位验证码文件
<%
dim getrandom
Randomize
getrandom=mid((rnd*100000),1,4)
Session("getrandom")=getrandom
%>
－显示验证码及输入框文件
<input name="r_random" type="text" >/Files/allancandy/num.rar