const.asp

庐江二中

<%
dim sql
dim MaxList,MaxNewsList,MaxFocusNewsList,MaxGoodNewsList,MaxTxtList,FenTitle,MaxTxtListDate,InDate,	MaxImgList,	MaxSpecialList
dim WebTitle,WebUrl,Logo,ImgPath,Copyright,Ver,AdminEmail,UploadFlag,SMTPServer,EmailFlag,Time_out,StartDate,THeight,FlashWidth,OpenCheck
dim ShowAnnounce,ShowSearch,ShowTxtTop,ShowImgTop,ShowFocusNews,ShowGoodNews,ShowAllySite,ShowFriendSite,ShowGoodSite,ShowLogo,ShowUserLogin,ShowGBook,ShowNewImg,ShowBoard,ShowClassImg,ShowNavigate
dim ShowOnline,ShowTotalUser,ShowTotalNews,ShowTotalSpecial,ShowTotalView,ShowTodayView,ShowYesterdayView,ShowMonthView,ShowBMonthView,ShowTotalDate
dim ShowAverageView,ShowResearch,ShowStatistic,ShowNewUser,ReadFree,RegFree,BadWords
dim BigModel,ShowBigModelRight,ShowSmallModelRight,ShowSpecialModelRight,ShowNewsModelRight

dim colorname,TableWidth,TFColor,TdFColor,ALinkFColor,AHoverFColor,AVisitedFColor,ALertFColor
dim InputBgColor,InputBorderColor,SelectBgColor,BgColor,BgImg
dim MainBColor,MainBgColor,MainTColor,MainCColor
dim TopBColor,Top1BgColor,Top2BgColor,Top3BgColor
dim Out1Color,Out2Color,Out2Width,Out3Color
dim LeftLColor,LeftBColor,LeftBImg,LeftBgColor,LeftTColor,LeftTImg,LeftCColor,LeftCImg,LeftRColor,LeftRImg
dim CenterBgColor,CenterTColor,CenterTImg,CenterBColor,CenterBImg,CenterCColor,CenterCImg
'----HHB------'
dim DaoDu_color,DaoDu_img,HHB1_img,HHB3_img,GongGao_color,GongGao_img,BBS_color,BBS_img
'----HHB---------'
dim RightLColor,RightLImg,RightBcolor,RightBImg,RightBgColor,RightTColor,RightTImg,RightCColor,RightCImg,RightRColor
dim BottomBgColor,BottomBgImg,ColorCss
dim NewsConst,SiteColor
dim Level,Point,Limit
dim arrRow,arrCon

