在线等！急Microsoft VBScript 编译器错误 (0x800A0401)

来源：百度知道 编辑：UC知道 时间：2024/05/20 04:42:57
怎么回事情啊
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/check.asp, line 6, column 53
Dim objRS,strSQL,zx_name,zx_add,zx_tel,zx_uptime,zx_e-mail
----------------------------------------------------^
代码如下
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include virtual="/ADMIN/CONN.ASP" -->
<%

Dim objRS,strSQL,zx_name,zx_add,zx_tel,zx_uptime,zx_e-mail
strSQL = "SELECT * FROM zxdg Where Id='" & Id & "'"
Set objRS= GetSQLRecordset(strSQL, "zxdg.mdb", "zxdg")

'翻查帐号是否有人申请，没有就新增记录
If objRS.EOF Then
'新增记录
objRS.AddNew Array("zx_name","zx_add","zx_tel","zx_uptime","zx_e-mail"), _
Array(zx_name,zx_add,zx_tel,zx_uptime,zx_e-mail)
objRS.Update

'关闭数据库连接并释放对象
objRS.Close

Dim objRS,strSQL,zx_name,zx_add,zx_tel,zx_uptime,zx_e-mail
这句没错
一个ASP页面只有一个<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
这个语句，而且只能在第一行，不知道你的包含文件有没有这句。
就这些我还没看出有什么问题

DIM那么多变量干什么？？？？
VBS的优点就是不用预先定义变量就可以直接使用，这是VBS的特色
你非得DIM一下，多余

zx_e-mail 非法变量名

加个end