.net 使用淘宝登陆第三方网站

[duchengshang]

淘宝的API已经申请了，也看了他们写的文档，但是思路还是有点不清楚，哪位大神做过这个接口，能否贴一下源码，谢谢了，或者发到邮箱里也可以 [e-mail],就剩下这么多分了，帮帮忙呀。

[subxli]

没做过，不过貌似淘宝API有示例吧？

[a871737299]

曾经我也在这里贴帖子，求大虾过来帮小弟解决问题，但是最后还是自己解决的。。。相信自己吧。。

[CalvinR]

[huayy]

做倒是做全了，不过还是建议你自己去研究摸索！因为里面涉及很多私人的东西不能公开的。
别人做好的东西给你看，你也用不上，甚至于看不明白。淘宝API里面说得更清晰，且有注释，
无非就是读取XML，然后写入你自己的数据库，把XML的读取玩熟了，引入到你自己的数据库，就行了！

[vampire_mc]

[Quote=引用 4 楼 的回复:]

做倒是做全了，不过还是建议你自己去研究摸索！因为里面涉及很多私人的东西不能公开的。
别人做好的东西给你看，你也用不上，甚至于看不明白。淘宝API里面说得更清晰，且有注释，
无非就是读取XML，然后写入你自己的数据库，把XML的读取玩熟了，引入到你自己的数据库，就行了！
[/Quote]

能不能给我段 读取XML的代码？绑定到数据控件上，那个XML的子节点是循环的，请教。。。

[huayy]

        Dim url, appkey, appsecret As String
        url = "http://gw.api.taobao.com/router/rest?"
        appkey = System.Configuration.ConfigurationSettings.AppSettings("taobao_appkey")
        appsecret = System.Configuration.ConfigurationSettings.AppSettings("taobao_appsecret")
        Dim client As Top.Api.ITopClient = New Top.Api.DefaultTopClient(url, appkey, appsecret)
        Dim req As New Top.Api.Request.ItemsOnsaleGetRequest()
        req.Fields = "num_iid,title,pic_url,outer_id,num,list_time"

        Dim pageno As Long = pager.SelectedItem.Text
        req.PageNo = pageno
        req.OrderBy = "l"
        req.PageSize = 100L
        Dim responseWrite As Top.Api.Response.ItemsOnsaleGetResponse = client.Execute(req, sessionkey)


        Dim xmldoc As New XmlDocument()
        xmldoc.LoadXml(responseWrite.Body)
        Dim nodelist As XmlNodeList = xmldoc.SelectNodes("//items_onsale_get_response/items/item") '指向XML所在节点

        For Each nl As XmlNode In nodelist

            Dim list_time, num, num_iid, outer_id, pic_url, rtitle As String

            list_time = nl.Item("list_time").InnerText
            num = nl.Item("num").InnerText
            num_iid = nl.Item("num_iid").InnerText

            If (nl.SelectNodes("outer_id").Count = 0) Then
                outer_id = "0"
            Else
                outer_id = nl.Item("outer_id").InnerText
            End If
            pic_url = nl.Item("pic_url").InnerText
            rtitle = nl.Item("title").InnerText

  
'这里放循环写入商品信息数据库代码

            Dim numiid As Long = num_iid
            Dim req_2 As New Top.Api.Request.ItemGetRequest()
            req_2.Fields = "sku,property_alias,props_name"
            req_2.NumIid = numiid
            Dim responseWrite_2 As Top.Api.Response.ItemGetResponse = client.Execute(req_2, sessionkey)

            Dim xmldoc_2 As New XmlDocument()
            xmldoc_2.LoadXml(responseWrite_2.Body)
            Dim nodelist_2 As XmlNodeList = xmldoc_2.SelectNodes("//item_get_response/item/skus/sku") '指向XML所在节点
            For Each nl_2 As XmlNode In nodelist_2
                Dim created2, modified2, outer_id2, price2, properties2, quantity2, sku_id2 As String
                created2 = nl_2.Item("created").InnerText
                modified2 = nl_2.Item("modified").InnerText

                If (nl_2.SelectNodes("outer_id").Count = 0) Then
                    outer_id2 = 0
                Else
                    outer_id2 = nl_2.Item("outer_id").InnerText
                End If

                price2 = nl_2.Item("price").InnerText
                properties2 = nl_2.Item("properties").InnerText
                quantity2 = nl_2.Item("quantity").InnerText
                sku_id2 = nl_2.Item("sku_id").InnerText

                Dim aliasstr, namestr As String
                aliasstr = GetKey(responseWrite_2.Body, "property_alias", "property_alias")
                namestr = GetKey(responseWrite_2.Body, "props_name", "props_name")

                Dim properties_name As String
                Dim property_alias As String

                Dim ServerName As String
                Dim Str() As String
                Str = properties2.Split(";")
                For Each ServerName In Str
                    If ServerName <> "" Then
                        If Len(GetKey(namestr, ServerName, ";")) > 50 Then
                            properties_name &= GetKey(namestr, ServerName, "<")
                        Else
                            properties_name &= GetKey(namestr, ServerName, ";")
                        End If

                        If Len(GetKey(aliasstr, ServerName, ";")) > 50 Then
                            property_alias &= GetKey(aliasstr, ServerName, "<")
                        Else
                            property_alias &= GetKey(aliasstr, ServerName, ";")
                        End If

                    End If
                Next

                property_alias = property_alias.Replace("</", "")


'这里放循环写入商品属性数据库代码

                property_alias = ""
                properties_name = ""


            Next

        Next

        Response.Redirect(Request.Url.ToString)

[该用户不会设置昵称]

接口的地址能看看?