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