%
'以下是设定,请按照你的情况修改
homepage_title="纵横软件" '主页的标题,不可以使用HTML
homepage_link="http://www.szinternet.com/" '主页的地址
news_title="纵横软件新闻中心" '新闻中心的名字,可以使用HTML
news_location="http://www.szinternet.com/news/" '新闻程序的路径,要以“/”结尾
db_name="news/db/news2003.asp" '数据库文件的名字,可以是任何有效名字,可以包含路径,例如db/news.mdb
your_email="szerp.cn@gmail.com" '爆料热线的地址
show_more="no" '在嵌入显示新闻时,是否显示“更多新闻……”,显示为yes,不显示为no
make_html="no" '是否生成html文件来减少服务器压力,需要filesystemobject的支持
'==========设定结束,以下不用修改,除非你知道怎么修改=============
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
%>
<%
on error resume next
dim rs,rs1,sql,sql1
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
%>