'if Application("NewsConst")="" or Application("SiteColor")="" then
'	Application.Lock

	sql="select * from const" 
	rs.open sql,conn,1,1
	arrRow=rs.getrows
	rs.Close
	Application("NewsConst")=arrRow(1,0)&"|"&arrRow(2,0)&"|"&arrRow(3,0)&"|"&arrRow(4,0)&"|"&arrRow(5,0)&"|"&_
		arrRow(6,0)&"|"&arrRow(7,0)&"|"&arrRow(8,0)&"|"&arrRow(9,0)&"|"&arrRow(10,0)&"|"&arrRow(11,0)&"|"&arrRow(12,0)&"|"&_
		arrRow(13,0)&"|"&arrRow(14,0)&"|"&arrRow(15,0)&"|"&arrRow(16,0)&"|"&arrRow(17,0)&"|"&arrRow(18,0)&"|"&arrRow(19,0)&"|"&_
		arrRow(20,0)&"|"&arrRow(21,0)&"|"&arrRow(22,0)&"|"&arrRow(23,0)&"|"&arrRow(24,0)&"|"&arrRow(25,0)&"|"&arrRow(26,0)&"|"&_
		arrRow(27,0)&"|"&arrRow(28,0)&"|"&arrRow(29,0)&"|"&arrRow(30,0)&"|"&arrRow(31,0)&"|"&arrRow(32,0)&"|"&arrRow(33,0)&"|"&_
	    arrRow(34,0)&"|"&arrRow(35,0)&"|"&arrRow(36,0)&"|"&arrRow(37,0)&"|"&arrRow(38,0)&"|"&arrRow(39,0)&"|"&arrRow(40,0)&"|"&_
		arrRow(41,0)&"|"&arrRow(42,0)&"|"&arrRow(43,0)&"|"&arrRow(44,0)&"|"&arrRow(45,0)&"|"&arrRow(46,0)&"|"&arrRow(47,0)&"|"&_
		arrRow(48,0)&"|"&arrRow(49,0)&"|"&arrRow(50,0)&"|"&arrRow(51,0)&"|"&arrRow(52,0)&"|"&arrRow(53,0)&"|"&arrRow(54,0)&"|"&_
		arrRow(55,0)&"|"&arrRow(56,0)&"|"&arrRow(57,0)&"|"&arrRow(58,0)&"|"&arrRow(59,0)&"|"&arrRow(60,0)&"|"&arrRow(61,0)&"|"&_
		arrRow(62,0)&"|"&arrRow(63,0)
	arrRow=null

	sql="select * from SiteColor where IsChecked=1" 
	rs.open sql,conn,1,1
	
	arrRow=rs.getrows
	rs.Close 
	Application("SiteColor")=arrRow(1,0)&"|"&arrRow(2,0)&"|"&arrRow(3,0)&"|"&arrRow(4,0)&"|"&arrRow(5,0)&"|"&_
		arrRow(6,0)&"|"&arrRow(7,0)&"|"&arrRow(8,0)&"|"&arrRow(9,0)&"|"&arrRow(10,0)&"|"&arrRow(11,0)&"|"&arrRow(12,0)&"|"&_
		arrRow(13,0)&"|"&arrRow(14,0)&"|"&arrRow(15,0)&"|"&arrRow(16,0)&"|"&arrRow(17,0)&"|"&arrRow(18,0)&"|"&arrRow(19,0)&"|"&_
		arrRow(20,0)&"|"&arrRow(21,0)&"|"&arrRow(22,0)&"|"&arrRow(23,0)&"|"&arrRow(24,0)&"|"&arrRow(25,0)&"|"&arrRow(26,0)&"|"&_
		arrRow(27,0)&"|"&arrRow(28,0)&"|"&arrRow(29,0)&"|"&arrRow(30,0)&"|"&arrRow(31,0)&"|"&arrRow(32,0)&"|"&arrRow(33,0)&"|"&_
		arrRow(34,0)&"|"&arrRow(35,0)&"|"&arrRow(36,0)&"|"&arrRow(37,0)&"|"&arrRow(38,0)&"|"&arrRow(39,0)&"|"&arrRow(40,0)&"|"&_
		arrRow(41,0)&"|"&arrRow(42,0)&"|"&arrRow(43,0)&"|"&arrRow(44,0)&"|"&arrRow(45,0)&"|"&arrRow(46,0)&"|"&arrRow(47,0)&"|"&_
		arrRow(48,0)&"|"&arrRow(49,0)&"|"&arrRow(50,0)&"|"&arrRow(51,0)&"|"&arrRow(52,0)&"|"&arrRow(53,0)&"|"&arrRow(54,0)&"|"&_
		arrRow(55,0)&"|"&arrRow(56,0)&"|"&arrRow(57,0)&"|"&arrRow(58,0)&"|"&arrRow(59,0)&"|"&arrRow(60,0)&"|"&arrRow(61,0)&"|"&_
		arrRow(62,0)
	arrRow=null	
		
	sql="select * from UserGrade" 
	rs.open sql,conn,1,1
	i=0
	arrRow=rs.GetRows
	arrCon=rs.RecordCount
	rs.Close
	for i=0 to arrCon-1
		Application("Level")=Application("Level")&"|"&arrRow(1,i)
		Application("Point")=Application("Point")&"|"&arrRow(2,i)
		Application("Limit")=Application("Limit")&"|"&arrRow(3,i)
	next
	arrRow=null
	arrCon=null

'	Application.UnLock
'end if

