轻轻松松使用asp做api淘宝客

1、轻轻松松使用asp做api淘宝客写在前面的话在2008年由本人开发asp版本的api程序让淘客程序进入一个新的里程碑，在阿里妈妈更新api接口 2.0后之前程序已无法使用，期间由于工作的原因也没有再次更新，最近发现很多站长需求asp的淘宝客程序所以做了一个 asp淘客的视频教程，但是对于一些新手可能看不懂视频，都加我的QQ要我提供视频源程序，这是一种偷懒的行为。今天特意做一个文字教程算是给 asp开发站长的一份国 庆大礼吧。使用演示站：站长：吴林祥一、准备工作了解淘宝客什么是淘宝客？淘宝客就是帮助淘宝卖家推广商品并按照成交效果获得佣金的人（可以是个人或者网站），之前叫淘

2、客，自2009年1月12日起，正式更名为淘宝客。淘宝客”是指帮助淘宝卖家推广商品赚取佣金的人。只要获取淘宝商品的推广链接，让买家通过您的推广链接进入淘宝店铺 购买商品并确认付款，就能赚取由卖家支付的佣金，无需投入成本，无需承担风险，最高佣金达商品 成交额的50%。目前最为火爆的淘宝客类型为淘宝api接口调取和单品的推广为主，而主要的程序语言已php和.Net居多。具体形式 淘宝客推广目前分成2大类，一个专业性质的淘宝客返利网站，另一类是利用CMS或博客，微博等其他可传播的媒介进行淘宝客推广。推广形式推广单件商品、推广整个类目商品、推广整个店铺、搜索推广、页面推广、智能广告推广（详细内容请登录

3、 查询）申请淘宝api淘宝api申请这里就不多做说明，详细情况请百度一下.今天就设么多，你需要做的就是申请api的App_key和secretCode，并下载api文档和通读api文档，明天我将带领大家一起了解一下api文档的。下载地址：/昨天我让大家申请了 App_key和secretCode，并下载api文档和通读 api文档，今天我 就带领大家一起看一下api文档，我们要从淘宝获取数据需要使用哪几个常用api接口。直接看下图：甌T taobao.taobaokexatuFl.get 谓迴 t3ob3o.t3obaak

4、e.items,convert 网闫 ta&bao.taob sake .items, coupon, get MM raobao.taobaoke.items.detaiLget I ETM taobao.taobaoksjirpms.get 挪T taobao.taob sake .items, relate, get 甌 1 taobao.taobaokeJistud.get 置回 tcbao.taobaake.report.get 窗目 ta &b ao .ta ob a o ke .shop s. co nvert irn ta ob ao Xa ob a oke .shops, g

5、et EHM tobao.taobaoke.shops.relate.get 窗目 ta &b ao .ta ob a oke look relation淘宝客类目推广URL闺睿商品转檢查洵淘容折扣裔品查询瀏宝客推广蒔品详细信息查询関宝容推广商品商品关联推荐淘宝客关键词搜索URL関宝客报表查询淘客店铺转换淘宝客店诵搜索衢宝客店铺关联推荐工具联盟注册校验我们要从淘宝获取数据主要设计我用红线标岀来的2个接口，一个是查询淘宝客推广的商品（必须的），二是查询淘宝客推广的商品详细信息，如果你的网站不需要显示详细信息可以那就更简单了， 例如演示网站在文章详细界面通过关键字+ajax调取相关产品，点击直接进

6、入淘宝就不需要详细页面调取了。这种方式将在后面讲到，方便个位站长做插件，让网站更灵活。在做api应用的时候会涉及到 API用户授权，但是在我们使用淘宝客 api的时候不需要API用户 授权，而一些系统级别输入参数并没有列岀那些是必须的，这里我们只需要了解应用级的一些参数。通过文档我们知道应用级参数有几项是必须输入有几项是特殊可选和N多项可选，应用级参数fields是必不可少的，这个也是我们需要查询的一些字段。特殊可选主要是Nick和PId以及keyword和Cid的区别，但是两者必须要有一个，输入了 Nick可以不用PId，有的PId可以不用Nick，通样有了关 键字Keyword可以不输入C

