临时用一下

<% 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   
   
%>