<%
　　Randomize　'初始代隨機數(shù)種子
　　num1=rnd() '產(chǎn)生隨機數(shù)num1
　　num1=int(26*num1) 65　'修改num1的范圍以使其是A-Z范圍的Ascii碼，以防表單名出錯
　　session("antry")="test"&chr(num1)　'產(chǎn)生隨機字符串
　　%>
　　<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
　　%>