神马品牌网沂南县智圣汤泉:asp代码问题
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 18:29:03
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 编译器错误 错误 '800a0400'
缺少语句
/zhongyao/index.asp，行28
=rs("电话")%)</td>
^
源代码如下 数据字段会的能看的吧我就不写了
<% @ language=VBScript %>
<html>
<head>
<titLe>同学录</title>
</head>
<body background=6-1.gif>
<P align=center><FONT face=华文彩云 size=6>同学录</FONT><br>
<A HREF="6-2.htm">添加</A>
<A HREF="6-4.asp">删除</A>
<%
set Conn=server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.jet.oledb.4.0;"&"DATA Source="& server.mapPath("classmate.mdb")
Coon.open
set Rs=server.Createobject("ADODB.Recordset")
sql="select*from classmate"
rs.open sql,conn,1,1
if rs.EOF or rs.BOF then
Response.Write"<hr>数据库中暂无资料！"
else
do while not rs.EOF or rs.BOF
%>
<table border=1 align=center bordercolor=#0099cc cellspacing=0 cellpadding=4>
<tr><td width=220 align=center><FONT face=隶书 size=4>
<STRONG><%=rs("姓名")%></STRONG></td>
<td align=center width=40><%=rs("性别")%></td>
<td width=260>生日：<%=rs("出生日期")%></td>
<tr><td colspan=2>所在单位：<%=rs("单位")%></td>
<td>联系电话：<%=rs("电话")%)</td>
<tr><td colspan=2> 手机号：<%＝rs("手机")%></td>
<td>电子邮箱:<%=rs("E-mail")%></td>
<tr><td colspan=3>家庭住址：<%=rs("住址")%></td></tr>
<%
rs.movenext
loop
end if
set rs=nothing
set conn=nothing
%>
</table>
</body>
</html>
<td>联系电话：<%=rs("电话")%)</td>
明显这个错了
<td>联系电话：<%=rs("电话")%></td>
再看看先
建议多用些输出语句来做为断点调试.
这样的话很多错误都可以自己调试出来的.
<% @ language=VBScript %>
<html>
<head>
<titLe>同学录</title>
</head>
<body background=6-1.gif>
<P align=center><FONT face=华文彩云 size=6>同学录</FONT><br>
<A HREF="6-2.htm">添加</A>
<A HREF="6-4.asp">删除</A>
<%
set Conn=server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.jet.oledb.4.0;"&"DATA Source="& server.mapPath("classmate.mdb")
Coon.open
set Rs=server.Createobject("ADODB.Recordset")
sql="select*from classmate"
rs.open sql,conn,1,1
if rs.EOF or rs.BOF then
Response.Write"<hr>数据库中暂无资料！"
else
do while not rs.EOF or rs.BOF
%>
<table border=1 align=center bordercolor=#0099cc cellspacing=0 cellpadding=4>
<tr><td width=220 align=center><FONT face=隶书 size=4>
<STRONG><%=rs("姓名")%></STRONG></td>
<td align=center width=40><%=rs("性别")%></td>
<td width=260>生日：<%=rs("出生日期")%></td>
<tr><td colspan=2>所在单位：<%=rs("单位")%></td>
<td>联系电话：<%=rs("电话")%)</td>
<tr><td colspan=2> 手机号：<%＝rs("手机")%></td>
<td>电子邮箱:<%=rs("E-mail")%></td>
<tr><td colspan=3>家庭住址：<%=rs("住址")%></td></tr>
<%
rs.movenext
loop
end if
set rs=nothing
set conn=nothing
%>
</table>
</body>
</html>
<% end if %>
说的很清楚
缺少 'End'
自己检查代码。一个个if end 对应着检查！！
不学会自己检查代码，自己发现问题解决问题，是学不好程序的！！
大白吃
出错了自己找原因，别一出错就问别人，那样你是学不了程序的！
查询循环出现问题