源码如下:
Set dbc=Server.CreateObject("ADODB.Connection")
dbc.ConnectionString="Provider=Microsoft OLE DB Provider for SQL Server;User ID=sa;Initial Catalog=PostNews;Data Source=202.99.198.160"
dbc.Open
fileName=Server.MapPath("News.js")
Set fileObject=Server.CreateObject("Scripting.FileSystemObject")
Set fos=fileObject.CreateTextFile(fileName,TRUE,FALSE)
'Set rsCount=dbc.Execute("select count(ID) from news")
Set rsContent=dbc.Execute("select * from news")