<% '****************************** '函数：MakePassword(byval maxlen) '参数：maxlen，要生成的密码位数长度 '作者：阿里西西 '日期：2007/7/12 '描述：产生任意位数随机密码 '示例：<%=MakePassword(8)%>  '****************************** function MakePassword(byval maxlen)  dim strnewpass  dim whatsnext, upper, lower, intcounter  randomize  for intcounter = 1 to maxlen  whatsnext = int((1 - 0 + 1) * rnd + 0)  if whatsnext = 0 then  'character  upper = 90  lower = 65  else  upper = 57  lower = 48  end if  strnewpass = strnewpass & chr(int((upper - lower + 1) * rnd + lower))  next  makepassword = strnewpass  end function  %>