<%

'Response.Buffer=True

Dim SqlNowString,DataPart_D,DataPart_Y,DataPart_H,DataPart_S,DataPart_W,DataPart_M

Dim Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnStr

Const DataBaseType=1                '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库