CSDN博客

img piggybank

临时用一下

发表于2004/9/14 13:47:00  789人阅读

分类: XiaoZhu.com

<% 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(strMessage, strOper)
    strResultMessage
= strMessage
    strOperation
= strOper
%
><!--#include file="Result.asp"--><%
    Response.
End
End Function
   
   
%
>
0 0

相关博文

我的热门文章

img
取 消
img