设为首页收藏本站订阅更新

无忧脚本

 找回密码
 加入无忧

QQ登录

只需一步,快速开始

搜索
查看: 2128|回复: 3

[求助] 求助asp淘宝客API采集代码(提交淘宝产品链接获取淘宝相关信息并替换value值)

[复制链接]
发表于 2015-10-24 12:29:55 | 显示全部楼层 |阅读模式
本帖最后由 cnetb 于 2015-10-24 12:36 编辑

  1. 代码1、md5.asp 2、api.asp 3、demo.asp


  2. demo.asp

  3. [html]<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  4. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  5. <html xmlns="http://www.w3.org/1999/xhtml">
  6. <html>
  7. <head>
  8. <title></title>
  9. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  10. <link rel="stylesheet" href="css/Styles.css" type="text/css">
  11. <script language="javascript">
  12. function getsss(){
  13. document.getElementById('title').value=respItem[i].title;
  14. document.getElementById('content').value=respItem[i].content;
  15. document.getElementById('List_Cppfj').value=respItem[i].List_Cppfj;
  16. document.getElementById('List_Cpjg').value=respItem[i].List_Cpjg;
  17. document.getElementById('List_Http').value=respItem[i].List_Http;
  18. document.getElementById('Use_Pic').value=respItem[i].Use_Pic;
  19. }
  20. </SCRIPT>
  21. </head>
  22. <body text="#000000" leftmargin="10" topmargin="10" bgcolor="#445588">
  23. <table width="100%" border="0" cellspacing="1" cellpadding="50" align="center" height="100%" bgcolor="#CCCCCC">
  24.   <tr>
  25.     <td valign="top" class="larger" bgcolor="#FFFFFF">
  26.       <table cellspacing="0" cellpadding="5" border="0" width="100%" align="center" height="12">
  27.           <tr>
  28.             <td colspan="2" height="30" class="top_bar">
  29.               <div align="center"><font color="#FFFFFF"><b>新增产品信息</b></font></div>
  30.             </td>
  31.           </tr>
  32.       </table>
  33. <form name="form1" method="post" action="add.asp">
  34.         <table cellspacing="1" cellpadding="5" border="0" bgcolor="#CCCCCC" width="100%" align="center" height="232">
  35.           <tr>
  36.             <td width="25%" bgcolor="#FFFFFF" height="4">
  37.               <div align="right"><b>淘宝天猫产品采集</b></div>
  38.             </td>
  39.             <td class="larger" width="75%" bgcolor="#FFFFFF" height="4"><font color="#666666">
  40.               <input type="text" name="List_Name2" id="List_Name2" size="50" class="text">
  41.               <input type="button" value="一键采集" class="button" onclick="getsss();">
  42.               </font></td>
  43.           </tr>
  44.           <tr>
  45.             <td width="25%" bgcolor="#FFFFFF" height="5">
  46.               <div align="right"><b>产品名称</b></div>
  47.             </td>
  48.             <td class="larger" width="75%" bgcolor="#FFFFFF" height="5"><font color="#666666">
  49.               <input type="text" name="title" id="title" size="30" class="text" maxlength="100">
  50.               </font></td>
  51.           </tr>
  52.           <tr>
  53.             <td width="25%" height="10" bgcolor="#FFFFFF">
  54.               <div align="right"><b>产品简介</b></div>
  55.             </td>
  56.             <td class="larger" width="75%" height="10" bgcolor="#FFFFFF">
  57.               <div align="left"> <font color="#666666">
  58.                           <textarea id="content" name="content" cols="0" rows="0" style="display:none"></textarea>
  59.                 <script type="text/plain" id="editor" name="content"  style="width:100%;height:100px;" ></script>
  60.                 <script type="text/javascript">
  61. var use_content= UE.getEditor('editor');
  62. //editor.getcontent()=content;
  63. </script>
  64.                 </font></div>
  65.             </td>
  66.           </tr>
  67.           <tr>
  68.             <td width="25%" height="-2" bgcolor="#FFFFFF">
  69.               <div align="right"><b>产品市场价</b></div>
  70.             </td>
  71.             <td class="larger" width="75%" height="0" bgcolor="#FFFFFF"><font color="#666666">
  72.               <input type="text" name="List_Cpjg" id="List_Cpjg" size="10"  class="text">
  73.               </font></td>
  74.           </tr>
  75.           <tr>
  76.             <td width="25%" height="0" bgcolor="#FFFFFF">
  77.               <div align="right"><b>分类</b></div>
  78.             </td>
  79.             <td class="larger" width="75%" height="0" bgcolor="#FFFFFF"><font color="#666666">
  80.               <select name="Pro_Class_Id" id="Pro_Class_Id" class="text" >
  81.               </select>
  82.               </font></td>
  83.           </tr>
  84.           <tr>
  85.             <td width="25%" height="0" bgcolor="#FFFFFF">
  86.               <div align="right"><b>购买地址</b></div>
  87.             </td>
  88.             <td class="larger" width="75%" height="0" bgcolor="#FFFFFF"><font color="#666666">
  89.               <input type="text" name="List_Http" id="List_Http" size="30" class="text">
  90.               <font color="#999999">*支持淘宝、天猫</font></font></td>
  91.           </tr>
  92.           <tr>
  93.             <td width="25%" height="1" bgcolor="#FFFFFF">
  94.               <div align="right"><b>产品首图</b></div>
  95.             </td>
  96.             <td class="larger" width="75%" height="1" bgcolor="#FFFFFF">
  97.               <table cellspacing="0" cellpadding="0" border="0" width="85%" height="8">
  98.                 <tr>
  99.                   <td width="32%">
  100.                     <input type="text" size="30" class="text" name="Use_Pic" id="Use_Pic">
  101.                   </td>
  102.                   <td width="68%"></td>
  103.                 </tr>
  104.               </table>
  105.             </td>
  106.           </tr>
  107.           <tr>
  108.             <td colspan="2" bgcolor="#FFFFFF" height="10">
  109.               <div align="center">
  110.                 <input type="reset" name="Submit" value="重置">
  111.                 <input type="submit" name="Submit" value="提交" onClick="javascript:return check_form();">
  112.                 <input type="hidden" name="sType" value="add">
  113.               </div>
  114.             </td>
  115.           </tr>
  116.         </table>
  117.       </form>
  118.     </td>
  119.   </tr>
  120. </table>
  121. </body>
  122. </html>[/html]

  123. api.asp

  124. [html]<!--#include file="Md5.asp" -->
  125. <%
  126. '==========================================
  127. '文 件 名:topapi.asp
  128. '文件用途:淘宝API信息文件
  129. '==========================================
  130. '系统级接口常量
  131. Dim Url,Format,Sign_Method,V,timestamp
  132. Url = "http://xxxxx/router/rest" '淘宝客提交网址
  133. Format = "xml"
  134. Sign_Method = "md5"
  135. V = "2.0"
  136. timestamp = Format_Time(Now())
  137. app_key = "323250-0"'自己修改填写测试
  138. secret = "3e4a96274c29410b9e740714f0982b6" '自己修改填写测试

  139. '定义API接口名称
  140. Dim Method
  141. Method = "taobao.tbk.items.detail.get"  '查询淘宝客推广商品

  142. '定义返回值
  143. Dim sfields

  144. sfields= "num_iid,seller_id,nick,title,price,volume,pic_url,item_url,shop_url"

  145. '===============================================
  146. '函 数 名:CreateData1()
  147. '函数用途:API签名函数(查询淘宝客推广商品)
  148. '===============================================
  149. Function CreateDate(ByVal keyword,ByVal cid,ByVal start_price,ByVal end_price,ByVal area,ByVal start_credit,ByVal end_credit,ByVal sort,ByVal page_no,ByVal page_size,ByVal Api)
  150.         Dim sign,appdata,Api_Key,Api_Secret
  151.         If Api = 1 Then
  152.                 Api_Key =App_Key_back
  153.                 Api_Secret = App_Secret_back
  154.         Else
  155.                 Api_Key =App_Key
  156.                 Api_Secret = App_Secret
  157.         End If
  158.         sign=UCase(md5(Api_Secret&"app_key"&Api_Key&"area"&area&"cid"&cid&"end_credit"&end_credit&"end_price"&end_price&"fields"&sfields&"format"&Format&"keyword"&keyword&"method"&Method&"nick"&Nick&"page_no"&page_no&"page_size"&page_size&"sign_method"&Sign_Method&"sort"&sort&"start_credit"&start_credit&"start_price"&start_price&"timestamp"×tamp&"v"&V&""&Api_Secret))

  159.         appdata="app_key="&Api_Key&"&keyword="&server.URLEncode(keyword)&"&area="&server.URLEncode(area)&"&cid="&cid&"&sort="&sort&"&start_credit="&start_credit&"&end_credit="&end_credit&"&start_price="&start_price&"&end_price="&end_price&"&page_no="&page_no&"&page_size="&page_size&"&fields="&sfields&"&format="&Format&"&method="&Method&"&nick="&server.URLEncode(Nick)&"&sign_method="&Sign_Method&"×tamp="&server.URLEncode(timestamp)&"&v="&V&"&sign="&sign&""
  160. response.Write(sign)
  161. response.End()
  162. End Function

  163. '===============================================
  164. '函 数 名:Format_Time(s_Time)
  165. '函数用途:API时间格式化函数
  166. '===============================================
  167. Function Format_Time(s_Time)
  168.     Dim y, m, d, h, mi, s
  169.     Format_Time = ""
  170.     If IsDate(s_Time) = False Then Exit Function
  171.     y = cstr(year(s_Time))
  172.     m = cstr(month(s_Time))
  173.     If len(m) = 1 Then m = "0" & m
  174.     d = cstr(day(s_Time))
  175.     If len(d) = 1 Then d = "0" & d
  176.     h = cstr(hour(s_Time))
  177.     If len(h) = 1 Then h = "0" & h
  178.     mi = cstr(minute(s_Time))
  179.     If len(mi) = 1 Then mi = "0" & mi
  180.     s = cstr(second(s_Time))
  181.     If len(s) = 1 Then s = "0" & s
  182.     Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
  183. End Function
  184. '===============================================
  185. '函 数 名:httpGet(url,data)
  186. '函数用途:API获取数据函数
  187. '===============================================
  188. Function httpGet(url,data)
  189.     Dim xmlhttp
  190.     Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
  191.     xmlhttp.open "GET", url + "?" + data, False
  192.     xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
  193.     xmlhttp.setRequestHeader "Content-Length", Len(data)
  194.     xmlhttp.send (Null)
  195.     If (xmlhttp.Status = 200) Then
  196.                 httpGet = xmlhttp.responseText
  197.         Else
  198.                 httpGet = ""
  199.                 exit function
  200.         end if
  201.     Set xmlhttp = Nothing
  202. End Function

  203. '============================
  204. '过程名:tkitems()
  205. '作用:按条件获取商品数据
  206. '============================
  207. Function tkitems(ByVal keyword,ByVal cid,ByVal start_price,ByVal end_price,ByVal area,ByVal start_credit,ByVal end_credit,ByVal sort,ByVal page_no,ByVal page_size,ByVal types)
  208.         Dim iid,num_iid,title,snick,pic_url,click_url,price,commission,commission_rate,commission_num,commission_volume,shop_click_url
  209.         Dim cscore,item_location,volume
  210.         Dim dataparam
  211.         Dim total,totals,myarray
  212.         ReDim myarray(0,0)
  213.         Select Case types
  214.                 Case 1
  215.                         dataparam = CreateDate1(""&keyword&"",""&cid&"",""&start_price&"",""&end_price&"",""&area&"",""&start_credit&"",""&end_credit&"",""&sort&"",page_no,page_size,0)
  216.                 Case 2
  217.                         dataparam = CreateDate1(""&keyword&"",""&cid&"",""&start_price&"",""&end_price&"",""&area&"",""&start_credit&"",""&end_credit&"",""&sort&"",page_no,page_size,1)
  218.         End Select
  219.        
  220.         xcontent = httpGet(Url,dataparam)
  221.         Set xml=Server.CreateObject("Microsoft.XMLDOM")
  222.         xml.Async=False
  223.         xml.ValidateOnParse=False
  224.         xml.LoadXml(xcontent)
  225.         If xml.ReadyState>2 Then
  226.                 Set item=xml.getElementsByTagName("taobaoke_item")
  227.                 Set total = xml.getElementsByTagName("total_results")
  228.                 If total.length = 0 Then
  229.                         totals = 0
  230.                 Else
  231.                         totals=xml.getElementsByTagName("total_results")(0).Text
  232.                 End If
  233.                 If item.Length > 0 Then
  234.                 ReDim myarray(item.Length-1,16)
  235.                         For i=0 To (item.Length-1)
  236.                                 Set iid=item.Item(i).getElementsByTagName("iid")                                                        '0淘宝客商品ID
  237.                                 Set num_iid=item.Item(i).getElementsByTagName("num_iid")                                        '1淘宝客商品数字id
  238.                                 Set title=item.Item(i).getElementsByTagName("title")                                                '2商品title 宝贝名称
  239.                                 Set snick = item.Item(i).getElementsByTagName("nick")                                                '3卖家昵称
  240.                                 Set pic_url=item.Item(i).getElementsByTagName("pic_url")                                        '4图片url
  241.                                 Set price=item.Item(i).getElementsByTagName("price")                                                '5商品价格
  242.                                 Set click_url=item.Item(i).getElementsByTagName("click_url")                                '6推广点击url
  243.                                 Set commission=item.Item(i).getElementsByTagName("commission")                                '7淘宝客佣金
  244.                                 Set commission_rate=item.Item(i).getElementsByTagName("commission_rate")        '8淘宝客佣金比率
  245.                                 Set commission_num=item.Item(i).getElementsByTagName("commission_num")                '9累计成交量.注:返回的数据是30天内累计推广量
  246.                                 Set commission_volume=item.Item(i).getElementsByTagName("commission_volume")'10累计总支出佣金量
  247.                                 Set shop_click_url = item.Item(i).getElementsByTagName("shop_click_url")        '11商品所在店铺的推广点击url
  248.                                 Set cscore = item.Item(i).getElementsByTagName("seller_credit_score")                '12卖家信用等级       
  249.                                 Set item_location = item.Item(i).getElementsByTagName("item_location")                '13商品所在地
  250.                                 Set volume = item.Item(i).getElementsByTagName("volume")                                        '14商品30天交易量
  251.                                 myarray(i,0) = iid.Item(0).Text
  252.                                 myarray(i,1) = num_iid.Item(0).Text
  253.                                 myarray(i,2) = title.Item(0).Text
  254.                                 myarray(i,3) = snick.Item(0).Text
  255.                                 myarray(i,4) = pic_url.Item(0).Text
  256.                                 myarray(i,5) = price.Item(0).Text
  257.                                 myarray(i,6) = click_url.Item(0).Text
  258.                                 myarray(i,7) = commission.Item(0).Text
  259.                                 myarray(i,8) = commission_rate.Item(0).Text
  260.                                 myarray(i,9) = commission_num.Item(0).Text
  261.                                 myarray(i,10) = commission_volume.Item(0).Text
  262.                                 myarray(i,11) = shop_click_url.Item(0).Text
  263.                                 myarray(i,12) = cscore.Item(0).Text
  264.                                 myarray(i,13) = item_location.Item(0).Text
  265.                                 myarray(i,14) = volume.Item(0).Text
  266.                                 myarray(i,15) = totals
  267.                         Next
  268.                 End If
  269.         End If
  270.         tkitems =myarray
  271. End Function
  272. %>
  273. [/html]
复制代码


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入无忧

x
 楼主| 发表于 2015-10-24 12:33:25 | 显示全部楼层
协助成功解决问题的,给予四川特产瓷胎竹编工艺品竹编茶杯一套,包邮,

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入无忧

x
 楼主| 发表于 2015-10-24 12:47:11 | 显示全部楼层

版主们、兄弟们你们在哪里哦,我等这解决问题哦,
 楼主| 发表于 2015-10-24 12:47:53 | 显示全部楼层
熬了几个晚上了,,,没有结果
您需要登录后才可以回帖 登录 | 加入无忧

本版积分规则

小黑屋|手机版|Archiver|无忧脚本 ( 苏ICP备05080427号 )|值班电话:027-62300445   鄂公网安备 42011102000433号

GMT+8, 2017-11-24 22:31 , Processed in 0.095936 second(s), 8 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表