Question

我的网站上出现以下错误;

Microsoft VBScript compilation error '800a03f2'

Expected identifier

/includes/pagecontent.asp, line 2

Public Class Article
-------^

以上内容在我的页面中引用如下;

<%
    Dim article : Set article = GetArticle(22)
%>
<!--#include virtual="/includes/pagecontent.asp" -->

<h1><%=article.Title%></h1>
<div><%=article.Content%></div>

我想知道是否有人可以帮我解决这个问题？我已经阅读了一些关于将虚拟文件更改为文件的帖子，但这对我的网站结构没有用。

pagecontent.asp看起来像这样;

Public Class Article
    public ID
    public Title
    public Content
End Class

Function GetArticle(article)

    Dim conn: Set conn = Server.CreateObject("ADODB.connection") 
    conn.Open Application("database") 

    Dim cmd: Set cmd = Server.CreateObject("ADODB.command") 
    Dim rsArticle
    cmd.ActiveConnection = conn 
    cmd.CommandType = adCmdStoredProc 
    cmd.CommandText = "prc_getArticle" 
    cmd.Parameters.Append cmd.CreateParameter("@ArticleID", adInteger, adParamInput,, article) 
    Dim rsArticle: Set rsArticle = cmd.Execute 

    IF Not rsArticle.EOF Then
       Set GetArticle = new Article;

       GetArticle.ID = rsArticle.fields("art_id") 
       GetArticle.Title  = rsArticle.fields("art_title") 
       GetArticle.Content  = rsArticle.fields("art_content")  
    Else
       Set GetArticle = Nothing
    End If

    rsArticle.Close() 
End Function

Answer 1

在VBScript中，类没有“Public”关键字 - 用于在类中声明变量，但类本身是隐式公共的，不能使用访问修饰符声明。

Answer 2

因为我已经完成了ASP，但尝试以下操作，它可能会起作用或者更多地解决错误：

<%Option Explicit%>
<!--#include virtual="/includes/pagecontent.asp" --> 
<% 
    Dim article : Set article = GetArticle(22) 
%> 

<h1><%=article.Title%></h1> 
<div><%=article.Content%></div>

我认为错误是错误报告，Dim文章行导致问题，但报告的错误属于include语句。

公共课中的预期标识符

2 个答案: