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

管理员名称：
管理员密码：
输入附加码：
	请在附加码框输入 <%=session("verifycode")%>