《学校机房作业管理系统》采用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
				 %>