function.asp

《学校机房作业管理系统》采用ASP+Aceesss+ ServU构架

<% 
function MyRandc(n)
 thechr = ""
 for i=1 to n
  Randomize timer
  zNum = cint(25*Rnd)
  if zNum mod 2 = 0 then
   zNum = zNum + 97
  else
   zNum = zNum + 65
  end if
  thechr = thechr & chr(zNum)
 next
 MyRandc = thechr
end function
 %>