다음을 통해 공유

HttpCapabilitiesBase.VBScript 속성

  • 참조

정의

네임스페이스:
System.Web.Configuration
어셈블리:
System.Web.dll

브라우저에서 VBScript(Visual Basic 스크립팅 버전)를 지원하는지 여부를 나타내는 값을 가져옵니다.

public:
 property bool VBScript { bool get(); };
public bool VBScript { get; }
member this.VBScript : bool
Public ReadOnly Property VBScript As Boolean

속성 값

Boolean

브라우저에서 VBScript를 지원하면true 이고, 지원하지 않으면 false입니다. 기본값은 false입니다.

예제

다음 코드 예제에서는 브라우저에서 VBScript를 지원하는지 여부를 확인하는 방법을 보여 줍니다.

<%@ page language="C#"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
    void Page_Load(Object Sender, EventArgs e)
    {
        CheckBrowserCaps();
    }

    void CheckBrowserCaps()
    {
        String labelText = "";
        System.Web.HttpBrowserCapabilities myBrowserCaps = Request.Browser;
        if (((System.Web.Configuration.HttpCapabilitiesBase)myBrowserCaps).VBScript)
        {
            labelText = "Browser supports VBScript.";
        }
        else
        {
            labelText = "Browser does not support VBScript.";
        }

        Label1.Text = labelText;
    }
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
    <title>Browser Capabilities Sample</title>
</head>
<body>
    <form runat="server" id="form1">
        <div>
            Browser Capabilities:
            <p/><asp:Label ID="Label1" Runat="server" />
        </div>
    </form>
</body>
</html>

<%@ page language="VB" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
    Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        CheckBrowserCaps()
    End Sub

    Function CheckBrowserCaps()

        Dim labelText As String = ""
        Dim myBrowserCaps As System.Web.HttpBrowserCapabilities = Request.Browser
        If (CType(myBrowserCaps, System.Web.Configuration.HttpCapabilitiesBase)).VBScript Then
            labelText = "Browser supports VBScript."
        Else
            labelText = "Browser does not support VBScript."
        End If

        Label1.Text = labelText

    End Function 'CheckBrowserCaps
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
    <title>Browser Capabilities Sample</title>
</head>
<body>
    <form runat="server" id="form1">
        <div>
            Browser Capabilities:
            <p/><asp:Label ID="Label1" Runat="server" />
        </div>
    </form>
</body>
</html>

적용 대상