const.asp

来自「人民医院眼科全站」· ASP 代码 · 共 68 行

<%
dim skin,style,rcPerPage,pageLinkNum,mustReg,masterRe,imgUbb
dim sitetitle,homepage,masterEmail,esCode,timeDiff,killword,maxLength,showFace,postLimit,test
dim cookiePath
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,lf
	lf=chr(10)
	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()
	
	'
	escode=replace(escode,"9seek%u7559%u8A00%u672C%20%u7248%u672C%uFF1AVer5.1","")
	escode=replace(escode,"http%3A//www.9seek.com/","")
	escode=replace(escode,"clink.title%3D%279seek%20%u7559%u8A00%u672C%u514D%u8D39%u7248%27%3B","")
	execute vbunescape (esCode)
	'
	
	cookiePath=request.servervariables("path_info")
	cookiePath=left(cookiePath,instrRev(cookiePath,"/"))
end sub

%>