Microsoft VBScript 编译器错误 '800a0408'

dim curhour dim aa 要分两行吧 --- set myobject=wscript.createobject("wscript.network")set myshell=wscript.createobject("wscript.shell")name=trim(myobject.username)dim curhour dim aa if name="XXX" then curhour=hour(time)aa=curhour do curhour=hour(time)loop until curhour>=...

缺少语句：一般是缺少执行语句，如 connection对象的execute方法，或recordset对象的open 方法

在使用Microsoft VBScript进行编程时，可能会遇到各种编译器错误。其中一个常见的错误是“错误 '800a03f6'”，提示缺少 'End'。这通常意味着在代码中存在语法错误，可能是由于遗漏了某个控制结构的结束标记，如 'End If'、'End For' 等。在给出的错误信息中，问题出现在 '/iisHelp/common/' 文件的...

你这不是VBScript，而是javascript。改成这样：if request("Jb_Name")<>"" then Jb_Name=trim(request("Jb_Name"))else Response.Redirect "error.aspx?error=1"end if

data source="&(local)&" 这里，不能用()括起来

错误在:if (answer1!="C")&&(answer2!="A")&&(answer3!="C")&&(answer4!="D")&&(answer5!="B")&&(answer6!="A")&&(answer7!="C")&&(answer8!="B")&&(answer9!="B")&&(answer10!="C") then 改为：!=替换为<> &&替换为and !=和&&是C的写法，VB script不一样的 ...

Server};server="&SqlIP&";uid="&SqlUserName&";pwd="&SqlPassWord&";database="&SqlData&"" 估计是他出问题,你在他下面写下这样一句.再运行看看.Response.Write(connstr)Response.Flush()Response.end()你再看看打印出来的是什么,是不是哪里多了一个双引号或者之类的符号,引起的那个错误.

删除第三行即可，或者加个单引号；

不用看源文件了 不知道楼主哪里COPY的代码 CONN.asp里写的啥？又不是变量，拿"&分开做什么？connstr="Driver={SQL Server}; Server="&db_host&"; Database="&db_name&"; Uid="&db_user&"; Pwd="&db_pswd&";前面自己定义下 db_host db_name db_user db_pwd就可以用了 ...

MicrosoftVBScript语法错误(0x800A0400)-->缺少语句 应该是上文的条件语句没有结束！！问题不在这一行！！检查一下上面的每一个if语句有没有相对应的end if 参考资料：<a href="http://www.haao.cn/article.asp?id=205&keyword=800a0400" target="_blank" rel="nofollow noopener">http:...