UC知道asp编程出现缺少 'End'错误
来源：百度知道 编辑：UC知道 时间：2024/07/05 15:21:54
一asp程序用以实现查看文章列表showlist.asp，用IIS运行，出现错误：
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/showlist.asp, 第 72 行
程序代码如下：
<HTML>
<HEAD>
<TITLE> 浏览文章标题</TITLE>
</HEAD>
<BODY>
<%
set conn=Server.CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("BBS.mdb")
If request("id")=" " Then
intarticleid=0
End If
Set rs=server.CreateObject("adodb.recordset")
strSql="select * from article where articleparent='"&intarticleid&"'"
rs.open strSql,conn,3,1
rs.pagesize=10
npage=request.Form("npage")
If npage=" "Then
session("abspage")=1 '记录当前页面
Else If npage="上一页" Then
se
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/showlist.asp, 第 72 行
程序代码如下：
<HTML>
<HEAD>
<TITLE> 浏览文章标题</TITLE>
</HEAD>
<BODY>
<%
set conn=Server.CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("BBS.mdb")
If request("id")=" " Then
intarticleid=0
End If
Set rs=server.CreateObject("adodb.recordset")
strSql="select * from article where articleparent='"&intarticleid&"'"
rs.open strSql,conn,3,1
rs.pagesize=10
npage=request.Form("npage")
If npage=" "Then
session("abspage")=1 '记录当前页面
Else If npage="上一页" Then
se
应该是elseif 不是else if
这么多代码，自己看吧，不过
一个if,就有一个end if
看看，哪少了
If npage=" "Then
session("abspage")=1 '记录当前页面
Else If npage="上一页" Then
session("abspage")=session("abspage")-1
Else If npage="下一页" Then
session("abspage")=session("abspage")+1
Else If npage="第一页" Then
session("abspage")=1
Else If npage="最后一页" Then
session("abspage")=rs.pagecount
End If
中 else if要用成elseif 你这样分开了那就有几个if语句了，然后又只有一个end if，所以就说你少end if了噻，合起来才算是一个if 语句