7、id，有了 Cid也可以不要输入Keyword，他们两两之间的关系仔细看文 档右边的说明就可以理解，在这里我也不多废话了免得被拍砖。废话一大堆我们只是说了一下 taobao.taobaoke.items.get （查询淘宝客推广商品）的文档。那么 taobao.taobaoke.items.detail.get （查询淘宝客推广商品详细信息）的文档还请同学们自己去查看， 并做好以下准备嘿嘿，说是准备其实就是给你布置一点作业，方便我们明天的课程。?作业内容：请按以下格式在记事本里准备好你的数据并保存好app_Key =secretCode =pid=cid= keyword=api的调用方式分为

8、http调用方式和https免签名调用方式，而我们这里讲 解的是以http调用方式获取数据，获取数据格式为xml，加密方式使用32 位大写MD5值。详细内容如下（转自淘宝开放平台）已了解的可跳过这一 节。1、TOP接口调用原理调用TOP的API接口时，即是与TOP服务器的数据进行一次交互的过程， API调用接口时，API调用端（即用户调用接口运行的程序），调用 API 服务端的数据（即TOP提供的服务器，可调用淘宝上的数据）时的交互 流程。2、数据获取方式淘宝开放平台调用接口都是通过调用 API来实现的，所有的API都是基 于REST协议，可兼容多种编程语言。只要能够按照 top的规范POST

9、 调用参数就可以取得相应接口返回的淘宝数据。3、调用入口环境地址，即调用接口 （API）时，都通过访问该地址，来获取该接口需要获取的数据正式环境：/router/rest沙箱环境：/router/rest注：淘宝沙箱环境是淘宝开放平台（TOP）提供给独立软件开发商的测试环境。沙箱环境模拟线 上真实的淘宝环境，淘宝商家可以在沙箱环境中完全仿真测试TOP接口的功能；沙箱环境地址：/4、调用参数调用接口 （API）时，必须传入的系统级参数以及应用级参数，该

10、接口更多 输入参数以及返回结构详见API文档5、系统参数介绍名称类型是否必需描述methodstringYAPI接口名称timestamptringsY时间戳，格式为 yyyy-mm-dd HH:mm:ss,例如：2008-01-25 20:23:30 。淘宝API服务端允许客户端请求时间误差为6分钟。formattringsN可选，指定响应格式。默认 xml,目前支持格式为 xmljsonapp_keytringsYTOP分配给应用的AppKeyvtringsYAPI协议版本，可选值:2.0。signtringsYAPI输入参数签名结果sign_methodtringsY参数的加密方法选择，

