index1.asp

3G天气预报WAP程序,更多源码请登陆星宇在线http://xywap.cn

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?> 
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<wml>
<!-- THIS IS THE FIRST CARD IN THE DECK -->
<card title="WAP天气">
<p>

<img src='http://wap.wapls.com/logo/tq1.gif' alt='logo...'/><br/>

<!--#include file="dx.asp" -->

<%
'-------------对应城市区号--------------------- 
dim id
id=request.QueryString("id")
%>
<% 
Dim Url,Html,start,over,body,wap,wstr,str'定义一些需要使用到的变量
Url="http://news.3g.net.cn/tianqi_detial2.aspx?id="&id&"" ',这是要偷取的网页地址
wstr=getHTTPPage(url) '获取指定页面的全部数据           
start=Instr(wstr,"3G天气预报")+9
'这里设置需要处理的数据的头部，这个变量应视不同情况而设置，具体内容可以通过查看需要抓取的页面的源代码来确定。因为在这个程序里我们需要抓取整个页面,所以设置为页面全部抓取。注意，设置的内容必须是页面内容唯一的，不可以重复。
over=Instr(wstr,"<a href=""tianqi_menu.aspx"">天气预报首页</a><br/>")
'和start相对应的就是需要处理的数据的尾部，同样的，设置的内容必须是页面中唯一的。
body=mid(wstr,start,over-start)
'------------------------------------------------
body = replace(body,"<p align=""left"">","")'把<p align=""left"">替换成空白
body = replace(body,"<p align=""center"">","")'把<p align=""center"">替换成空白
body = replace(body,"</p>","")'取消<p>
body = replace(body,"<p>","")'取消</p>
body = replace(body,"----------------","----------")'更换----------------
body = replace(body,"~~~~~~~~~~","----------")'更换~~~~~~~~~~
'--------------------------------------------------
Response.write body
%>
<a href="index.asp">[返回上级]</a>
<br/><a href="/index.asp">[网站首页]</a>
</p>
</card>
</wml>