<
%
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 Span> "
Call
ErrorMessage (StrresultMessage, Stroperation)
Else
StrresultMessage
=
"
Update the travel line classification information failed,
"
&
Objcategories.lasterrorMessage
&
"
span> "
Stroperation
=
"
[ Re-edited ]
Call
ErrorMessage (StrresultMessage, Stroperation)
End
IF
%
>
<
%
Function ErrorMessage ()
Function ErrorMessage (StrMessage, Stroper) StrresultMessage = StrMessage Stroperation = Stroper%> <% response.endend Function
%
>