上传您的相片： <% Call add() %>

<% Sub add() Dim MyValue Randomize MyValue = Int((9999 - 1000 + 1) * Rnd + 1000) session("codes")=MyValue %>

姓名：	*
性别：	男女
年龄：
职业：
地区：
QQ：
主页：
E-mail：	*
Tel：
验证码：	<%=MyValue%>

<% End Sub %>