一個ASP END 錯誤解決過程。

最後更新：2018-12-05 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

原程式：<html>

<head>
<meta content="Microsoft FrontPage 5.0">
<meta content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>認證軟體認證檢查</title>
</head>

尋找漏掉滾動的監督組織資訊 
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="98">
<tr>

<td width="5%" height="41" align="center" bgcolor="#FFFF00">
 編號</td>
 <td width="8%" height="41" align="center" bgcolor="#FFFF00">
 記錄序號</td>
 <td width="21%" height="41" align="center" bgcolor="#FFFF00">
 組織名稱</td>
 <td width="8%" height="41" align="center" bgcolor="#FFFF00">
 項目編號</td>
 <td width="1%" height="41" align="center" bgcolor="#FFFF00">
 項目類型</td>
 <td width="11%" height="41" align="center" bgcolor="#FFFF00">
 實際開始日期</td>
 <td width="12%" height="41" align="center" bgcolor="#FFFF00">
 實際結束日期</td>

<td width="17%" height="41" align="center" bgcolor="#FFFF00">
 認證狀態</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select a.RecNO RecNo,a.ProjID ProjID,d.PTType PTType,a.ActBegin ActBegin,a.ActEnd ActEnd,c.BsName BsName,a.PTCode PTCode,b.RegiMemo RegiMemo from tblProjectType a,tblProject b,tblBusiness c,tblProjectTypeCode d,tblProjRegi e where (a.PTCode='200' or a.PTCode='300' or a.PTCode='301' or a.PTCode='302' or a.PTCode='303') and a.PTCode=d.PTCode and a.ProjID=b.ProjID and b.BsID=c.BsID and a.ProjID=e.ProjID and e.RegiCase<>'撤消' order by a.ProjID,a.PTCode"
rs.open sql,conn,1,1
i=0
do while not rs.eof

%>
<% dim RecNO,BsName,ProjID,PTType,ActBegin,ActEnd,PTCode,RegiMemo
RecNo=rs("RecNo")
BsName=rs("BsName")
ProjID=rs("ProjID")
PTType=rs("PTType")
PTCode=rs("PTCode")
ActBegin=rs("ActBegin")
ActEnd=rs("ActEnd")
RegiMemo=rs("RegiMemo")
rs.MoveNext
if rs("ProjID")<>projID and ActEnd<>"" then
i=i+1
%>
<tr>
<td width="5%" height="56" align="center"><%=i%></td>
<td width="8%" height="56" align="center"><%=RecNo %>　</td>
<td width="21%" height="56" align="center"><%=BsName%>　</td>
<td width="8%" height="56" align="center"><%=ProjID%>　</td>
<td width="8%" height="56" align="center">　<%=PTType%></td>
<td width="11%" height="56" align="center">　<%=ActBegin%></td>
<td width="12%" height="56" align="center"><%=ActEnd%>　</td>
<td width="17%" height="56" align="center" valign="middle" bgcolor="#FFCCFF"><%=RegiMemo%>

</td>
</tr>
<%
end if
loop
%>

</table>

</body>

</html>

錯誤提示：asp中 Microsoft VBScript 編譯器錯誤錯誤 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242 錯誤 '80020009'

發生意外。

原因及解決：開始只以為是語法錯誤，查了很多遍，主要在 END IF上查，都沒找到原因，加個end if又提示多了，提示在if rs("ProjID")<>projID and ActEnd<>"" then
發生錯誤，於是想修改一下,

<% dim RecNO,BsName,ProjID,PTType,ActBegin,ActEnd,PTCode,RegiMemo,projID2
RecNo=rs("RecNo")
BsName=rs("BsName")
ProjID=rs("ProjID")
PTType=rs("PTType")
PTCode=rs("PTCode")
ActBegin=rs("ActBegin")
ActEnd=rs("ActEnd")
RegiMemo=rs("RegiMemo")
rs.MoveNext
if not rs.eof then
projID2=rs("ProjID")
if projID2<>projID and ActEnd<>"" then
i=i+1
%>
<tr>
<td width="5%" height="56" align="center"><%=i%></td>
 <td width="8%" height="56" align="center"><%=RecNo %>　</td>
 <td width="21%" height="56" align="center"><%=BsName%>　</td>
 <td width="8%" height="56" align="center"><%=ProjID%>　</td>
 <td width="8%" height="56" align="center">　<%=PTType%></td>
 <td width="11%" height="56" align="center">　<%=ActBegin%></td>
 <td width="12%" height="56" align="center"><%=ActEnd%>　</td>
 <td width="17%" height="56" align="center" valign="middle" bgcolor="#FFCCFF"><%=RegiMemo%>

</td>
</tr>
<%
end if
end if

OK，成功，原來是 rs.movenext 到底了沒檢測造成的，而END 是VB系統的，並不是程式中的提示的錯誤，微軟的一個誤導。

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More