福网空间站:提供万网域名、空间、美国空间、域名 福建网站制作中心提供一条龙网站建设 要就发IP网站限制访问系统,防止同行抄袭并保障海外客户访问不受影响
福网企业建站中心|上千企业网站风格 要就发外贸站,以外国人的视觉建设英文网站
福建网站建设、福建网页设计、福建网站制作 福网官方主机,新增美国主机|PHP网站建设
要就发网店系统适合个人网上开店,少投入大收益 福建福州美国域名注册、超大容量国内、国外空间
详细内容                            全国服务热线:13616088405
asp采集Http.open,get,post

Function getPostHTTPPage(url,ppp) 'post
Set Http = CreateObject("Msxml2.XMLHTTP") 
If Not IsObject(Http) Then 
     Set Http = CreateObject("Microsoft.XMLHTTP") 
     If Not IsObject(Http) Then Exit Function 
End If 
    Http.open "POST","http://www.yifupay.com/Pay_Index.html",false
    Http.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset:utf-8" 
    Http.send("pay_amount=14&pay_applydate=2018-01-05%2011%3A57%3A56&pay_bankcode=902&pay_callbackurl=http%3A//s.go9e.com/pay/page.php&pay_memberid=10011&pay_notifyurl=http%3A//s.go9e.com/pay/server.php&pay_orderid=E20181511526101850&pay_md5sign=B7D6BD880F8425A94009C1C9FD355A51&pay_attach=1234&pay_productname=go9ecom")
    if Http.readystate<>4 then
         exit function
    end if
    getPostHTTPPage=BytesToBstr(Http.responseBody,"UTF-8")
    set http=nothing
    if err.number<>0 then err.Clear 
    End Function 

Function getHTTPPage(url) 'get
        dim http 
        set http=Server.createobject("Microsoft.XMLHTTP")
      ' Set Http=Server.CreateObject("MSXML2.XMLHTTP")
        Http.open "GET",url,false 
        Http.send() 
        if Http.readystate<>4 then
           exit function 
        end if 
getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
set http=nothing
        if err.number<>0 then err.Clear  
    End function
        
    Function BytesToBstr(body,Cset)
        dim objstream
        set objstream = Server.CreateObject("adodb.stream")
        objstream.Type = 1  'objstream.Type = 2
        objstream.Mode =3
        objstream.Open
        objstream.Write body 'objstream.Writetext body
        objstream.Position = 0
        objstream.Type = 2
        objstream.Charset = Cset
        BytesToBstr = objstream.ReadText 
        objstream.Close
        set objstream = nothing
    End Function

发布日期:2018-1-5    浏览量:    
要就发IP网站限制访问系统,防止同行抄袭并保障海外客户访问不受影响
福建网站制作中心(http://www.001fj.com)承接个人、公司、企业的网站建设、网页设计、网店制作、独立商城制作、外贸网站制作,也承接同行介绍的业务,欢迎联系!
本站承接主要业务如下:
1、虚拟主机(网站空间),有独立国内服务器、美国服务器、万网服务器
2、域名注册,是万网的域名代理,域名提供万网的独立控制面板
3、网站建设:含FLASH制作、个人网店制作、企业建站、公司网站、新闻、下载等建设、论坛、博客网站搭建等,承接外贸英文站制作
4、采集、程序小偷程序制作:实现商品数据采集、文章、图片采集、让你的网站在短时间内拥有大量的数据,制作小偷程序,让你i轻松拥有大型网站而不需要发大量维护
5、网站推广、流量推广:百度竞价排名,流量推广提搞你网站流量促进百度排名,每月网站流量推广,让您网站最少时间受最多人的关注
联系电话:13616088405,联系QQ:535251856,123023436