迈凯伦最便宜的多少钱:Microsoft VBScript 编译器错误 (0x800A03F6)缺少 'End'

来源：百度文库编辑：杭州交通信息网时间：2024/04/29 10:31:34

<%
if(""=alias)then
response.Write("请输入帐号！")
elseif(""=password)then
response.Write("请输入密码！")
elseif(""=verify)then
response.Write("请输入确认密码！")
elseif(""=xingming)then
response.Write("请输入真实姓名！")
elseif(password<>verify)then
response.Write("两次密码不相同！")
else
set lianjie=server.CreateObject("adodb.connection")
lianjie.open("dsn=leon")
sqltext="insert into user values('"&alias&"','"&password&"','"&xingming
sqltext=sqltext&"','"&sex&"','"&email&"','"&vocation&"')"
set recordset=lianjie.execute(sqltext)
lianjie.close
set recordset=nothing
set lianjie=nothing
End if

%>
你们看这段代码有错吗？出错提示说“缺少 'End'”。我刚学，检查不出来，请各位帮个忙。
我改过了，还是出现同样的错误
Microsoft VBScript 编译器错误 (0x800A03F6)缺少 'End'
是不是环境问题啊？但是我iis都装了好几遍了
都会出现这个错误

看你写的怎么这么别扭啊，看这么多elseif实在是迷糊啊，给你改了改，虽然多了些，但是我觉得比较条理
----
<%
dim flag
flag=0'初始化状态
if alias="" then
flag=1
end if
if password="" then
flag=2
end if
if verify="" then
flag=3
end if
if xingming="" then
flag=4
end if
if password<>verify then
flag=5
end if
select case flag
case 1
response.Write("请输入帐号！")
case 2
response.Write("请输入密码！")
case 3
response.Write("请输入确认密码！")
case 4
response.Write("请输入真实姓名！")
case 5
response.Write("两次密码不相同！")
end select
if flag=0 then
set lianjie=server.CreateObject("adodb.connection")
lianjie.open("dsn=leon")
sqltext="insert into user values('"&alias&"','"&password&"','"&xingming
sqltext=sqltext&"','"&sex&"','"&email&"','"&vocation&"')"
set recordset=lianjie.execute(sqltext)
lianjie.close
set recordset=nothing
set lianjie=nothing
end if
%>

Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)