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。