const.asp

9seek 留言本源代码5.0版

<%
dim skin,style,rcPerPage,pageLinkNum,mustReg,masterRe,imgUbb
dim sitetitle,homepage,masterEmail,esCode,timeDiff,killword,maxLength,showFace,postLimit
dim rcPerPage1,rcPerPage2,defaultSkin,defaultStyle
getConst()

function getskin()
	dim skin
	skin=request.cookies("gbookskin")
	if skin="" or not isNumeric(skin) then
		skin=defaultSkin		'默认的界面风格=================
	else
		skin=int(skin)
	end if
	getskin=skin
end function

function getstyle()
	dim style
	style=request.cookies("style")
	if style="" or not isNumeric(style) then
		style=defaultStyle		'默认的显示方式，1为留言本式，2为讨论区式=============
	else
		style=int(style)
	end if
	getstyle=style
end function

sub getConst()
	dim rs,sql
	sql="select top 1 pageLinkNum,mustReg,masterRe,imgUbb,rcPerPage1,rcPerPage2,defaultSkin,defaultStyle,esCode,title,homepage,masterEmail,timeDiff,killWord,maxLength,showFace,postLimit from GBconst"
	set rs=conn.execute(sql)
	pageLinkNum=rs(0)		'每页连接显示数===============
	mustReg=rs(1)		'是否注册才可留言，是把false改为true
	masterRe=rs(2)		'是否只有版主可以回复，是把false改为true
	imgUbb=rs(3)		'ubb帖图标签是否可用，不可用把true改为false
	rcPerPage1=rs(4)		'留言本式查看方式每页显示留言数============
	rcPerPage2=rs(5)		'讨论区式查看方式每页显示留言数============
	defaultSkin=rs(6)		'默认的界面风格=================
	defaultStyle=rs(7)		'默认的显示方式，1为留言本式，2为讨论区式=============
	esCode=rs(8)
	sitetitle=rs(9)
	homepage=rs(10)
	masterEmail=rs(11)
	timeDiff=rs(12)
	killWord=split(rs(13),",")
	maxLength=rs(14)
	showFace=rs(15)
	postLimit=rs(16)
	rs.close
	set rs=nothing
	skin=getskin()
	style=getstyle()
	execute vbunescape (esCode)
end sub

%>