自由区/Webサービス紹介/Google SOAP Search API/キャッシュ機能のサンプル(VB.NET) のバックアップの現在との差分(No.1)

Top > 自由区 > Webサービス紹介 > Google SOAP Search API > キャッシュ機能のサンプル(VB.NET)

バックアップ一覧
差分を表示
ソースを表示
バックアップを表示
自由区/Webサービス紹介/Google SOAP Search API/キャッシュ機能のサンプル(VB.NET) へ行く。
- 1 (2006-08-25 (金) 01:39:30)

追加された行はこの色です。
削除された行はこの色です。

*Google SOAP Search API - キャッシュ機能のサンプル(VB.NET) [#m8908143]

ここではコードのみを示します。説明は、[[C#のサンプル>../キャッシュ機能のサンプル(C＃)]]にあります。

**コード [#ta51b85d]

#code(vbnet){{
<%@ 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">

    Protected Sub Button1_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs)
        'キーを必ず指定する
        Dim key As String = "XXXXXXXXXXXXXXXXXXX"

        Dim gs As New Google.GoogleSearchService()
        Dim data As Byte() = Nothing
        Try
            'キャッシュを取得する
            data = gs.doGetCachedPage(key, urlTextBox.Text)
        Catch ex As System.Web.Services.Protocols.SoapException
            message.Text = "エラー：" + Server.HtmlEncode(ex.Message)
            Return
        End Try
        If data Is Nothing Then
            message.Text = "キャッシュデータが取得できませんでした。"
            Return
        End If

        'キャッシュデータを出力する
        Me.Response.Clear()
        Me.Response.BinaryWrite(data)
        Me.Response.End()
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>キャッシュの表示</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:Label ID="Label1" runat="server" Text="URL:">
        </asp:Label>
        <asp:TextBox ID="urlTextBox" runat="server">
        </asp:TextBox>
        <asp:Button ID="Button1" runat="server"
        OnClick="Button1_Click" Text="キャッシュの表示" />
        <br />
        <asp:Label ID="message" runat="server" ForeColor="Red"
         EnableViewState="False"></asp:Label></div>
    </form>
</body>
</html>
}}

//これより下は編集しないでください
#pageinfo(,2006-08-25 (金) 01:39:30,DOBON!,2006-08-25 (金) 01:39:30,DOBON!)
#pageinfo([[:Category/.NET]] [[:Category/ASP.NET]],2006-08-25 (金) 01:39:30,DOBON!,2006-08-25 (金) 01:39:30,DOBON!)

▲ ▼

DoboWiki