const.asp

生活者姿态整站程序 生活者姿态整站程序 生活者姿态整站程序

<%
	UserAgent=Trim(Request.Servervariables("HTTP_USER_AGENT"))
	If Instr(UserAgent,"Teleport")>0 or Instr(UserAgent,"WebZIP")>0 or Instr(UserAgent,"flashget")>0 or Instr(UserAgent,"offline")>0 Then
	response.redirect "error.htm"
        response.end
	end if
	dim ForumName,ForumURL,CompanyName,HostUrl
	dim SMTPServer,SystemEmail,ForumLogo,Picurl,Faceurl,GMT
	dim TimeAdjust,ScriptTimeOut,EmailFlag,Uploadpic,IpFlag
	dim FromFlag,TitleFlag,uploadFlag,kickTime,guestlogin,openmsg
	dim MaxAnnouncePerPage,Maxtitlelist,AnnounceMaxBytes
	dim online_u,online_g,LinkFlag,TopicFlag
	dim VoteFlag,ReflashFlag,ReflashTime
	dim ForumStop,RegTime,EmailReg,EmailRegOne,RegFlag
	dim online_n,ViewUser_g,ViewUser_u,BirthFlag
	dim runtime,FastLogin,GroupFlag
	dim index_ad_t,index_ad_f,index_moveFlag,index_fixupFlag
	dim MovePic,MoveUrl,move_w,move_h,Board_moveFlag
	dim fixupPic,FixupUrl,Fixup_w,Fixup_h,Board_fixupFlag
	dim Tablebackcolor,aTablebackcolor,Tabletitlecolor,aTabletitlecolor
	dim Tablebodycolor,aTablebodycolor,TableFontcolor,TableContentcolor
	dim AlertFontColor,ContentTitle,ReplyColor,ForumBody,TableWidth,BodyFontColor,BoardLinkColor
	dim user_fc,user_mc,bmaster_fc,bmaster_mc,master_fc,master_mc,vip_fc,vip_mc
	dim wealthReg,wealthAnnounce,wealthReannounce,wealthDel,wealthLogin
	dim epReg,epAnnounce,epReAnnounce,epDel,epLogin
	dim cpReg,cpAnnounce,cpReAnnounce,cpDel,cpLogin
	dim copyright,Version,Cookiepath,Badwords,Splitwords,StopReadme,Maxonline,MaxonlineDate
	dim pic_om,pic_ob,pic_ov,pic_ou,pic_oh,online_mc,viewcolor
	dim F_mode1_o,F_mode1_n,F_mode2_o,F_mode2_n,F_mode3_o,F_mode3_n,F_mode4_o
	dim F_mode4_n,F_mode5_o,F_mode5_n,F_mode6_o,F_mode6_n,F_mode7_o,F_mode7_n
	dim F_link,P_post,P_vote,P_paper,P_reply,P_help,P_gohome,P_folder,P_ofolder
	dim P_newmsg,P_mytopic,P_treeview,P_flatview,P_nexttopic,P_backTopic,P_reflash,P_call
	dim P_save,P_report,P_print,P_EmailPost,P_bbsfav,P_EmailPage,P_iefav,P_sms,P_search,P_userinfo
	dim P_Email,P_oicq,P_icq,P_msn,P_homepage,P_quote,P_edit,P_delete,P_copy,P_isbest,P_ip,P_friend
	dim P_opentopic,P_hotTopic,P_closeTopic,P_istop,P_Tisbest,P_newTopic
	dim P_userlist,P_Top20,P_nowTime,P_online_s,P_birth,P_userfrom,P_isvote
	dim uploadsize,Forum_upload,relaypost,relayposttime,facenum,imgnum,facename,imgname
	dim strAllowForumCode,strAllowHTML,strIMGInPosts,strIcons,strflash,vote_Num
	dim guestlist,boardtype,lockboard,boardskin,master_1,master_2,todaynum,stats
	dim bold,italicize,underline,center,url1,email1,image,swf,Shockwave,rm,mp,qt,quote1,fly,move,glow,shadow
	dim smsflag,SendRegEmail,Search_G,bmflag_1,bmflag_2,bmflag_3,bmflag_4,bmflag_5,RegFaceNum

