<%genPassword = \”\”RandomizeFor i = 1 to 8intNum = Int(10 * Rnd + 48)intUpper = Int(26 * Rnd + 65)intLower = Int(26 * Rnd + 97)intRand = Int(3 * Rnd + 1)Select Case intRandCase 1strPartPass = Chr(intNum)Case 2strPartPass = Chr(intUpper)Case 3strPartPass = Chr(intLower)End SelectgenPassword = genPassword & strPartPassNextresponse.write(genPassword & \”<br>\”)%>\’ 显示浏览器表头信息和服务器变量<%For Each name In Request.ServerVariablesResponse.write(\”<b>\”&name&\”</b>:<br>\”)Response.write(Request.ServerVariables(name))Next%>
[1]