%
dim rsc,sqlc
sqlc="select SiteSetting,AdsCode from Config"
set rsc=conn.execute(sqlc)
dim SiteSetting,AdsCode
SiteSetting=split(rsc(0),",")
'SiteName,Url,SiteState,Page,SkinID,KillChar,GuestReview,MemberReg,MemberOpen,Align,NewNumber,BestNumber,ListNumber,ManageNumber,RegPoint,LoginPoint,PostPoint,DownPoint,PointOpen,Email,NewNumber2,RegSH
'   0      1      2       3     4      5          6          7         8        9       10        11         12           13       14          15        16        17        18     19        20      21
AdsCode=rsc(1)
dim RegPoint,LoginPoint,PostPoint,DownPoint
if SiteSetting(18)="yes" then
    RegPoint=SiteSetting(14)
    LoginPoint=SiteSetting(15)
    PostPoint=SiteSetting(16)
    DownPoint=SiteSetting(17)
else
    RegPoint=0
    LoginPoint=0
    PostPoint=0
    DownPoint=0
end if

sqlc="select SkinSetting from Skin where ID="&cint(SiteSetting(4))
set rsc=conn.execute(sqlc)
dim SkinSetting
SkinSetting=split(rsc(0),",")
'BodyBgColor,BackGround,TableBorderColor,TdBgColor1,TdBgColor2,TitleColor,TitleColor2,TitleBgColor,LinkBgColor,LinkBorderColor
'     0           1             2             3          4          5          6           7           8             9
'S_FaceColor,S_ShadowColor,S_HighlightColor,S_3dlightColor,S_DarkshadowColor,S_TrackColor,S_ArrowColor,SiteLogo,LogoBgImage
'     10           11             12              13               14              15           16        17        18
set rsc=nothing
%>
各位兄弟帮忙看一下,这段代码是什么意思?