sub getConst()
if not isnumeric(request("boardid")) or request("boardid")="" or request("boardid")="0" then
	if not isnumeric(request("skinid")) or request("skinid")="" then
	sql = "select Forum_info,Forum_Setting,Forum_ads,Forum_body,Forum_user,Forum_Copyright,badwords,Splitwords,StopReadme,Forum_pic,Forum_boardpic,Forum_TopicPic,Forum_statePic,Forum_upload,Forum_ubb,cookiepath,Maxonline,MaxonlineDate from config where active=1"
	else
	sql = "select Forum_info,Forum_Setting,Forum_ads,Forum_body,Forum_user,Forum_Copyright,badwords,Splitwords,StopReadme,Forum_pic,Forum_boardpic,Forum_TopicPic,Forum_statePic,Forum_upload,Forum_ubb,cookiepath,Maxonline,MaxonlineDate from config where id="&request("skinid")
	end if
else
	sql = "select Forum_info,Forum_Setting,Forum_ads,Forum_body,Forum_user,Forum_Copyright,badwords,Splitwords,StopReadme,Forum_pic,Forum_boardpic,Forum_TopicPic,Forum_statePic,Forum_upload,Forum_ubb,boardtype,lockboard,boardmaster,boardskin,todaynum from board where "&guestlist&" boardid="&request("boardid")
