DoboWiki
Top
> 自由区/Webサービス紹介/Yahoo!検索Webサービス/ウェブ検索/コード/DataSetの派生クラスを使用/VB.NET をテンプレートにして作成
自由区/Webサービス紹介/Yahoo!検索Webサービス/ウェブ検索/コード/DataSetの派生クラスを使用/VB.NET をテンプレートにして作成
開始行:
*Yahoo!検索Webサービス ウェブ検索のDataSetの派生クラスを...
Yahoo!検索Webサービスのウェブ検索機能を使って検索を行うサ...
#attach(noform)
#code(vbnet){{
<%@ Page Language="VB" Debug="true" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional...
"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.EventAr...
'URLを構築する
Dim requestUrl As String = _
"http://api.search.yahoo.co.jp/WebSearchServi...
'アプリケーションIDを指定(必ず指定すること)
requestUrl += "?appid=XXXXX"
'検索クエリー。UTF-8エンコードする。
requestUrl += "&query=" + Server.UrlEncode(TextBo...
'HttpWebRequestの作成
Dim request As System.Net.HttpWebRequest = _
CType(System.Net.WebRequest.Create(requestUrl...
System.Net.HttpWebRequest)
Dim response As System.Net.HttpWebResponse = Noth...
Dim res As New Yahoo.jp.WebSearchResponse.NewData...
Try
'レスポンスの取得
response = CType(request.GetResponse(), _
System.Net.HttpWebResponse)
Dim strm As System.IO.Stream = response.GetRe...
'サーバーから返されたXMLデータを解析
res.ReadXml(strm)
Catch ex As Exception
Label1.Text = "エラー:" + Server.HtmlEncode(...
Return
Finally
If Not (response Is Nothing) Then
response.Close()
End If
End Try
'結果を表示
Label1.Text = ""
If res.ResultSet.Count = 0 Then
Label1.Text += "該当するページが見つかりませ...
Else
Dim sr As Yahoo.jp.WebSearchResponse.NewDataS...
res.ResultSet(0)
Label1.Text += "<b>" + Server.HtmlEncode(Text...
"</b> の検索結果 約 " + _
sr.totalResultsAvailable.ToString() + "件...
sr.firstResultPosition.ToString() + " - "...
sr.totalResultsReturned.ToString() + " 件...
Label1.Text += "<ul>" + vbLf
Dim r As Yahoo.jp.WebSearchResponse.NewDataSe...
For Each r In res.Result
Label1.Text += "<li><a href=""" + r.Url +...
r.Title + "</a>"
Next r
Label1.Text += "</ul>" + vbLf
End If
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>Yahoo!ウェブ検索Webサービスのサンプル</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:TextBox ID="TextBox1" runat="server"></asp:T...
<asp:Button ID="Button1" runat="server"
OnClick="Button1_Click" Text="検索" /><br />
<br />
<asp:Label ID="Label1" runat="server"
EnableViewState="False"></asp:Label>
</div>
</form>
<!-- Begin Yahoo! JAPAN Web Services Attribution Snippet ...
<span style="margin:15px 15px 15px 15px">
<a href="http://developer.yahoo.co.jp/about">Webサービス ...
</span>
<!-- End Yahoo! JAPAN Web Services Attribution Snippet -->
</body>
</html>
}}
//これより下は編集しないでください
#pageinfo(,2006-09-09 (土) 03:12:35,DOBON!,2006-09-09 (土...
終了行:
*Yahoo!検索Webサービス ウェブ検索のDataSetの派生クラスを...
Yahoo!検索Webサービスのウェブ検索機能を使って検索を行うサ...
#attach(noform)
#code(vbnet){{
<%@ Page Language="VB" Debug="true" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional...
"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.EventAr...
'URLを構築する
Dim requestUrl As String = _
"http://api.search.yahoo.co.jp/WebSearchServi...
'アプリケーションIDを指定(必ず指定すること)
requestUrl += "?appid=XXXXX"
'検索クエリー。UTF-8エンコードする。
requestUrl += "&query=" + Server.UrlEncode(TextBo...
'HttpWebRequestの作成
Dim request As System.Net.HttpWebRequest = _
CType(System.Net.WebRequest.Create(requestUrl...
System.Net.HttpWebRequest)
Dim response As System.Net.HttpWebResponse = Noth...
Dim res As New Yahoo.jp.WebSearchResponse.NewData...
Try
'レスポンスの取得
response = CType(request.GetResponse(), _
System.Net.HttpWebResponse)
Dim strm As System.IO.Stream = response.GetRe...
'サーバーから返されたXMLデータを解析
res.ReadXml(strm)
Catch ex As Exception
Label1.Text = "エラー:" + Server.HtmlEncode(...
Return
Finally
If Not (response Is Nothing) Then
response.Close()
End If
End Try
'結果を表示
Label1.Text = ""
If res.ResultSet.Count = 0 Then
Label1.Text += "該当するページが見つかりませ...
Else
Dim sr As Yahoo.jp.WebSearchResponse.NewDataS...
res.ResultSet(0)
Label1.Text += "<b>" + Server.HtmlEncode(Text...
"</b> の検索結果 約 " + _
sr.totalResultsAvailable.ToString() + "件...
sr.firstResultPosition.ToString() + " - "...
sr.totalResultsReturned.ToString() + " 件...
Label1.Text += "<ul>" + vbLf
Dim r As Yahoo.jp.WebSearchResponse.NewDataSe...
For Each r In res.Result
Label1.Text += "<li><a href=""" + r.Url +...
r.Title + "</a>"
Next r
Label1.Text += "</ul>" + vbLf
End If
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>Yahoo!ウェブ検索Webサービスのサンプル</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:TextBox ID="TextBox1" runat="server"></asp:T...
<asp:Button ID="Button1" runat="server"
OnClick="Button1_Click" Text="検索" /><br />
<br />
<asp:Label ID="Label1" runat="server"
EnableViewState="False"></asp:Label>
</div>
</form>
<!-- Begin Yahoo! JAPAN Web Services Attribution Snippet ...
<span style="margin:15px 15px 15px 15px">
<a href="http://developer.yahoo.co.jp/about">Webサービス ...
</span>
<!-- End Yahoo! JAPAN Web Services Attribution Snippet -->
</body>
</html>
}}
//これより下は編集しないでください
#pageinfo(,2006-09-09 (土) 03:12:35,DOBON!,2006-09-09 (土...
ページ名:
▲
▼
[
トップ
] [
新規
|
子ページ作成
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]