11、可选值是：md5,hmac6签名(重点难点)调用接口 (API)时需要对请求参数进行签名验证，TOP服务器也会对 该请求参数进行验证是否合法的。根据参数名称将你的所有请求参数按 照字母先后顺序排序：key + value . key + value对除签名和图片外的所有请求参数按key做的升序排列，value无需编码。例如：将 foo=1,bar=2,baz=3 排序为bar=2,baz=3,foo=1 参数名和参数值链接 后，得到拼装字符串bar2baz3foo1 ，将secretcode同时拼接到参数字符 串头、尾部进行md5加密后，再转化成大写，格式是：byte2hex (md5(sec

12、retkey1value1key2value2secret) 。7、发送http请求拼装URL:将所有参数值转换为UTF-8编码，然后拼装，通过浏览器访 问该地址，即成功调用一次接口/router/rest?sig n=5029C3055D51555112 B60B33000122D5×tamp=2011-07-01+13%3A52%3A03&v=2.0 & app_key=test&method=taobao.user.get&part ner_id=top-apitools&for mat=xml&n ick=%E5%95%86

13、%E5%AE%B6%E6%B5%8B%E8%AF% 95%E5%B8%90%E5%8F%B717&fields=ni ck,locatio n.state,locatio n.ci ty淘宝开放平台给出的文档很详细，在上一节我们也说了有一些系统级的参 数，上面已经列出了详细的系统级的名称和描述，这些是必须输入的参数，本教程使用的是xml格式调取并使用md5加密，签名是重点也是好多开发者的难点之处，往往都是因为签名错误导致调取数据的失败。本次学习严格按照我的步骤走下去你可以直接在正式环境下调取出数据。本节没有太多的内容，你需要准的工作就是准备好 md5.asp文件，值得注意 的是需要32位的加密

14、。打开你下载的 md5.asp查看最后2行，修改成如下即可MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d) 32入MD5=LCase(WordToHex(b) & WordToHex(c) 16 入我们使用的是32位的，把16位的注释小即可。今天就到这里，明天就开始 进入程序阶段了请各位学员提前做好准备，这里要设置到一些类文件，对类不了解的同学抓紧补习一下，我这里没有时间给你补习什么是类？类怎么写？类怎么 用？本教程演示地址： 上一节的作业同学们都做好了吧？今天的课程就进入程序阶段

15、了，我会给大家一点一点分析并 一点一点的去做。还望各位同学跟上节奏哦！在第二节的时候我让大家准备了一个记事本文件，里面 的内容如下.IIapp_Key = secretCode = pid=fields = iid,title ,ni ck,pic_url.cid=keyword=现在我们对照上一节的系统级参数看一下还差什么？API 接口名称 method= “ taobao.taobaoke.items.get ”Format格式化我们用的是xmlV当前的api版本为2.0Sign API输入参数签名结果(重点)sign_method 加密方式选择 md5方式timestamp当前时间戳要用

16、完整的格式如“ 2012D9-10 09 : 06 : 26”相关函数1、通过上面的归类我们知道asp里系统默认时间是%=now()%，但是他的格式不是完整的，所以我们需要一个函数来转换一下！函数名：Format_Time功能：格式化时间参数：当前的时间now ()Fun cti on Format_Time(s_Time)Dim y, m, d, h, mi, sFormat_Time =If IsDate(s_Time) = False Then Exit Functiony = cstr(year(s_Time)m = cstr(m on th(s_Time)If le n(m) = 1

17、 The n m = 0 & md = cstr(day(s_Time)If le n(d) = 1 The n d = 0 & dh = cstr(hour(s_Time)If le n(h) = 1 The n h = 0 & hmi = cstr(mi nute(s_Time)If le n( mi) = 1 The n mi = 0 & mis = cstr(sec on d(s_Time)If le n(s) = 1 The n s = 0 & syyyy-mm-dd hh:mm:ssFormat_Time = y & - & m & - & d & & h & : & mi & :

18、 & sEnd Fun cti on2、整个获取过程中我们传递给淘宝的数据是utf-8格式的，所以我们对传递的汉字部分(关键字，淘宝用户名)进行编码转换。函数如下函数名：YuZhe_UrlEncode功能:将指定字符进行指定格式进行编码参数:iStrCode目标字符iPageCode 指定编码65001-UTF-8 或 936-GB2312Fun ction YuZhe_UrlE ncode(iStrCode, iPageCode)Dim StrUrlE ncodeStrUrlEncode =初始化变量If iPageCode SetPageCode Then 如果指定要编码的类型与当前页面编

19、码不一至，则临时设置处理该函数时的页面编码类型Sessi on .CodePage = iPageCodeStrUrlE ncode = Server.UrlE ncode(iStrCode)Sessio n.CodePage = SetPageCode 还原页面编码为默认ElseStrUrlE ncode = Server.UrlE ncode(iStrCode)End IfYuZhe_UrlE ncode = StrUrlE ncodeEnd Fun cti on3、在asp获取淘宝客数据的时候我们使用的是httpget方式获取。这个比较简单我直接提供函数了。=httpget=dim gX

20、mlHttpVerFun ction getXmlHttpVer()dim i,xmlHttpVersio ns,xmlHttpVersio ngetXmlHttpVer=falsexmlHttpVersio ns=Array(Microsoft.XMLHTTP, MSXML2.XMLHTTP, MSXML2.XMLHTTP.3.0)for i=0 to ubou nd(xmlHttpVers ions)xmlHttpVersio n=xmlHttpVersio ns(i)if is In stallObj(xmlHttpVersio n) then getXmlHttpVer=xmlHttp

21、Versio n:gXmlHttpVer=xmlHttpVersio n:Exit Fun cti onn extEnd Fun cti onFun ction tryXmlHttp()dim i,ahah=array(MSXML2.ServerXMLHTTP.5.0,MSXML2.ServerXMLHTTP,MSXML2.ServerXMLHTT P.2.0&_MSXML2.ServerXMLHTTP.3.0,MSXML2.ServerXMLHTTP.4.0&_MSXML2.XMLHTTP, MSXML2.XMLHTTP.3.0,MSXML2.XMLHTTP.4.0,MSXML2.XMLHT

22、TP.5.0)On Error Resume Nextfor i=0 to UBou nd(ah)SET tryXmlHttp=Server.CreateObject(ah(i)if err. number=0 the n:gXmlHttpVer=ah(i):tryXmlHttp.setTimeouts 2000,20000,20000,180000 err.clear:Exit Function:else:err.clear:end ifn extEnd Fun cti ondim gXmlHttpObjFun cti on getRemoteC onten t(Byval retur nT

23、ype)组参url=strGetUrl&createStrParam()if not isObject(gXmlHttpObj) then:set gXmlHttpObj=tryXmlHttp():end ifgXmlHttpObj.open GET,url,FalseOn error resume n extgXmlHttpObj.se nd()if err. number = -2147012894 the ndim desselect case gXmlHttpObj.readyStateCase 1des= &_& #x8FDC ;& #x7A0B ;& #x670D; Case 2:

24、des= Case 3:des= Case else:des= end selecthtm = htm& gXmlHttpVer& & #x5728; &_&url& + des + , . &_ & #x7684; resp on se.e ndelseselect case retur nTypecase textgetRemoteC onten t=gXmlHttpObj.resp on seTextcase bodygetRemoteC onten t=gXmlHttpObj.resp on seBodyend selectend ifEnd Fun cti on好了，今天的内容就到这

25、里了。整理上面的三个函数以后了解一下签名的生成方式。明天我们 进入签名程序又是一天的开始，今天大家要打起精神来看了，api的签名是个难点。很多站长都是在这里岀错的。今天我来带大家一起研究下签名函数。首先我们来看一下开放平台给的签名说明：调用接口 (API)时需要对请求参数进行签名验证，TOP服务器也会对该请求参数进行验证是否合法的。根据参数名称将你的所有请求参数按照字母先后顺序排序：key + value . key + value 对除签名和图片外的所有请求参数按 key做的升序排列，value无需编码。例如：将foo=1,bar=2,baz=3 排序为 bar=2,baz=3,foo=1

26、参数名和参数值链接后，得到拼装字符串bar2baz3foo1，将secretcode同时拼接到参数字符串头、尾部进行 md5加密后，再转化成大写，格式是：byte2hex (md5(secretkey1value1key2value2secret)。通过上面的说明我们知道其中有几个重要点：1、请求参数按照字母先后顺序2、请求参数按key做的升序排列3、参数名和参数值链接拼装为字符串4、value无需编码5、 将secretcode同时拼接到参数字符串头、尾部进行md5加密后6、转化成大写以上6点中第一点和第二点可以可以一起看。在 php中使用的是数组的形式添加和排序，那么我们 在这里也使用数组

27、的形式来做，这样相对就简单了。有key有value，这是一个二维数组。如下：TaoApiRecord=Array(timestamp=&F ormat_Time( no w()& format=xml,&_v=2.0,&_sig n_method=md5)这个数组我已经添加几个系统级参数在里面，timestamp直接讨厌了函数Format_Time。在开发中我们的appkey 一级nick或pid都是变化的，更多的是其他相关的参数需要添加如这个数组里面， 那么如何添加呢？很简单写一个函数在数组中添加一项。函数如下：数组中增增加Fun cti on ArrayList(tag,value)arr

28、Le nth=UBou nd(TaoApiRecord)REDIM Preserve TaoApiRecord(arrle nth+1)TaoApiRecord(arrle nth+1)=tag & =&valueArrayList=TaoApiRecordEnd Fun cti on使用方法:ArrayList app_key,app_Key结果：TaoApiRecord=Array(timestamp=&F ormat_Time( no w()&format=xml,&_v=2.0,&_sig n_ method=md5,&_“app_key=12345678)以此类推把我们需要的参数都加

29、入到数组中。接下来就是对数组进行排序。通用简单的一个函数处理。如下：=数组冒泡排序=Fun cti on ArraySort(ary)KeepCheck ing = TRUEDo Un til KeepCheck ing = FALSEKeepChecki ng = FALSEFor I = 0 to UBou nd(ary)If I = UBound(ary) Then Exit ForIf ary(I) ary(I+1) The nFirstValue = ary(I)Sec on dValue = ary(I+1)ary(I) = Sec on dValueary(I+1) = Firs

30、tValueKeepCheck ing = TRUEEnd IfNextLoopArraySort = aryEnd Fun cti on使用方法：ArraySort(TaoApiRecord)结果：TaoApiRecord=A rray( “ app_key=12345678,&_format=xml,&_sig n_ method=md5,&_timestamp=&Format_Time( no w()&,&_v=2.0)到了在这里，第一条第二条已经完成，现在开始拼装字符串，对数组进行解析按照要求参数名和参数值链接拼装为字符串需要如下函数：按要求进行排序组织传递的参数Fun cti on

31、zzBokeOrder(ary)zzBokeOrder=MyArray = ArraySort(ary)For I = Lbou nd(MyArray) to Ubou nd(MyArray)If zzBokeOrder= The nzzBokeOrder =MyArray(I)ElsezzBokeOrder =zzBokeOrder&M yArray(I)End IfNextEnd Fun cti on使用方法：zzBokeOrder (TaoApiRecord)结果：zzBokeOrder=app_key12345678formatxmlsign_methodmd5timestamp201

32、2-09-10 09:42:25v2.0注意：我们看第四点，value无需编码，我们生成的结果里面没有中文所以不需要编码，但是文档说 明里的这一点往往就是出错点，关键字查询的时候是中文这里必须要处理，淘宝官方说需要进行utf8编码处理，其实我告诉你，不管你的程序语言是utf8编码还是gb2312编码，在签名的时候数组里的关键字必须是gb2312的处理，这里就用到我们上面的 YuZhe_UrlEncode编码处理函数。关键字加 入数组的时候要处理，方法如下strKeyword=YuZhe_UrlEncode(Keyword,936)?把汉字转换成 gb2312 格式ArrayList keywo

33、rd,strKeyword现在我们开始生成签名，看第五点将 secretcode同时拼接到参数字符串头、尾部进行md5加密，第六点转换成大写。结果：sig n = zzbokeOrder(TaoapiRecord)sig n=ucase(md5(strsecretCode&sig n&strsecretCode)大功告成，签名生成了。那么我们就要给淘宝传递参数了。传递方式如下/router/rest?sig n=5029C3055D51555112B60B33000122D5×tam p=2011-07-01+13%3A52%3A0

34、3&v=2.0&app_key=test&m ethod=taobao.user.get&part ner_id=top- apitools&format=xml&n ick=%E5%95%86%E5%AE%B6%E6%B5%8B%E8%AF%95%E5%B8%90 %E5%8F%B717&fields=nick,locatio n.state,locatio n.city注意：刚才我们说签名里的汉字问题，这里也需要注意传递的参数汉字问题。签名里是gb2312的编码。这里给淘宝发送的信息里又需要的是utf的编码。这里如意搞混淆。在做开发的是本人也是大费周章。最后还是被我发现了，所以这里我们还是

35、通过我们的数组进行组合我用了一个函数处理组参+签名函数 fun cti on createStrParam()For I = Lbou nd(TaoapiRecord) to Ubou nd(TaoapiRecord)arry=split (TaoapiRecord(I),=)If URLsig nRecord= The nURLsig nRecord =arry(0) &=&arry(1)Elseif arry(0)=keyword the nURLsig nRecord =URLsig nRecord&，arry(0) &=&YuZhe_UrlE ncode(arry(1),65001)e

36、lseURLsig nRecord =URLsig nRecord&arry(0) & =&arry(1)end ifEnd IfNextcreateStrParam=URLsig nRecordend fun cti on结果:timestamp=2011-07-01+13%3A52%3A03&v=2.0&app_key=test&method=taobao.user.get&part nerd=top-apitools&format=xml&n ick=%E5%95%86%E5%AE%B6%E6%B5%8B%E8%AF%95%E5%B8%90%E5%8F%B717&fields=nick,

37、locatio n.state,locatio n.city有了签名和传递的参数进行最终的组合，就是把获取淘宝客数据的地址/router/rest?和签名加在上面的结果里。Httpur匸/router/rest?timestamp=2011-07-01+13%3A52%3A03&v=2.0&app_key=test&method=taobao.user.get&part nerd=top-apitools&format=xml&n ick=%E5%95%86%E5%AE%B6%E6%B5%8B%E8%A

38、F%95%E5%B8%90%E5%8F%B717&fields=nick,locatio n.state,locatio n. city&sig n=15AS4SAD47DDUDBB23234好了，签名和传递的参数都做好了，今天的课程也就到这里了。给的作业就是把这几个函数都整理一下，明天我们就获取获取，有能力的做成一个类文件方便调去。明天我带大家取数据了又是一个新的开始，昨天的课程不知道大家学的如何了，今天我带大家一起获取淘宝数据。先问问大家你们有没有做昨天的作业呢？肯定有同学偷懒了。为了方便测试我已经写好了，今天就拿岀来吧，免得大家说我扣。直接上函数，没有注释 .文件名：New_APi.as

39、p ary(I+1) The nFirstValue = ary(I)Sec on dValue = ary(I+1)ary(I) = Sec on dValueary(I+1) = FirstValueKeepCheck ing = TRUEEnd IfNextLoopArraySort = aryEnd Fun cti on按要求进行排序组织传递的参数Fun cti on zzBokeOrder(ary)zzBokeOrder=MyArray = ArraySort(ary)For I = Lbou nd(MyArray) to Ubou nd(MyArray)If zzBokeOrder

40、= The nzzBokeOrder =MyArray(I)ElsezzBokeOrder =zzBokeOrder&M yArray(I)End IfNextEnd Fun cti on组参+签名函数fun cti on createStrParam()sig nRecord = zzbokeOrder(TaoapiRecord)For I = Lbou nd(TaoapiRecord) to Ubou nd(TaoapiRecord) arry=split (TaoapiRecord(I),=)If URLsig nRecord= The nURLsig nRecord =arry(O)

41、&=&arry(1)Elseif arry(0)=keyword thenURLsig nRecord =URLsig nRecord&，arry(0) &=&YuZhe_UrlE ncode(arry(1),65001)elseURLsig nRecord =URLsig nRecord&arry(0) & =&arry(1)end ifEnd IfNextsig n=Replace(Replace(sig nRecord,=,), &,)sig n=ucase(md5(strsecretCode&sig n&strsecretCode)给taobao传递的参数createStrParam=

42、URLsig nRecord &sig n=&sig nend fun cti on=httpget=dim gXmlHttpVerFunction getXmlHttpVer()dim i,xmlHttpVersio ns,xmlHttpVersio ngetXmlHttpVer=falsexmlHttpVersions=Array(Microsoft.XMLHTTP, MSXML2.XMLHTTP,MSXML2.XMLHTTP.3.0,MSXML2.XMLHTTP.4.0,MSXML2.XMLHTTP.5.0)for i=0 to ubou nd(xmlHttpVersi ons)xmlH

43、ttpVersio n=xmlHttpVersio ns(i)if is In stallObj(xmlHttpVersio n) then getXmlHttpVer=xmlHttpVersio n:gXmlHttpVer=xmlHttpVersio n:Exit Fun cti onnextEnd Fun cti onFu nction tryXmlHttp()dimi,ah:ah=array(MSXML2.ServerXMLHTTP.5.0,MSXML2.ServerXMLHTTP,MSXML2.ServerXMLHTTP20,MSXML2.ServerXMLHTTP.3.0,MSXML

44、2.ServerXMLHTTP.4.0,MSXML2.ServerXMLHTTP.6.0,Microsoft.XMLHTTP, MSXML2.XMLHTTP,MSXML2.XMLHTTP.3.0,MSXML2.XMLHTTP.4.0,MSXML2.XMLHTTP.5.0)On Error Resume Nextfor i=0 to UBou nd(ah)SET tryXmlHttp=Server.CreateObject(ah(i)if err. number=0 the n:gXmlHttpVer=ah(i):tryXmlHttp.setTimeouts2000,20000,20000,18

45、0000:err.clear:Exit Function:else:err.clear:end ifnextEnd Fun cti ondim gXmlHttpObjFun cti on getRemoteC onten t(Byval retur nType)组参url=strGetUrl&createStrParam()die urlif not isObject(gXmlHttpObj) then:set gXmlHttpObj=tryXmlHttp():end ifdie urlgXmlHttpObj.open GET,url,FalseOn error resume n extgXm

46、lHttpObj.se nd()if err.number = -2147012894 thendim desselect case gXmlHttpObj.readyStateCase1:des= & #x6216; & #x63A5 ;& #x8FDC; 服 ;& #x52A1; Case 2:des= Case 3:des= Case else:des= & #x6BB5;end selecthtm = htm& gXmlHttpVer& &url& #x53D1; + des + , . & #x9898; & #xFF0C ;& #x8BF7; & #x670D; resp on se.e ndelseselect case retur nTypecase textgetRemoteC onten t=gXmlHttpObj.resp on seTextcasebodygetRemoteC onten t=gXmlHttpObj.resp on seBodyend selectend ifEnd Fun cti on函数名：