ASP模拟POST提交数据的方法
来源：飘易 发布时间：2010-01-14 20:06:00
有时需要获取远程网站的某些信息，而服务器又限制了GET方式，只能通过POST数据提交，这个时候我们可以通过asp来实现模拟提交post数据，飘易加工了下面的部分代码，比如获取IP138的IP数据地址信息，代码如下：
<％
On error resume next '容错处理
Function GetBody(ips) '飘易-获取远程IP地址POST信息
Set https = Server.CreateObject("MSXML2.XMLHTTP")
With https
.Open "Post", "http://www.ip138.com/ips8.asp", False
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send "ip="&ips&"&action=2"
GetBody = .ResponseBody
End With
GetBody = BytesToBstr(GetBody,"GB2312")
Set https = Nothing
End Function
Function BytesToBstr(body,Cset) '转换GB2312
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Response.Write GetBody("61.186.177.105")
％>
0
投稿猜你喜欢
- 时间格式化函数，代码简单但较实用代码很简单，谁都能看懂Function fmstr(str, str1, Lens) Dim str2For
- 我用的数据库是Access2000的，系统为Win2000 Advance Server.今天在程序调试中遇到了以下几个怪现象：1.如果Ac
- 看了大峡搞的级联菜单，我也班门弄斧一把，嘿嘿，花了一点时间搞了个级联菜单贴上来看看。本例中只要你选择成员分类名称就会自动显示成员名称：&nb
- 如何用SQLMail建立一个电子刊物自动处理系统？下面我们用SQLMail来做一个电子刊物自动处理系统。在这个系统中，主要实现两个功能：1、
前几天光耀童鞋喷了一篇《谈网站注册、登录过程》，今天我们在与小爬童鞋梳理购买流程的时候也谈到了这部分内容。其实注册作为一个网站基本功能再普通- 一、偏好资源的积累利用DreamWeaver 4制作网页会应用到许多各种类型的要素，比如色彩、图片、模板、脚本等。利用站点资源面板将这些东东
- 在利用javascript内置的eval函数,将json格式的字符串转换成JS对象时,需要用一对"()"先将该字符串包住
- 前面的文章，主要讲到如何使用无序列表ul元素来实现复杂柱状图，但是在Web标准中，除了注重表现外，更加注重语意，所谓的语意就是样式和内容的相
- Delphi连接MySQL真麻烦，研究了一天，从网上找了无数文章，下载了无数插件都没解决。最后返璞归真，老老实实用ADO来连接，发现也不是很
- 用ASP生成XBM数字图片（可用来生成验证码）XBM图片是一个纯文本的文件，可以用ASP来自动生成。可以用它来使用网站登陆的验证码；我们用记
- 通过界面设计上是能手工操作的，无法达到我批量修改几千台服务器。 因为此了一个脚本来批量执行。 环境：redgate + mssql 2008
- Oracle SQL语句中的Update可以和SEQUENCE联合使用，以达到更新某字段的值连续编号，而不需要使用游标去逐条遍历更新数据库记
- 中国，美国，英国3国时间js同步动态显示，对于做企业网站的朋友相信用的到，特别是做英文网站的朋友，加上这一段代码会给你的网站增色不少！本文j
- 英文原文：The seven rules of Unobtrusive JavaScript原文地址：http://icant.co.uk/
- 要真说出来哪一个函数能够做得到，还真难。但我们可用下面的代码来进行识别，返回“假”即偶数，返回“真”则奇数： function&n
- 使用MySQL，安全问题不能不注意。以下是MySQL提示的23个注意事项：1.如果客户端和服务器端的连接需要跨越并通过不可信任的网络，那么就
- 本章的前面讨论如何使用SQL向一个表中插入数据。但是，如果你需要向一个表中添加许多条记录，使用SQL语句输入数据是很不方便的。幸运的是，My
- 代码如下:'===================================== '获得文件后缀 '=====
- by yemoo有时在编写网页代码时发现，img底部莫名奇妙多出大约3px的空白，无论怎么调节css都不可以，今天再次遇到此问题，网上看了一
- 这个代表显示宽度整数列的显示宽度与mysql需要用多少个字符来显示该列数值，与该整数需要的存储空间的大小都没有关系