end if
	set rs = server.CreateObject ("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
	response.write "请指定正确的参数。"
	response.end
	else
	Forum_info=split(rs(0),",")
	ForumName=Forum_info(0)
	ForumURL=Forum_info(1)
	CompanyName=Forum_info(2)
	HostUrl=Forum_info(3)
	SMTPServer=Forum_info(4)
	SystemEmail=Forum_info(5)
	ForumLogo=Forum_info(6)
	Picurl=Forum_info(7)
	Faceurl=Forum_info(8)
	GMT=Forum_info(9)

	Forum_Setting=split(rs(1),",")
	TimeAdjust=Forum_Setting(0)
	ScriptTimeOut=Forum_Setting(1)
	EmailFlag=Forum_Setting(2)
	Uploadpic=Forum_Setting(3)
	IpFlag=Forum_Setting(4)
	FromFlag=Forum_Setting(5)
	TitleFlag=Forum_Setting(6)
	uploadFlag=Forum_Setting(7)
	kicktime=Forum_Setting(8)
	guestlogin=Forum_Setting(9)
	openmsg=Forum_Setting(10)
	MaxAnnouncePerPage=Forum_Setting(11)
	Maxtitlelist=Forum_Setting(12)
	AnnounceMaxBytes=Forum_Setting(13)
	online_u=Forum_Setting(14)
	online_g=Forum_Setting(15)
	LinkFlag=Forum_Setting(16)
	TopicFlag=Forum_Setting(17)
	VoteFlag=Forum_Setting(18)
	ReflashFlag=Forum_Setting(19)
	ReflashTime=Forum_Setting(20)
	ForumStop=Forum_Setting(21)
	RegTime=Forum_Setting(22)
	EmailReg=Forum_Setting(23)
	EmailRegOne=Forum_Setting(24)
	RegFlag=Forum_Setting(25)
	online_n=Forum_Setting(26)
	ViewUser_g=Forum_Setting(27)
	ViewUser_u=Forum_Setting(28)
	BirthFlag=Forum_Setting(29)
	runtime=Forum_Setting(30)
	FastLogin=Forum_Setting(31)
	GroupFlag=Forum_Setting(32)
	uploadsize=Forum_Setting(33)
	strAllowForumCode=Forum_Setting(34)
	strAllowHTML=Forum_Setting(35)
	strIMGInPosts=Forum_Setting(36)
	strIcons=Forum_Setting(37)
	strflash=Forum_Setting(38)
	vote_Num=Forum_Setting(39)
	facenum=Forum_Setting(40)
	imgnum=Forum_Setting(41)
	relaypost=Forum_Setting(42)
	relayposttime=Forum_Setting(43)
	facename=Forum_Setting(44)
	imgname=Forum_Setting(45)
	smsflag=Forum_Setting(46)
	SendRegEmail=Forum_Setting(47)
	Search_G=Forum_Setting(48)
	bmflag_1=Forum_Setting(49)
	bmflag_2=Forum_Setting(50)
	bmflag_3=Forum_Setting(51)
	bmflag_4=Forum_Setting(52)
	bmflag_5=Forum_Setting(53)
	regfacenum=Forum_Setting(54)
	viewcolor=Forum_Setting(55)


	Forum_ads=split(rs(2),"$")
	index_ad_t=Forum_ads(0)
	index_ad_f=Forum_ads(1)
	index_moveFlag=Forum_ads(2)
	MovePic=Forum_ads(3)
	MoveUrl=Forum_ads(4)
	move_w=Forum_ads(5)
	move_h=Forum_ads(6)
	Board_moveFlag=Forum_ads(7)
	fixupPic=Forum_ads(8)
	FixupUrl=Forum_ads(9)
	Fixup_w=Forum_ads(10)
	Fixup_h=Forum_ads(11)
	Board_fixupFlag=Forum_ads(12)
	index_fixupFlag=Forum_ads(13)

	Forum_body=split(rs(3),",")
	Tablebackcolor=Forum_body(0)
	aTablebackcolor=Forum_body(1)
	Tabletitlecolor=Forum_body(2)
	aTabletitlecolor=Forum_body(3)
	Tablebodycolor=Forum_body(4)
	aTablebodycolor=Forum_body(5)
	TableFontcolor=Forum_body(6)
	TableContentcolor=Forum_body(7)
	AlertFontColor=Forum_body(8)
	ContentTitle=Forum_body(9)
	ReplyColor=Forum_body(10)
	ForumBody=Forum_body(11)
	TableWidth=Forum_body(12)
	BodyFontColor=Forum_body(13)
	BoardLinkColor=Forum_body(14)
	user_fc=Forum_body(15)
	user_mc=Forum_body(16)
	bmaster_fc=Forum_body(17)
	bmaster_mc=Forum_body(18)
	master_fc=Forum_body(19)
	master_mc=Forum_body(20)
	vip_fc=Forum_body(21)
	vip_mc=Forum_body(22)

	Forum_user=split(rs(4),",")
	wealthReg=Forum_user(0)
	wealthAnnounce=Forum_user(1)
	wealthReannounce=Forum_user(2)
	wealthDel=Forum_user(3)
	wealthLogin=Forum_user(4)
	epReg=Forum_user(5)
	epAnnounce=Forum_user(6)
	epReAnnounce=Forum_user(7)
	epDel=Forum_user(8)
	epLogin=Forum_user(9)
	cpReg=Forum_user(10)
	cpAnnounce=Forum_user(11)
	cpReAnnounce=Forum_user(12)
	cpDel=Forum_user(13)
	cpLogin=Forum_user(14)

	Copyright=rs(5)
	Version="   版本：<a href=http://bbs.aspsky.net/download.asp>Ver5.0 Build 0320</a>"

	badwords=rs(6)
	Splitwords=rs(7)
	StopReadme=rs(8)

	Forum_pic=split(rs(9),",")
	pic_om=Forum_pic(0)
	pic_ob=Forum_pic(1)
	pic_ov=Forum_pic(2)
	pic_ou=Forum_pic(3)
	pic_oh=Forum_pic(4)
	online_mc=Forum_pic(5)
	F_mode1_o=Forum_pic(6)
	F_mode1_n=Forum_pic(7)
	F_mode2_o=Forum_pic(8)
	F_mode2_n=Forum_pic(9)
	F_mode3_o=Forum_pic(10)
	F_mode3_n=Forum_pic(11)
	F_mode4_o=Forum_pic(12)
	F_mode4_n=Forum_pic(13)
	F_mode5_o=Forum_pic(14)
	F_mode5_n=Forum_pic(15)
	F_mode6_o=Forum_pic(16)
	F_mode6_n=Forum_pic(17)
	F_mode7_o=Forum_pic(18)
	F_mode7_n=Forum_pic(19)

	Forum_boardpic=split(rs(10),",")
	F_link=Forum_boardpic(0)
	P_post=Forum_boardpic(1)
	P_vote=Forum_boardpic(2)
	P_paper=Forum_boardpic(3)
	P_reply=Forum_boardpic(4)
	P_help=Forum_boardpic(5)
	P_gohome=Forum_boardpic(6)
	P_folder=Forum_boardpic(7)
	P_ofolder=Forum_boardpic(8)
	P_newmsg=Forum_boardpic(9)
	P_mytopic=Forum_boardpic(10)
	P_treeview=Forum_boardpic(11)
	P_flatview=Forum_boardpic(12)
	P_nexttopic=Forum_boardpic(13)
	P_backTopic=Forum_boardpic(14)
	P_reflash=Forum_boardpic(15)
	P_call=Forum_boardpic(16)

	Forum_TopicPic=split(rs(11),",")
	P_save=Forum_TopicPic(0)
	P_report=Forum_TopicPic(1)
	P_print=Forum_TopicPic(2)
	P_EmailPost=Forum_TopicPic(3)
	P_bbsfav=Forum_TopicPic(4)
	P_EmailPage=Forum_TopicPic(5)
	P_iefav=Forum_TopicPic(6)
	P_sms=Forum_TopicPic(7)
	P_search=Forum_TopicPic(8)
	P_userinfo=Forum_TopicPic(9)
	P_Email=Forum_TopicPic(10)
	P_oicq=Forum_TopicPic(11)
	P_icq=Forum_TopicPic(12)
	P_msn=Forum_TopicPic(13)
	P_homepage=Forum_TopicPic(14)
	P_quote=Forum_TopicPic(15)
	P_edit=Forum_TopicPic(16)
	P_delete=Forum_TopicPic(17)
	P_copy=Forum_TopicPic(18)
	P_isbest=Forum_TopicPic(19)
	P_ip=Forum_TopicPic(20)
	P_friend=Forum_TopicPic(21)

	Forum_statePic=split(rs(12),",")
	P_opentopic=Forum_statePic(0)
	P_hotTopic=Forum_statePic(1)
	P_closeTopic=Forum_statePic(2)
	P_istop=Forum_statePic(3)
	P_Tisbest=Forum_statePic(4)
	P_newTopic=Forum_statePic(5)
	P_userlist=Forum_statePic(6)
	P_Top20=Forum_statePic(7)
	P_nowTime=Forum_statePic(8)
	P_online_s=Forum_statePic(9)
	P_birth=Forum_statePic(10)
	P_userfrom=Forum_statePic(11)
	P_isvote=Forum_statePic(12)

	Forum_upload=rs(13)
	Forum_ubb=split(rs(14),",")
	bold=Forum_ubb(0)
	italicize=Forum_ubb(1)
	underline=Forum_ubb(2)
	center=Forum_ubb(3)
	url1=Forum_ubb(4)
	email1=Forum_ubb(5)
	image=Forum_ubb(6)
	swf=Forum_ubb(7)
	Shockwave=Forum_ubb(8)
	rm=Forum_ubb(9)
	mp=Forum_ubb(10)
	qt=Forum_ubb(11)
	quote1=Forum_ubb(12)
	fly=Forum_ubb(13)
	move=Forum_ubb(14)
	glow=Forum_ubb(15)
	shadow=Forum_ubb(16)
	if not isnumeric(request("boardid")) or request("boardid")="" or request("boardid")="0" then
	cookiepath=rs(15)
	Maxonline=rs(16)
	MaxonlineDate=rs(17)
	else
	boardtype=rs(15)
	lockboard=rs(16)
	boardmasterlist=rs(17)
	boardskin=rs(18)
	todaynum=rs(19)
	stats=boardtype
		if trim(boardmasterlist)<>"" then
			master_1=split(boardmasterlist, "|")
			for i = 0 to ubound(master_1)
			master_2=""+master_2+"<a href=""dispuser.asp?name="+master_1(i)+""">"+master_1(i)+"</a>&nbsp;"
			next
		else
			master_2="无版主"
		end if
	end if
	end if
	rs.close
	set rs=nothing
end sub
call getConst()
scriptname=request.ServerVariables("PATH_INFO")
if instr(scriptname,"admin")=0 and instr(scriptname,"stat")=0 then
	if cint(ForumStop)=1 then
	response.write StopReadme
	conn.close
	set conn=nothing
	response.end
	end if
end if
if (instr(scriptname,"list.asp")>0 and instr(scriptname,"toplist")=0 and instr(scriptname,"uploadlist")=0 and instr(scriptname,"friendlist")=0 and instr(scriptname,"favlist")=0) or instr(scriptname,"dispbbs")>0 then
	if cint(ReflashFlag)=1 then
	if not isnull(session("ReflashTime")) and cint(ReflashTime)>0 then
		if DateDiff("s",session("ReflashTime"),Now())<cint(ReflashTime) then
   		response.write "本论坛限制每次刷新距离时间为"&ReflashTime&"秒，请稍后浏览。"
		response.end
		else
		session("ReflashTime")=Now()
		end if
	end if
	end if
end if
if cint(guestlogin)=1 then
boardskin=6
end if
Server.ScriptTimeOut=ScriptTimeOut
%>