NewsConst=Split(Application("NewsConst"),"|")
MaxList=int(NewsConst(0))
MaxNewsList=int(NewsConst(1))	
MaxFocusNewsList=int(NewsConst(2))
MaxGoodNewsList=int(NewsConst(3))
MaxTxtList=int(NewsConst(4))
FenTitle=int(NewsConst(5))
MaxTxtListDate=int(NewsConst(6))
InDate=int(NewsConst(7))	
MaxImgList=int(NewsConst(8))	
MaxSpecialList=int(NewsConst(9))
ShowNewImg=NewsConst(10)
WebTitle=NewsConst(11)
WebUrl=NewsConst(12)
Logo=NewsConst(13)
ShowBoard=NewsConst(14)
ImgPath=NewsConst(15)	
Copyright=NewsConst(16)
Ver=NewsConst(17)
AdminEmail=NewsConst(18)
UploadFlag=NewsConst(19)	
SMTPServer=NewsConst(20)
EmailFlag=NewsConst(21)
Time_out=NewsConst(22)	
StartDate=NewsConst(23)
THeight=NewsConst(24)	
FlashWidth=NewsConst(25)
OpenCheck=NewsConst(26)	
ShowAnnounce=NewsConst(27)
ShowSearch=NewsConst(28)
ShowTxtTop=NewsConst(29)
ShowImgTop=NewsConst(30)
ShowFocusNews=NewsConst(31)
ShowGoodNews=NewsConst(32)
ShowAllySite=NewsConst(33)
ShowFriendSite=NewsConst(34)
ShowGoodSite=NewsConst(35)
ShowLogo=NewsConst(36)
ShowUserLogin=NewsConst(37)
ShowGBook=NewsConst(38)
ShowOnline=NewsConst(39)
ShowTotalUser=NewsConst(40)
ShowTotalNews=NewsConst(41)
ShowTotalSpecial=NewsConst(42)
ShowTotalView=NewsConst(43)
ShowTodayView=NewsConst(44)
ShowYesterdayView=NewsConst(45)
ShowMonthView=NewsConst(46)
ShowBMonthView=NewsConst(47)
ShowTotalDate=NewsConst(48)
ShowAverageView=NewsConst(49)		
ShowResearch=NewsConst(50)
ShowStatistic=NewsConst(51)
ShowNewUser=NewsConst(52)
ReadFree=NewsConst(53)
RegFree=NewsConst(54)
ShowClassImg=NewsConst(55)
ShowNavigate=NewsConst(56)
BadWords=NewsConst(57)
BigModel=NewsConst(58)
ShowBigModelRight=NewsConst(59)
ShowSmallModelRight=NewsConst(60)
ShowSpecialModelRight=NewsConst(61)
ShowNewsModelRight=NewsConst(62)
NewsConst=null

SiteColor=Split(Application("SiteColor"),"|")
ColorName=SiteColor(0)
TdFColor=SiteColor(1)
ALinkFColor=SiteColor(2)
AHoverFColor=SiteColor(3)
AVisitedFColor=SiteColor(4)
AlertFColor=SiteColor(5)
InputBgColor=SiteColor(6)
InputBorderColor=SiteColor(7)
SelectBgColor=SiteColor(8)
BgColor=SiteColor(9)
BgImg=SiteColor(10)
MainBColor=SiteColor(11)
MainBgColor=SiteColor(12)
MainTColor=SiteColor(13)
MainCColor=SiteColor(14)
TopBColor=SiteColor(15)
Top1BgColor=SiteColor(16)
Top2BgColor=SiteColor(17)
Top3BgColor=SiteColor(18)
Out1Color=SiteColor(19)
Out2Color=SiteColor(20)
Out2Width=SiteColor(21)
Out3Color=SiteColor(22)
LeftLColor=SiteColor(23)
LeftBColor=SiteColor(24)
LeftBImg=SiteColor(25)
LeftBgColor=SiteColor(26)
LeftTColor=SiteColor(27)
LeftTImg=SiteColor(28)
LeftCColor=SiteColor(29)
LeftCImg=SiteColor(30)
LeftRColor=SiteColor(31)
LeftRImg=SiteColor(32)
CenterBgColor=SiteColor(33)
CenterTColor=SiteColor(34)
CenterTImg=SiteColor(35)
CenterBColor=SiteColor(36)
CenterBImg=SiteColor(37)
CenterCColor=SiteColor(38)
CenterCImg=SiteColor(39)
RightLColor=SiteColor(40)
RightLImg=SiteColor(41)
RightBColor=SiteColor(42)
RightBImg=SiteColor(43)
RightBgColor=SiteColor(44)
RightTColor=SiteColor(45)
RightTImg=SiteColor(46)
RightCColor=SiteColor(47)
RightCImg=SiteColor(48)
RightRColor=SiteColor(49)
BottomBgcolor=SiteColor(50)
BottomBgImg=SiteColor(51)
ColorCss=SiteColor(52)
TableWidth=SiteColor(53)

DaoDu_color=SiteColor(54)
DaoDu_img=SiteColor(55)
HHB1_img=SiteColor(56)
HHB3_img=SiteColor(57)
GongGao_color=SiteColor(58)
GongGao_img=SiteColor(59)
BBS_color=SiteColor(60)
BBS_img=SiteColor(61)

SiteColor=null

Level=Split(Application("Level"),"|")
Point=Split(Application("Point"),"|")
Limit=Split(Application("Limit"),"|")
%>