%> 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 checkinstall=true exit function end function if not checkinstall then echoInstallErr "安装提示","未安装","你的网站还未安装,请先安装" end if dim startTime,endTime setStartTime dim conn : set conn=new DBClass dim objFso,objStream initAllObjects %>