防止提交重复数据

    <div style="text-indent: 2em; font-size: larger;">

为防止多次提交重复数据，可以在对数据进行后台处理之前，加上如下代码：

<%
    AvoidDuplicateSubmit_Lock
    ' 以下是你的后台数据处理代码：
    '...
' 以下是 AvoidDuplicateSubmit_Lock 的具体代码以及其他必要代码

'
' 防止多次重复提交相同的数据
'
Function AvoidDuplicateSubmit_Lock()
    Session("ssnlPostCount") = Clng(Session("ssnlPostCount")) + 1
    
    If Session("ssnlPostCount") &gt; 1 Then
        Session("errors") = "您已经提交过了"
        Session("ssnlPostCount") = 0
        Response.Write FormatHTMLInfo(Session("errors"))
        Response.Write FormatHTMLInfo("<a href="" "="" &="" request.servervariables("http_referer")="" """="">返回</a>")
        Response.End
    End If
    
    AvoidDuplicateSubmit_Unlock
End Function

'
' 防止多次重复提交相同的数据
'
Function AvoidDuplicateSubmit_Unlock()
    Session("ssnlPostCount") = 0
End Function

'
' HTML格式化信息
'
Function FormatHTMLInfo(sInfo)
    dim sInfoHTML
    
    sInfoHTML = sInfo
    FormatHTMLInfo = sInfoHTML
End Function

%>