<%
Dim TempHTTPObj,CollectDBConnectionStr,CollectMaxOfOnePage
CollectDBConnectionStr = "DBQ=" + server.mappath("FooSunData/Collect.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

Const G_FS_XMLHTTP = "MSXML2.XMLHTTP"
Const G_FS_FSO  = "Scripting.FileSystemObject"
Const G_FS_RS   ="Adodb.RecordSet"
Const G_FS_HTTP = "Microsoft.XMLHTTP"
Const G_FS_CONN ="Adodb.Connection"
Const G_FS_DICT		= "Scripting.Dictionary"
CollectMaxOfOnePage = 8         '设置一次读取的新闻数量，如果采集站点慢的话可以设置小一点 
 '新添加常量
Const G_DOMAIN = "http://cj.yj.cn"  '域名 
Const G_VIRTUAL_ROOT_DIR = ""  '和主系统中的此变量合并 
Const G_NEWS_LIST_PAGES_NUMBER = 300         '采集新闻列表分页最大数量
Const G_SAVE_FILE_PATH = "/File" 
%>