Microsoft VBScript 编译器错误 '800a0400' 缺少语句错误 ，看代码

我把上面一段修改后就出错了，对源码我不太懂，向各位请教下

<%
Response.Addheader "Content-Type","text/html; charset=gb2312"

Option Explicit
Dim startime,Conn,db,Connstr,Ask_db,Ask_Conn
Response.Buffer = True
Response.charset="gb2312"
startime = Timer()
'--定义数据库类别，1为SQL数据库，0为Access数据库
Const isSqlDataBase = 0

Dim NowString,NewAsp,MyAppPath,AdminPath
MyAppPath = "":AdminPath = ""
'-- 是否开启伪静态功能(False=否，True=是)
Const IsURLRewrite = False
'--系统XML版本设置，最低版本 Const MsxmlVersion=""
Const MsxmlVersion = ".3.0"
'--模板缓存模式，0=不缓存
Const TPLCacheMode = 0
'--验证码文件路径
Const CodeFilePath = "common/getcode.asp"

If IsSqlDataBase = 1 Then

不知为何我这儿把强制声明“Option Explicit”删除后调试通过，还有你这文件内容完整吗，最后面if ...Then到最后一定要end if结束的。

把第一行删掉试试,你用的是未经编码的vbs明文代码,但你声明的是vbscript.encode