<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit //这里提示出错
Const DebugMode = false
Dim AppSpan:AppSpan=timer
'Response.Charset = "gbk"
dim CONN_OBJ_NAME,RECORDSET_OBJ_NAME,DICTIONARY_OBJ_NAME,JPEG_OBJ_NAME,FSO_OBJ_NAME,STREAM_OBJ_NAME
CONN_OBJ_NAME="ADODB.CONNECTION"
RECORDSET_OBJ_NAME="ADODB.RECORDSET"
DICTIONARY_OBJ_NAME="SCRIPTING.DICTIONARY"
JPEG_OBJ_NAME="PERSITS.JPG"
FSO_OBJ_NAME="SCRI"&"PTING.FILES"&"YSTEMOBJECT"
STREAM_OBJ_NAME="ADOD"&"B.ST"&"REAM"
function checkinstall()
checkinstall=false
if isInstall=1 then
checkinstall=true
exit function
end if
end function
if not checkinstall then
echoInstallErr "安装提示","未安装","你的网站还未安装,请先安装"
end if
dim startTime,endTime
setStartTime
dim conn : set conn=new DBClass
conn.databaseType=dbType
dim objFso,objStream
initAllObjects
%>