<% Dim num1,rndnum Randomize Do While Len(rndnum)<4 num1=CStr(Chr((57-48)*rnd+48)) rndnum=rndnum&num1 Loop session("verifycode")=rndnum jianpankai=1 %>
管理中心登陆----Administer Login
管理员：
密 码：
附加码：
请输入:
<%=session("verifycode")%>