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

<%
    AvoidDuplicateSubmit_Lock
    ' 以下是你的后台数据处理代码：
    '...




    ' 以下是 AvoidDuplicateSubmit_Lock 的具体代码以及其他必要代码

    '
    ' 防止多次重复提交相同的数据
    '
    Function AvoidDuplicateSubmit_Lock()
        Session("ssnlPostCount") = Clng(Session("ssnlPostCount")) + 1
        
        If Session("ssnlPostCount") > 1 Then
            Session("errors") = "您已经提交过了"
            Session("ssnlPostCount") = 0
            Response.Write FormatHTMLInfo(Session("errors"))
            Response.Write FormatHTMLInfo("返回")
            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
%>