formtest.asp
<%
Randomize
' 初始化随机数种子
num1=rnd()
' 产生随机数
num1=int(26*num1)+65
' 修改num1的范围,使其是A-Z范围的Ascii码,防止表单名出错
session("antry")="test"&chr(num1)
' 产生随机字符串
response.write session("antry")
%>
<form name="test" action="testact.asp" method="post">
您的姓名：
  <input type='text' name='name1' size=30>
<input type='submit' value='现在提交'>
</form>

testact.asp
' 表单处理
<%
teststr=session("antry")
if teststr="" then
response.write "没有填写用户名或已经提交"
' 如果 session("antry")为空,则判断为用户没有填写名字或表单已经提交过一次
else
response.write request("name1")&teststr
session("antry")=""
' 提交成功.清空session("antry"),以防被再次提交
end if
%>