<%
'Option Explicit
'On Error Resume Next

Dim ACCDB,ConnTypeStr,UpDir,DBServer,DBuid,DBpwd,DBname
Dim eStarTime,eEndTime,eRunTime,eViewTime
Dim Rso,Rst,TempContent

eStarTime = Timer()
ConnTypeStr = 0                   '数据库类型， 0,ACCESS  1,MsSQL

ACCDB = "/database/txsky2008.mdb"         'ACCESS数据库的文件名
                                  '第一次使用请修改本处数据库地址并修改数据库名称

'采集功能数据库设置，这里不改数据库名或目录请不用改动
'Dim gDBPath
'gDBPath = "../Data/Gather.mdb"

%>