setup.asp

由网络搜集供大家学习使用如果侵占请自行删除

<%
'以下是设定，请按照你的情况修改
homepage_title="我的主页"						'主页的标题，不可以使用HTML
homepage_link="http://www.netfansky.com"	'主页的地址
news_title="<font color='#000000'><font color='#FF0066'><font face='Arial, Helvetica, sans-serif'>MY</font></font><font face='Arial, Helvetica, sans-serif'>News</font></font>新闻中心"	'新闻中心的名字，可以使用HTML
news_location="http://localhost/news/"		'新闻程序的路径，要以“/”结尾
db_name="news.mdb"							'数据库文件的名字，可以是任何有效名字，可以包含路径，例如db/news.mdb
pmcount=18									'在default.asp中每页新闻数目，不是嵌入显示的新闻条数
your_email="[e-mail]"					'爆料热线的地址
show_more="yes"								'在嵌入显示新闻时，是否显示“更多新闻……”，显示为yes，不显示为no

'==========设定结束，以下不用修改，除非你知道怎么修改=============

	dim conn   
	dim connstr   
	'on error resume next

	connstr = "DBQ=" + server.mappath(db_name) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"       
	set conn=server.createobject("ADODB.CONNECTION")
	if err.number<>0 then 
		err.clear
		set conn=nothing
		response.write "数据库连接出错！"
		Response.End
	else
		conn.open connstr
		if err then 
			err.clear
			set conn=nothing
			response.write "数据库连接出错！"
			Response.End 
		end if
	end if   
	
	sub endConnection()
		conn.close
		set conn=nothing
	end sub
	
	current_version="v1.0 published on 2001.3.21"						

%>