文件一:表单文件formtest.asp
<%
Randomize '初始代随机数种子
num1=rnd() '产生随机数num1
num1=int(26*num1)+65 '修改num1的范围以使其是A-Z范围的Ascii码,以防表单名出错
session("antry")="test"&chr(num1) '产生随机字符串
%>
<form name="test" action="testact.asp" method="post">
你的名字:<input type='text' name='' size=30> '注意本行中使用了随机表单项名
<input type='submit' value='提交'>
</form>
表单处理程序testact.asp
<%
teststr=request.form(session("antry"))
if teststr="" then
response.write "没有填写姓名或重复提交" '由于用户没有填写名字,或表单被重复提交(标志为session("antry")为空)引起
else
response.write teststr
session("antry")="" '提交成功,清空session("antry"),以防重复提交!!
end if
%>
在这里,你只需随机化一个必填项目的表单项名即可,不必随机化所有的表单项目