错误 '800a03f6' 缺少 'End' --可是根本不缺呀～郁闷！

[daynight2]

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/chat/news_save.asp，行76

＝＝＝＝＝＝＝＝＝＝＝＝

<!--#include file="conn.asp" -->
<!--#include file="ubb.asp" -->
<%
dim admin,pw
admin=Trim(Request.form("admin"))
pw=Trim(Request.form("pw"))
if admin="" then
%>
<script language=javascript>
alert("错误：请输入用户名！" );
location.href = "javascript:history.back()"
</script>
<%end if

if pw="" then%>
<script language=javascript>
alert("错误：请输入管理密码！");
location.href = "javascript:history.back()"
</script>
<%end if%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From admin where admin='" &admin&"'", conn, 3,3
%>
<%if rs.bof then %>
<script language=javascript>
alert("错误：此用户名不存在！");
location.href = "javascript:history.back()"
</script>
<%elseif pw<>rs("pw") then%>
<script language=javascript>
alert("错误：您的密码不正确！");
location.href = "javascript:history.back()"
</script>
<%else%>
<%
dim tital,nei,radiobuttonn
radiobuttonn=Trim(Request.form("radiobutton"))
tital=Trim(Request.form("tital"))
nei=Trim(Request.form("textarea"))
nei=ubbcode(nei)

if trim(tital="") then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入标题！');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if

if trim(nei)="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入内容！');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if

if trim(radiobutton)="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入内容！');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "news",conn,1,2
rs.addnew
rs("tital")=tital
rs("leibie")=radiobuttonn
rs("nei")=nei
rs("date")=now
rs.update
Response.Write("<script language=javascript>alert('tian jia cheng gong!');window.location.href='news_add.asp'</script>")
end if －－－－－－－－－－－－－－－－－－－－－－－－－－－就是这里了
%>

[valu]

好好找找吧

[valu]

可以用一步一步排除法

[daynight2]

我都仔细看了，就是找不出来，帮忙呀～

[rayFairy]

记得把include的文件也检查了

[寐族]

<%elseif pw<>rs("pw") then%>
<script language=javascript>
alert("错误：您的密码不正确！");
location.href = "javascript:history.back()"
</script>

<％end if ％>-----------这里 是不是 应该加一个end if ????

<%else%>
再提一个小小的建议 在表单提交的时候就验证是否输入数据 而不是在接收之后再验证！

[daynight2]

seaboy521() ：
不应该加吧～
if
elseif
else
end if
－－－－－－－－－－－－－－－－－－－－－－－－－－－
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/chat/news_save.asp，行36

else
^

[Jony_40562]

还缺少一个END IF
加在最后~~~

[xiaoyao888]

缺少 'End' 并不见得是缺少END IF

而是程序不能正确执行完毕，你还是看看还有没有别的代码有错

比如if trim(tital="") then 这块是不是不对呢？

还有像这种判断可以在提交前在客户端判断的，没有必要在服务器端判断

[daynight2]

我把中间的每个 if end if 去掉都显示

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/chat/lb1/news_save.asp，行54

我实在是找不出错误来了

[mikespook]

<%if rs.bof then %> ----------------------------第一个if
<script language=javascript>
alert("错误：此用户名不存在！");
location.href = "javascript:history.back()"
</script>
<%elseif pw<>rs("pw") then%> ---------------------第二个if
<script language=javascript>
alert("错误：您的密码不正确！");
location.href = "javascript:history.back()"
</script>
<%else%> ----------------这个else匹配elseif
<%
dim tital,nei,radiobuttonn
radiobuttonn=Trim(Request.form("radiobutton"))
tital=Trim(Request.form("tital"))
nei=Trim(Request.form("textarea"))
nei=ubbcode(nei)

end if －－－－－－－－－－－－－－－－－－－－－－－－－－－end if 少一个~~~
%>

[itzhiren]

<!--#include file="conn.asp" -->
<!--#include file="ubb.asp" -->
<%
dim admin,pw
admin=Trim(Request.form("admin"))
pw=Trim(Request.form("pw"))
if admin="" then
%>
<script language=javascript>
alert("错误：请输入用户名！" );
location.href = "javascript:history.back()"
</script>
<%end if

if pw="" then%>
<script language=javascript>
alert("错误：请输入管理密码！");
location.href = "javascript:history.back()"
</script>
<%end if%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From admin where admin='" &admin&"'", conn, 3,3
%>
<%if rs.bof then %>
<script language=javascript>
alert("错误：此用户名不存在！");
location.href = "javascript:history.back()"
</script>
<%elseif pw<>rs("pw") then%>
<script language=javascript>
alert("错误：您的密码不正确！");
location.href = "javascript:history.back()"
</script>
<%else%>
<%
dim tital,nei,radiobuttonn
radiobuttonn=Trim(Request.form("radiobutton"))
tital=Trim(Request.form("tital"))
nei=Trim(Request.form("textarea"))
nei=ubbcode(nei)

if trim(tital="") then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入标题！');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if

if trim(nei)="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入内容！');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if

if trim(radiobutton)="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入内容！');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "news",conn,1,2
rs.addnew
rs("tital")=tital
rs("leibie")=radiobuttonn
rs("nei")=nei
rs("date")=now
rs.update
Response.Write("<script language=javascript>alert('tian jia cheng gong!');window.location.href='news_add.asp'</script>")

%>

[Hellohuan]

在XP上用的老是出错`