Question

Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End'

Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/member/corporation/company_edit.asp，行 361
else
^
代码如下：

if zycp>"" then
if instr(zycp,",")>0 then
zcarry=split(rs("zycp"),",")
if ubound(zcarry)=1 then
response.write"<INPUT maxLength=20 size=10 value='"&zcarry(0)&"' name=productionService>, <INPUT maxLength=20 size=10 value='"&zcarry(1)&"' name=productionService2>, <INPUT maxLength=20 size=10 name=productionService3>"
else if ubound(zcarry)=2 then
response.write"<INPUT maxLength=20 size=10 value='"&zcarry(0)&"' name=productionService>, <INPUT maxLength=20 size=10 value='"&zcarry(1)&"' name=productionService2>, <INPUT maxLength=20 size=10 value='"&zcarry(2)&"' name=productionService3>"
else if ubound(zcarry)>2 then
response.write"<INPUT maxLength=20 size=10 value='"&zcarry(0)&"' name=productionService>,<INPUT maxLength=20 size=10 value='"&zcarry(1)&"' name=productionService2>,<INPUT maxLength=20 size=10 value='"&zcarry(2)&"' name=productionService3>"
End if
else
response.write"<INPUT maxLength=20 size=10 value='"&zycp&"' name=productionService>,<INPUT maxLength=20 size=10 name=productionService2>,<INPUT maxLength=20 size=10 name=productionService3>"
end if
else
response.write"<INPUT maxLength=20 size=10 name=productionService>, <INPUT maxLength=20 size=10 name=productionService2>, <INPUT maxLength=20 size=10 name=productionService3>"
end if

咋都没找到到底缺少哪个end

Answer 1

<%
if zycp>"" then
if instr(zycp,",")>0 then
zcarry=split(rs("zycp"),",")
if ubound(zcarry)=1 then
response.write"<INPUT maxLength=20 size=10 value='"&zcarry(0)&"' name=productionService>, <INPUT maxLength=20 size=10 value='"&zcarry(1)&"' name=productionService2>, <INPUT maxLength=20 size=10 name=productionService3>"
elseif ubound(zcarry)=2 then '这里的else和if之间不能有空格
response.write"<INPUT maxLength=20 size=10 value='"&zcarry(0)&"' name=productionService>, <INPUT maxLength=20 size=10 value='"&zcarry(1)&"' name=productionService2>, <INPUT maxLength=20 size=10 value='"&zcarry(2)&"' name=productionService3>"
elseif ubound(zcarry)>2 then '这里的else和if之间不能有空格
response.write"<INPUT maxLength=20 size=10 value='"&zcarry(0)&"' name=productionService>,<INPUT maxLength=20 size=10 value='"&zcarry(1)&"' name=productionService2>,<INPUT maxLength=20 size=10 value='"&zcarry(2)&"' name=productionService3>"
End if
else
response.write"<INPUT maxLength=20 size=10 value='"&zycp&"' name=productionService>,<INPUT maxLength=20 size=10 name=productionService2>,<INPUT maxLength=20 size=10 name=productionService3>"
end if
response.write"<INPUT maxLength=20 size=10 name=productionService>, <INPUT maxLength=20 size=10 name=productionService2>, <INPUT maxLength=20 size=10 name=productionService3>"
end if
%>
改成以上即可。
说明一点，在ASP之中，如果else与if之中有空格的话，那结束时你必须得多加一个end if，如果没有空格的话那就不用加了！你的问题就出现在这里！

Answer 2

'判断添加或更新的记录是否已存在
SQL_select="select * from 课程表 where shangkedian='"&request.Form("shangkedian")&"' and banji='"&request.Form("banji")&"' and kecheng='"&request.Form("kecheng")&"'and zhouci='"&request.Form("zhouci")&"' and xingqi='"&request.Form("xingqi")&"' and jici='"&request.Form("jici")&"'"
set rs_select=conn.execute(SQL_select)
if not rs_select.eof then
%>
<script language=JAVAscript>
alert("您所申请的已被其它老师申店，请重新申请！！！");
</script>
<%
else
dim shangkedian,banji,kecheng,zhouci,xingqi,jici
shangkedian=request.Form("shangkedian")
banji=request.Form("banji")
kecheng=request.Form("kecheng")
zhouci=request.Form("zhouci")
xingqi=request.Form("xingqi")
jici=request.Form("jici")
StrSQL1 = "Insert into 课程表(shangkedian，banji,kecheng,zhouci,xingqi,jici)"
StrSQL = StrSQL1&"Values('shangkedian','banji','kecheng','zhouci','xingqi'.'jici')"
conn.execute StrSQL
set conn=nothing
Response.Redirect"result.asp"
end if

Answer 3

应该是你的ASP文件中，VBScrip部分缺少END语句，造成编译出错，你找到这个地方，加上去就可以了。

Answer 4

从代码来看貌似不缺少End，你可以试试重新编译或者重新打开，有时候编译器也抽风……

Answer 5

试着将运算符&的左右添加空格。