1.right(rnd(),5)
2.
<script language="vbscript"> 
'字符检查                              
function check()
for a=97 to 122
if instr(ou.num.value,chr(a))=1 or instr(ou.num.value,chr(a-32))=1then                               
     okk=1
 exit for
     ou.num.focus                             
     check=false                          
     exit function                               
end if          
next 
if okk=1 then msgbox "输入不是全部数字!"
check=true                  
end function                               
sub ok()
if check=true then
ou.submit
end if
end sub
</script>
<form name="ou" method="post" action="ou.asp">
  <input type="text" name="num">
  <input type="button" name="Submit" value="送出" onclick="ok()">
</form>给分吧!!