DoboWiki
Top
> 自由区/Webサービス紹介/Amazon E-Commerce Service/Code/VB.NET/Help をテンプレートにして作成
自由区/Webサービス紹介/Amazon E-Commerce Service/Code/VB.NET/Help をテンプレートにして作成
開始行:
*Helpのサンプルコード(VB.NET) [#pa2efa85]
ここで紹介しているコードは[[こちらのプロキシクラス>../../...
ここで紹介しているコードは[[こちらのC#のコード>../../CS/H...
ECSで使用できるオペレーションやResponseGroupの情報を表示...
#code(vbnet){{
<%@ Page Language="VB" %>
<%@ Import Namespace="Amazon.jp.v20060913" %>
<!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 EventArgs)
Dim req As New HelpRequest()
'何についてのHelpを取得するかを指定
If HelpTypeList.SelectedValue = "Operation" Then
req.HelpType = HelpRequestHelpType.Operation
Else
If HelpTypeList.SelectedValue = "ResponseGrou...
req.HelpType = HelpRequestHelpType.Respon...
End If
End If
req.HelpTypeSpecified = True
req.About = AboutList.SelectedValue
Dim hlp As New Help()
'あなたのAccess Key ID
hlp.AWSAccessKeyId = "(あなたのAccessKeyID)"
'あなたのAssociate ID
hlp.AssociateTag = "dobonnet-22"
hlp.Request = New HelpRequest() {req}
Dim aws As New AWSECommerceService()
Dim res As HelpResponse
Try
'Helpオペレーションを実行し、結果を取得
res = aws.Help(hlp)
Catch ex As Exception
Label1.Text = "エラー:" + ex.Message
Return
End Try
If res Is Nothing OrElse res.Information Is Nothi...
Label1.Text = "結果を取得できませんでした。"
Return
End If
If Not (res.Information(0).Request.Errors Is Noth...
Label1.Text = "エラー:" + _
res.Information(0).Request.Errors(0).Mess...
Return
End If
'結果を表示
Label1.Text = ""
Dim info As Amazon.jp.v20060913.Information = res...
If Not (info.OperationInformation Is Nothing) Then
'OperationのHelp情報を表示
Label1.Text = "<ul>" + vbLf
Dim i As OperationInformation
For Each i In info.OperationInformation
Label1.Text += "<li><b>" + i.Name + "</b>...
Label1.Text += "<li>説明 : " + i.Descript...
Label1.Text += "<li>必須パラメーター :" +...
Label1.Text += "<ul>" + vbLf
Dim s As String
For Each s In i.RequiredParameters
Label1.Text += "<li>" + s + vbLf
Next s
Label1.Text += "</ul>" + vbLf
Label1.Text += "<li>オプションパラメータ...
Label1.Text += "<ul>" + vbLf
For Each s In i.AvailableParameters
Label1.Text += "<li>" + s + vbLf
Next s
Label1.Text += "</ul>" + vbLf
Label1.Text += "<li>デフォルトのResponseG...
Label1.Text += "<ul>" + vbLf
For Each s In i.DefaultResponseGroups
Label1.Text += "<li>" + s + vbLf
Next s
Label1.Text += "</ul>" + vbLf
Label1.Text += "<li>指定可能なResponseGro...
Label1.Text += "<ul>" + vbLf
For Each s In i.AvailableResponseGroups
Label1.Text += "<li>" + s + vbLf
Next s
Label1.Text += "</ul>" + vbLf
Next i
Label1.Text += "</ul>" + vbLf
Else
If Not (info.ResponseGroupInformation Is Noth...
'ResponseGroupのHelp情報を表示
Label1.Text = "<ul>" + vbLf
Dim i As ResponseGroupInformation
For Each i In info.ResponseGroupInformation
Label1.Text += "<li><b>" + i.Name + "...
Label1.Text += "<li>作成日 : " + i.Cr...
Label1.Text += "<li>Operation :" + vbLf
Label1.Text += "<ul>" + vbLf
Dim s As String
For Each s In i.ValidOperations
Label1.Text += "<li>" + s + vbLf
Next s
Label1.Text += "</ul>" + vbLf
Label1.Text += "<li>Element :" + vbLf
Label1.Text += "<ul>" + vbLf
For Each s In i.Elements
Label1.Text += "<li>" + s + vbLf
Next s
Label1.Text += "</ul>" + vbLf
Next i
Label1.Text += "</ul>" + vbLf
Else
Label1.Text += "表示する内容がありません。"
End If
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal...
If Not IsPostBack Then
SetAboutList()
End If
End Sub
Protected Sub HelpTypeList_SelectedIndexChanged( _
ByVal sender As Object, ByVal e As EventArgs)
SetAboutList()
End Sub
Protected Sub SetAboutList()
'Aboutに設定できる値をDropDownListに設定する
AboutList.Items.Clear()
If HelpTypeList.SelectedValue = "Operation" Then
AboutList.Items.Add("CartAdd")
AboutList.Items.Add("CartClear")
AboutList.Items.Add("CartCreate")
AboutList.Items.Add("CartModify")
AboutList.Items.Add("CustomerContentLookup")
AboutList.Items.Add("CustomerContentSearch")
AboutList.Items.Add("Help")
AboutList.Items.Add("ItemLookup")
AboutList.Items.Add("ItemSearch")
AboutList.Items.Add("ListLookup")
AboutList.Items.Add("ListSearch")
AboutList.Items.Add("SellerListingLookup")
AboutList.Items.Add("SellerListingSearch")
AboutList.Items.Add("SellerLookup")
AboutList.Items.Add("SimilarityLookup")
AboutList.Items.Add("TransactionLookup")
Else
If HelpTypeList.SelectedValue = "ResponseGrou...
AboutList.Items.Add("Accessories")
AboutList.Items.Add("BrowseNodes")
AboutList.Items.Add("Cart")
AboutList.Items.Add("CartSimilarities")
AboutList.Items.Add("CustomerFull")
AboutList.Items.Add("CustomerInfo")
AboutList.Items.Add("CustomerLists")
AboutList.Items.Add("CustomerReviews")
AboutList.Items.Add("EditorialReview")
AboutList.Items.Add("Help")
AboutList.Items.Add("Images")
AboutList.Items.Add("ItemAttributes")
AboutList.Items.Add("ItemIds")
AboutList.Items.Add("Large")
AboutList.Items.Add("ListFull")
AboutList.Items.Add("ListInfo")
AboutList.Items.Add("ListItems")
AboutList.Items.Add("ListMinimum")
AboutList.Items.Add("ListmaniaLists")
AboutList.Items.Add("Medium")
AboutList.Items.Add("OfferFull")
AboutList.Items.Add("OfferSummary")
AboutList.Items.Add("Offers")
AboutList.Items.Add("Request")
AboutList.Items.Add("Reviews")
AboutList.Items.Add("Salesrank")
AboutList.Items.Add("Seller")
AboutList.Items.Add("SellerListing")
AboutList.Items.Add("Similarities")
AboutList.Items.Add("Small")
AboutList.Items.Add("Tracks")
AboutList.Items.Add("TransactionDetails")
AboutList.Items.Add("VariationMinimum")
AboutList.Items.Add("VariationSummary")
AboutList.Items.Add("Variations")
End If
End If
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>Helpのサンプル</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:DropDownList ID="HelpTypeList" runat="server"
OnSelectedIndexChanged="HelpTypeList_SelectedInd...
AutoPostBack="True">
<asp:ListItem>Operation</asp:ListItem>
<asp:ListItem>ResponseGroup</asp:ListItem>
</asp:DropDownList>
<asp:DropDownList ID="AboutList" runat="server">
</asp:DropDownList>
<asp:Button ID="Button1" runat="server"
OnClick="Button1_Click" Text="送信" />
<br />
</div>
</form>
<br />
<asp:Label ID="Label1" runat="server" EnableViewState...
</asp:Label>
</body>
</html>
}}
//これより下は編集しないでください
#pageinfo([[:Category/.NET]] [[:Category/ASP.NET]],2006-1...
終了行:
*Helpのサンプルコード(VB.NET) [#pa2efa85]
ここで紹介しているコードは[[こちらのプロキシクラス>../../...
ここで紹介しているコードは[[こちらのC#のコード>../../CS/H...
ECSで使用できるオペレーションやResponseGroupの情報を表示...
#code(vbnet){{
<%@ Page Language="VB" %>
<%@ Import Namespace="Amazon.jp.v20060913" %>
<!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 EventArgs)
Dim req As New HelpRequest()
'何についてのHelpを取得するかを指定
If HelpTypeList.SelectedValue = "Operation" Then
req.HelpType = HelpRequestHelpType.Operation
Else
If HelpTypeList.SelectedValue = "ResponseGrou...
req.HelpType = HelpRequestHelpType.Respon...
End If
End If
req.HelpTypeSpecified = True
req.About = AboutList.SelectedValue
Dim hlp As New Help()
'あなたのAccess Key ID
hlp.AWSAccessKeyId = "(あなたのAccessKeyID)"
'あなたのAssociate ID
hlp.AssociateTag = "dobonnet-22"
hlp.Request = New HelpRequest() {req}
Dim aws As New AWSECommerceService()
Dim res As HelpResponse
Try
'Helpオペレーションを実行し、結果を取得
res = aws.Help(hlp)
Catch ex As Exception
Label1.Text = "エラー:" + ex.Message
Return
End Try
If res Is Nothing OrElse res.Information Is Nothi...
Label1.Text = "結果を取得できませんでした。"
Return
End If
If Not (res.Information(0).Request.Errors Is Noth...
Label1.Text = "エラー:" + _
res.Information(0).Request.Errors(0).Mess...
Return
End If
'結果を表示
Label1.Text = ""
Dim info As Amazon.jp.v20060913.Information = res...
If Not (info.OperationInformation Is Nothing) Then
'OperationのHelp情報を表示
Label1.Text = "<ul>" + vbLf
Dim i As OperationInformation
For Each i In info.OperationInformation
Label1.Text += "<li><b>" + i.Name + "</b>...
Label1.Text += "<li>説明 : " + i.Descript...
Label1.Text += "<li>必須パラメーター :" +...
Label1.Text += "<ul>" + vbLf
Dim s As String
For Each s In i.RequiredParameters
Label1.Text += "<li>" + s + vbLf
Next s
Label1.Text += "</ul>" + vbLf
Label1.Text += "<li>オプションパラメータ...
Label1.Text += "<ul>" + vbLf
For Each s In i.AvailableParameters
Label1.Text += "<li>" + s + vbLf
Next s
Label1.Text += "</ul>" + vbLf
Label1.Text += "<li>デフォルトのResponseG...
Label1.Text += "<ul>" + vbLf
For Each s In i.DefaultResponseGroups
Label1.Text += "<li>" + s + vbLf
Next s
Label1.Text += "</ul>" + vbLf
Label1.Text += "<li>指定可能なResponseGro...
Label1.Text += "<ul>" + vbLf
For Each s In i.AvailableResponseGroups
Label1.Text += "<li>" + s + vbLf
Next s
Label1.Text += "</ul>" + vbLf
Next i
Label1.Text += "</ul>" + vbLf
Else
If Not (info.ResponseGroupInformation Is Noth...
'ResponseGroupのHelp情報を表示
Label1.Text = "<ul>" + vbLf
Dim i As ResponseGroupInformation
For Each i In info.ResponseGroupInformation
Label1.Text += "<li><b>" + i.Name + "...
Label1.Text += "<li>作成日 : " + i.Cr...
Label1.Text += "<li>Operation :" + vbLf
Label1.Text += "<ul>" + vbLf
Dim s As String
For Each s In i.ValidOperations
Label1.Text += "<li>" + s + vbLf
Next s
Label1.Text += "</ul>" + vbLf
Label1.Text += "<li>Element :" + vbLf
Label1.Text += "<ul>" + vbLf
For Each s In i.Elements
Label1.Text += "<li>" + s + vbLf
Next s
Label1.Text += "</ul>" + vbLf
Next i
Label1.Text += "</ul>" + vbLf
Else
Label1.Text += "表示する内容がありません。"
End If
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal...
If Not IsPostBack Then
SetAboutList()
End If
End Sub
Protected Sub HelpTypeList_SelectedIndexChanged( _
ByVal sender As Object, ByVal e As EventArgs)
SetAboutList()
End Sub
Protected Sub SetAboutList()
'Aboutに設定できる値をDropDownListに設定する
AboutList.Items.Clear()
If HelpTypeList.SelectedValue = "Operation" Then
AboutList.Items.Add("CartAdd")
AboutList.Items.Add("CartClear")
AboutList.Items.Add("CartCreate")
AboutList.Items.Add("CartModify")
AboutList.Items.Add("CustomerContentLookup")
AboutList.Items.Add("CustomerContentSearch")
AboutList.Items.Add("Help")
AboutList.Items.Add("ItemLookup")
AboutList.Items.Add("ItemSearch")
AboutList.Items.Add("ListLookup")
AboutList.Items.Add("ListSearch")
AboutList.Items.Add("SellerListingLookup")
AboutList.Items.Add("SellerListingSearch")
AboutList.Items.Add("SellerLookup")
AboutList.Items.Add("SimilarityLookup")
AboutList.Items.Add("TransactionLookup")
Else
If HelpTypeList.SelectedValue = "ResponseGrou...
AboutList.Items.Add("Accessories")
AboutList.Items.Add("BrowseNodes")
AboutList.Items.Add("Cart")
AboutList.Items.Add("CartSimilarities")
AboutList.Items.Add("CustomerFull")
AboutList.Items.Add("CustomerInfo")
AboutList.Items.Add("CustomerLists")
AboutList.Items.Add("CustomerReviews")
AboutList.Items.Add("EditorialReview")
AboutList.Items.Add("Help")
AboutList.Items.Add("Images")
AboutList.Items.Add("ItemAttributes")
AboutList.Items.Add("ItemIds")
AboutList.Items.Add("Large")
AboutList.Items.Add("ListFull")
AboutList.Items.Add("ListInfo")
AboutList.Items.Add("ListItems")
AboutList.Items.Add("ListMinimum")
AboutList.Items.Add("ListmaniaLists")
AboutList.Items.Add("Medium")
AboutList.Items.Add("OfferFull")
AboutList.Items.Add("OfferSummary")
AboutList.Items.Add("Offers")
AboutList.Items.Add("Request")
AboutList.Items.Add("Reviews")
AboutList.Items.Add("Salesrank")
AboutList.Items.Add("Seller")
AboutList.Items.Add("SellerListing")
AboutList.Items.Add("Similarities")
AboutList.Items.Add("Small")
AboutList.Items.Add("Tracks")
AboutList.Items.Add("TransactionDetails")
AboutList.Items.Add("VariationMinimum")
AboutList.Items.Add("VariationSummary")
AboutList.Items.Add("Variations")
End If
End If
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>Helpのサンプル</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:DropDownList ID="HelpTypeList" runat="server"
OnSelectedIndexChanged="HelpTypeList_SelectedInd...
AutoPostBack="True">
<asp:ListItem>Operation</asp:ListItem>
<asp:ListItem>ResponseGroup</asp:ListItem>
</asp:DropDownList>
<asp:DropDownList ID="AboutList" runat="server">
</asp:DropDownList>
<asp:Button ID="Button1" runat="server"
OnClick="Button1_Click" Text="送信" />
<br />
</div>
</form>
<br />
<asp:Label ID="Label1" runat="server" EnableViewState...
</asp:Label>
</body>
</html>
}}
//これより下は編集しないでください
#pageinfo([[:Category/.NET]] [[:Category/ASP.NET]],2006-1...
ページ名:
▲
▼
[
トップ
] [
新規
|
子ページ作成
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]