config.asp

整站程序,下载网站 flash版

<%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
'   0      1      2       3     4      5          6          7         8        9       10        11         12           13       14          15        16        17        18     19
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
%>