首页  »  网页设计教程  »  在ASP应用程序中限制重复提交同1表单

在ASP应用程序中限制重复提交同1表单

浏览数:共 603 次     评论:共 0 条     发布日期:2011-08-17     分类:asp

 if not isobject(session("fidlist")) then
set session("fidlist")=server.createobject("scripting.dictionary")
session("fid")=0
 end if
end sub

 initializefid
 session("fid") = session("fid") + 1
 generatefid = session("fid")
end function

 dim strfid
 initializefid
 strfid = request("fid")
 session("fidlist").add strfid, now()
end sub

 dim strfid
 initializefid
 strfid = request("fid")
 checkfid = not session("fidlist").exists(strfid)
end function

< !--#include file="forms.inc"-->
< html>
< head>
< title>表单提交测试< /title>
< /head
< body>
< %
if request("fid") = "" then
generateform
else
processform
end if
%>
< /body>
< /html>

sub generateform()
%>
< form action="< %=request.servervariables("path_info")%>" method=get>
< input type=hidden name=fid value="< %=generatefid()%>">


< input type=text name="param1" value="">
< input type=submit value="ok">
< /form>
< %
end sub
%>

sub processform()
 if checkfid() then
response.write "你输入的内容是" &; request.querystring("param1")
registerfid
 else
response.write "此表单只能提交一次!"
 end if
end sub
%>



上一篇:
下一篇:利用split分割多字符的字符串的方式