设计思路:
'利用动态session("flag")来判断是否添加数据
'如果刷新页面,session("flag")=request("flag")
<% if request("submit")="提交" and request("flag")<>"" and session("flag")<>request("flag") then %>
……
'提交后处理程序
……
'处理后,设置
session("flag")=Request("flag")
<% end if %>
#填写表单
<%
Dim num
Randomize
num = Int((1000-1+1)*Rnd+1) '动态获取flag的值
%>
<form>
……
<input type=hidden name=flag value="<%=num%>" >
……
<input type=submit name=submit value="提交" >
</form>