<%
'以下是設(shè)定，請(qǐng)按照你的情況修改
homepage_title="我的主頁(yè)"						'主頁(yè)的標(biāo)題，不可以使用HTML
homepage_link="http://www.netfansky.com"	'主頁(yè)的地址
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/"		'新聞程序的路徑，要以“/”結(jié)尾
db_name="news.mdb"							'數(shù)據(jù)庫(kù)文件的名字，可以是任何有效名字，可以包含路徑，例如db/news.mdb
pmcount=18									'在default.asp中每頁(yè)新聞數(shù)目，不是嵌入顯示的新聞條數(shù)
your_email="ayeah@21cn.com"					'爆料熱線的地址
show_more="yes"								'在嵌入顯示新聞時(shí)，是否顯示“更多新聞……”，顯示為yes，不顯示為no

'==========設(shè)定結(jié)束，以下不用修改，除非你知道怎么修改=============

	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 "數(shù)據(jù)庫(kù)連接出錯(cuò)！"
		Response.End
	else
		conn.open connstr
		if err then 
			err.clear
			set conn=nothing
			response.write "數(shù)據(jù)庫(kù)連接出錯(cuò)！"
			Response.End 
		end if
	end if   
	
	sub endConnection()
		conn.close
		set conn=nothing
	end sub
	
	current_version="v1.0 published on 2001.3.21"						

%>