Set zaizai= Server.CreateObject("zaizai.MainCls")
with zaizai
.Conn=Conn
.SwGroup=ShowGroup
.Jpg=Jpeg
.SwClassNew=ShowClassNew
.ClsNewSize=ClassNewSize
.DefCID=DefaultCID
.MaxUser=MaxRegUser
.MaxSpace=MaxSpaceSize
.PhotoOwn=PhotoOwnSet
.PhotoMoney=PhotoMoneySet
.TImage=TopImage
.SName=SiteName
.SUrl=SiteUrl
.SEmail=SiteEmail
.ClsPageSize=ClassPageSize
.MsRight=MouseRight
.ImgLeft=ImageLeft
.InitSession()
.SendInf=SendInfo
.ImgPath=ImagePath
.DbFile=DataFile
.ShowRecord=ShowRec
.SClass=SiteClass
.JpgAble=JpegAble
.DataBasePath=DBPath
.DataBaseName=DBName
.TLink=TopLink
.IndexTmp=Index_temp
.OtherTImage=OtherTopImage
.TImageType=TopImageType
End With

[此贴子已经被作者于2006-3-16 14:58:57编辑过]