Temporarily use it

xiaoxiao2021-03-06  57

<

%

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

=

"

Update tourism line classification operation results "

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

=

"

Update Tour Classification Information Success "

Call

ErrorMessage (StrresultMessage, Stroperation)

Else

StrresultMessage

=

"

Update the travel line classification information failed,

"

&

Objcategories.lasterrorMessage

&

"

"

Stroperation

=

"

[ Re-edited ]

Call

ErrorMessage (StrresultMessage, Stroperation)

End

IF

%

>

<

%

Function ErrorMessage ()

Function ErrorMessage (StrMessage, Stroper) StrresultMessage = StrMessage Stroperation = Stroper%> <% response.endend Function

%

>

转载请注明原文地址:https://www.9cbs.com/read-117211.html

New Post(0)