回复:风讯新闻部分sitemap生成的实现
'---------------------数据库结束-------------------------------
dim conn,rs,sql,dbpath
set conn=Server.CreateObject("Adodb.Connection")
set rs=Server.CreateObject("Adodb.RecordSet")
connstr="Provider = Sqloledb; User ID = uid; Password = pwd; Initial Catalog = database; Data Source = (local);"
conn.Open connstr
'----------------------数据库结束-------------------------------