求助：Microsoft VBScript 编译器错误错误 '800a0401' 语句未结束

jackiechen 发布于 2009-09-27 00:36， 1057 次点击

小弟是个新手，求助大家，在网站后台编译时出现如题错误，
Microsoft VBScript 编译器错误错误 '800a0401'

语句未结束

/system/HealthList.asp，行 166

代码如下：
response.write "<td height='24' align='center' nowrap bgcolor='#EBF2F9'>ID：<input name='ID' type='text' class='textfield' style='WIDTH: 30;' value='"&ID&"' maxlength='4' readonly> 健康信息名称：<input name='HealthNameCh' type='text' class='textfield' id='HealthNameCh' style='WIDTH: 180;' value='"&HealthNameCh&"' maxlength='36' readonly> 排序号：<input name='Sequence' type='text' class='textfield' style='WIDTH: 60;' value='"&Sequence&"' maxlength='4' onKeyDown='if(event.keyCode==13)event.returnValue=false' onchange=""if(/\D/.test(this.value)){alert('只能在排序号内输入整数！');this.value='"&Sequence&"';}"">  <input name='submitSequence' type='submit' class='button' value='保存' style='WIDTH: 60;' ></td>"

请问怎么解决，谢谢大家了！！！

4 回复

孤独冷雨2009-09-27 09:44

value='"&ID&"'
value='"&HealthNameCh&"'
这两个地方出错了！

myosotis2009-09-27 16:52

response.write "<td height='24' align='center' nowrap bgcolor='#EBF2F9'>ID：<input name='ID' type='text' class='textfield' style='WIDTH: 30;' value='"&ID&"' maxlength='4' readonly> 健康信息名称：<input name='HealthNameCh' type='text' class='textfield' id='HealthNameCh' style='WIDTH: 180;' value='"&HealthNameCh&"' maxlength='36' readonly> 排序号：<input name='Sequence' type='text' class='textfield' style='WIDTH: 60;' value='"&Sequence&"' maxlength='4' onKeyDown='if(event.keyCode==13)event.returnValue=false' onchange='if(/\D/.test(this.value)){alert('只能在排序号内输入整数！');this.value='"&Sequence&"';}'>  <input name='submitSequence' type='submit' class='button' value='保存' style='WIDTH: 60;' ></td>"

myosotis2009-09-27 17:03

response.write "<td height='24' align='center' nowrap bgcolor='#EBF2F9'>ID：<input name='ID' type='text' class='textfield' style='WIDTH: 30;' value='"&ID&"' maxlength='4' readonly> 健康信息名称：<input name='HealthNameCh' type='text' class='textfield' id='HealthNameCh' style='WIDTH: 180;' value='"&FHealthNameCh&"' maxlength='36' readonly> 排序号：<input name='Sequence' type='text' class='textfield' style='WIDTH: 60;' value='"&Sequence&"' maxlength='4' onKeyDown='if(event.keyCode==13)event.returnValue=false' onchange=""if(/\D/.test(this.value)){alert('只能在排序号内输入整数！');this.value='"&Sequence&"';}"">  <input name='submitSequence' type='submit' class='button' value='保存' style='WIDTH: 60;' ></td>"

把里面的HealthNameCh换下名字，改成FHealthNameCh就可以了，为什么会这样，不清楚

jackiechen2009-09-27 22:19

谢谢版主啊，问题已经解决！！加上空格就行了

求助：Microsoft VBScript 编译器错误 错误 '800a0401' 语句未结束

求助：Microsoft VBScript 编译器错误错误 '800a0401' 语句未结束