Asp之Error对象的妙用

    这几天一直忙于站点改版的工作,昨天刚刚用ASP写好的表结构生成文件CreateStruct.asp,在操作过程中很有可能会再次刷新此页面,而导致错误.为了有一个正确易读的反馈信息,我对Err做了检测判断.

 要求:

   防止刷新表结构生成文件,继续向A表添加记录

 思路:

     生成一数据表A,又向这A表中添加了一条记录.为了防止继续在已存在的表中进行操作,有一个良好的错误反馈.我检测Error对象是否有报错,来判断是输出正确还是错误的信息提示.然而已存在的表A再继续执行创建A表的操作会为错误提示,而向已存在的表A中添加记录则不会有错误提示.所以我想到了检测A表中是否存在了记录来输出提示信息.检测A表中是否已存在记录,使用语句Rs.Eof And Rs.Bof ,为真则添加记录,为假则创建错误信息

  代码:   

    SQL = " Select * From [ " & P_PrefixName & " NotDownload] "
     Set  Rs = Server.CreateObject( " ADODB.Recordset " )
    Rs.Open SQL,Conn, 1 , 3
     If  Rs.Eof  And  Rs.Bof  Then
        Rs.AddNew
        Rs( " NotDownload " ).AppendChunk(chrB( asc ( " < " ))  &  chrB( asc ( " % " )))
        Rs.Update
     Else
        Err = True
        Err.Description = " 表 'PX_NotDownload' 已存在记录 "
     End   If
    Rs.Close: Set  Rs = Nothing
     Call  OutJudge( " 添加防下载表长二进制数据 " ) ' 判断是否存在错误信息,做出不同的输出样式

'*****************************
' 调用错误信息输出过程

'*****************************
Sub  OutJudge(ByVal TipCont)
     If  Err.Number <> 0   Then
        ResultStr = Replace (ResultStr, " {$ResultState} " , " <font color=""#CC0000""> " & TipCont & " 失败</font> " )
        Response.Write ResultStr
        Response.Write  " <div class=""errDescription""> " & Err.Description & " </div> "  
        Response.Flush
        Err.Clear
     Else
        ResultStr = Replace (ResultStr, " {$ResultState} " , " <font color=""#00AA00""> " & TipCont & " 成功</font> " )
        Response.Write ResultStr
        Response.Flush
     End   If
End Sub