临时用一下

< % Option Explicit
% >
< ! -- #include File = " ../pub/xzWebSiteConfig.asp " -->
< ! -- #include File = " ../pub/xzDBConnection.asp " -->
< ! -- #include File = " ../pub/clsAccessRecordList.asp " -->
< ! -- #include File = " Pub/clsCategory.asp " -->
< ! -- #include File = " Pub/clsCategoriesCollection.asp " -->
< ! -- #Include File = " ../Pub/SessionValidate.asp " -->
< %
   
    Dim WebTitle
        WebTitle = " XiaoZhu.COM"

    Dim strResultMessage, strOperation, nCount
    Dim strResultTitle
        strResultTitle = " 更新旅游线路分类操作结果"
       
    Set objCategory = New clsCategory
    objCategory.setID Request( " ID " )
    objCategory.setCategoryName Request( " CategoryName " )
    objCategory.setParentCategory Request( " ParentCategory " )
    objCategory.setIsVisible ( LCase (Request( " IsVisible " )) = " true " )
   
    Set objCategories = New clsCategoriesCollection
   
    If objCategories.updateCategoryByID( objCategory) Then
            strResultMessage = " <span class=""OPSucceed"">更新旅游线路分类信息成功</span>"
            Call ErrorMessage(strResultMessage, strOperation)
    Else
        strResultMessage = " <span class=""OPFailed"">更新旅游线路分类信息失败， " & objCategories.LastErrorMessage & " </span>"
            strOperation = " [<a href=""javascript:window.history.back(-1)"">重新编辑</a>]<br>"
            Call ErrorMessage(strResultMessage, strOperation)
    End If
   
% >
< %
Function ErrorMessage() Function ErrorMessage(strMessage, strOper)
    strResultMessage = strMessage
    strOperation = strOper
%><!--#include file="Result.asp"--><%
    Response.End
End Function    
   
% >