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>