<% Randomize '初始代随机数种子 num1=rnd() '产生随机数num1 num1=int(26*num1)+65 '修改num1的范围以使其是A-Z范围的Ascii码，以防表单名出错 session.Timeout=50 session("aa")="form"&chr(num1) '产生随机字符串 %>

常 用 电 话