临时用一下

<%


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




%>