xgcode.asp

ASP+ACCESS 作用非常强大

<%
'系统设置-------------------------------------------------------
xg_name="站长"            '网站简称
xg_type="2"               '连接地址 1.新华网 2.凤凰资讯
xg_data="xgcode.mdb"      '数据库文件

'连接地区
select case xg_type
case "1" '新华网
xg_url1="http://news.cn/newscenter/zt20080127/"                                '南方大雪
xg_url2="http://www.xinhuanet.com/politics/xzblsjzzbd/"                        '西藏骚乱
xg_url3="http://www.xinhuanet.com/olympics/huoju/"                             '域外被扰
xg_url4="http://www.ah.xinhuanet.com/zhuanti/2008-04/29/content_13122907.htm"  '阜阳疫情
xg_url5="http://www.sd.xinhuanet.com/news/08zt/lcsg.htm"                       '胶济撞车
xg_url6="http://www.xinhuanet.com/politics/kzjz/"                               '四川地震

case "2" '凤凰资讯
xg_url1="http://news.ifeng.com/special/baoxuechina/"            '南方大雪
xg_url2="http://news.ifeng.com/special/lasabaoluan/"            '西藏骚乱
xg_url3="http://news.ifeng.com/special/china/200804/d487459/"   '域外被扰
xg_url4="http://news.ifeng.com/special/ev71/"                   '阜阳疫情
xg_url5="http://news.ifeng.com/special/train/"                  '胶济撞车
xg_url6="http://news.ifeng.com/special/0512earthquake/"         '四川地震
end select

'数据库连接----------------------------------------------------
On Error Resume Next
set conn=server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&xg_data&"")
If Err Then
err.Clear
Set conn=Nothing
Response.Write "数据库连接出错，请确认数据库文件是否存在！"
Response.End
End If
%>