Vbscript Select CASE语句错误

Vbscript Select CASE语句错误,vbscript,asp-classic,Vbscript,Asp Classic,我有一个选择案例陈述,我正在努力工作。基本上,我想在数据库中查询特定的组号,并用包含文件显示相应的信息。我得到一个错误,但无法诊断是什么导致了错误 我的陈述是否结构不正确 <% select case session("memGroup") case "123456789","987654321" 'Show forms for Company ABC %> <!

我有一个选择案例陈述,我正在努力工作。基本上,我想在数据库中查询特定的组号,并用包含文件显示相应的信息。我得到一个错误,但无法诊断是什么导致了错误

我的陈述是否结构不正确

<% 
            select case session("memGroup")
            case "123456789","987654321"
            'Show forms for Company ABC
        %>

            <!--#include virtual="/members/_includes/formsABC.asp"-->

        <%             
            case "333333333","22222222","111111111" 
            'Show forms for Company DEF
        %>

            <!--#include virtual="/members/_includes/formsDEF.asp"-->

        <%
          end select
        %>
<!--then show forms for everyone else-->

<!--#include virtual="/members/_includes/formsEveryoneElse.asp"-->

ASP将首先处理所有包含,因此这不是最好的方法,因为包含很昂贵,我会这样做:

<% 
    Select Case Session.Contents("memGroup")
        Case "123456789", "987654321":
            'Show forms for Company ABC
            Server.Execute("/members/_includes/formsABC.asp")
        Case "333333333", "22222222", "111111111":
            'Show forms for Company DEF
            Server.Execute("/members/_includes/formsDEF.asp")
        Case Else:
            Server.Execute("/members/_includes/formsEveryoneElse.asp")
    End Select
%>

请注意,如果web服务器运行的是IIS 7或更高版本,则需要更改web.config以查看ASP错误消息:

<configuration>
   <system.webServer>
      <asp scriptErrorSentToBrowser="true"/>
      <httpErrors errorMode="Detailed"/> 
   </system.webServer>
</configuration>


ASP将首先处理所有包含,因此这不是最好的方法,因为包含很昂贵,我会这样做:

<% 
    Select Case Session.Contents("memGroup")
        Case "123456789", "987654321":
            'Show forms for Company ABC
            Server.Execute("/members/_includes/formsABC.asp")
        Case "333333333", "22222222", "111111111":
            'Show forms for Company DEF
            Server.Execute("/members/_includes/formsDEF.asp")
        Case Else:
            Server.Execute("/members/_includes/formsEveryoneElse.asp")
    End Select
%>

请注意,如果web服务器运行的是IIS 7或更高版本,则需要更改web.config以查看ASP错误消息:

<configuration>
   <system.webServer>
      <asp scriptErrorSentToBrowser="true"/>
      <httpErrors errorMode="Detailed"/> 
   </system.webServer>
</configuration>


您已经标记了问题
sql
,但它看起来像是…VBScript?错误告诉您什么?什么都没有…只是说HTTP 50内部服务器错误…您需要启用描述性错误,然后看看它说了什么。需要注意的一点是,即使包含在“case”或“if”中,也会将它们全部添加到代码中。这可能很重要,因为如果在formsABC中有一个“dim a”,而在formsDEF中有一个“dim a”,则会出现重复的定义错误。请指定您正在使用的语言和环境,它看起来肯定不像VB。您已经标记了您的问题
sql
,但是它看起来像…VBScript?错误告诉你什么?什么都没有…只是说HTTP 50内部服务器错误…你需要启用描述性错误,看看它说了什么。需要注意的一点是,即使包含在“case”或“if”中,也会将它们全部添加到代码中。这可能很重要,因为如果在formsABC中有一个“dim a”,而在formsDEF中有一个“dim a”,则会出现重复的定义错误。请指定您使用的语言和环境,它肯定不像VB。