*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!) |