validate.inc

来自「一个用ASP编制的电子留言板」· INC 代码 · 共 39 行

<% Randomize
dim keya(4)
public keyb
public sub keyc(val)
select case val
case 0
%>
<img src="img/0.JPG" width="11" height="20">
<% case 1 %>
<img src="img/1.JPG" width="11" height="20">
<% case 2 %>
<img src="img/2.JPG" width="11" height="20">
<% case 3 %>
<img src="img/3.JPG" width="11" height="20">
<% case 4 %>
<img src="img/4.JPG" width="11" height="20">
<% case 5 %>
<img src="img/5.JPG" width="11" height="20">
<% case 6 %>
<img src="img/6.JPG" width="11" height="20">
<% case 7 %>
<img src="img/7.JPG" width="11" height="20">
<% case 8 %>
<img src="img/8.JPG" width="11" height="20">
<% case 9 %>
<img src="img/9.JPG" width="11" height="20">
<%
end select
end sub
for i=0 to 3
keya(i)=int(10*rnd)
keyb=keyb+cstr(keya(i))
call keyc(keya(i))
next
//传递变量
 Response.write("<TD><input name=keyd type=hidden id=keyd value="&keyb&"></TD>") 
%>