Easp 邮编查询(easp.http)
<!--#include file="Easp/easp.asp" --> <% Dim tmp Response.Charset = "UTF-8" Easp.http.CharSet = "gb2312" Easp.Http.Data = Array("zip:529200","action:zip2area") '修改zip参数即可实现查询邮编! tmp = Easp.http.Get("http://www.ip138.com/post/search.asp") tmp = Easp.Http.SubStr("<td style=""padding-left:5%"" nowap class=tdc2>◎","</td>",0) Easp.WN tmp Easp.W "页面执行时间: " & Easp.ScriptTime & " 秒" Set Easp = Nothing %>
返回结果是:
广东 江门 台山市 邮编:529200 区号:0750
页面执行时间: 0.063 秒
EasyASP 是一个方便快速开发ASP的类,其中包含了数据库控制类 Easp.db ,具有同时对一个或多个数据库进行各类操作、调用MSSQL存储过程及记录集分页等功能。EasyASP 同时提供了大量实用的ASP通用过程及方法,可以简化大部分的ASP操作。EasyASP 目前提供下载的是VBScript版。
EasyASP 官方网站:http://easp.lengshi.com/,以上使用的是2.2版本,可在论坛进行下载!