.net 使用淘宝登陆第三方网站
淘宝的API已经申请了,也看了他们写的文档,但是思路还是有点不清楚,哪位大神做过这个接口,能否贴一下源码,谢谢了,或者发到邮箱里也可以 798192872@qq.com,就剩下这么多分了,帮帮忙呀。 --------------------编程问答-------------------- 没做过,不过貌似淘宝API有示例吧? --------------------编程问答-------------------- 曾经我也在这里贴帖子,求大虾过来帮小弟解决问题,但是最后还是自己解决的。。。相信自己吧。。 --------------------编程问答-------------------- --------------------编程问答-------------------- 做倒是做全了,不过还是建议你自己去研究摸索!因为里面涉及很多私人的东西不能公开的。别人做好的东西给你看,你也用不上,甚至于看不明白。淘宝API里面说得更清晰,且有注释,
无非就是读取XML,然后写入你自己的数据库,把XML的读取玩熟了,引入到你自己的数据库,就行了! --------------------编程问答--------------------
能不能给我段 读取XML的代码?绑定到数据控件上,那个XML的子节点是循环的,请教。。。 --------------------编程问答--------------------
--------------------编程问答-------------------- 接口的地址能看看?
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)
补充:.NET技术 , ASP.NET