📄 result.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="clsThief.asp" -->
<%
'========================================================================================
' 文 件 名: Result.asp
' 版 本: WapForum教程--WAP天气小偷
' 说 明: 查询结果文件 | 请勿删除此说明内容，转载请注明出处。多谢合作！
' 文件日期: 2007-03-15
' 讨论网站: WapForum.cn
'========================================================================================
' Copyright (C) 2007 WapForum.cn. All rights reserved.
' 网 站: http://WapForum.cn
' 电子邮件: Service@WapForum.cn
' 联系ＱＱ: 13431619,44459416,82890065
' QQ交流群: 8684529,36508170
'========================================================================================
Response.ContentType="text/vnd.wap.wml;charset=utf-8" '将文件的格式转换成wml，编码为UTF-8
dim keyword,myThief,pageValue,regEx
keyword=request.Form("keyword")
if(keyword<>"") then
set myThief=new clsThief
myThief.src="http://weather.cn.yahoo.com/weather.html?city="& server.URLEncode(keyword) &"&s=1&ei=UTF-8"
myThief.steal("UTF-8") '开始偷窃
myThief.cut "class=""dt_a""","<!--}}end:detail -->" '按指定首尾字符串对偷取的内容进行裁减（不包括首尾字符串）
pageValue=Replace(Replace(myThief.value,chr(13),""),chr(10),"") '将处理过后的内容传给变量pageValue
set myThief=nothing
pageValue=Replace(pageValue,"</div> <div class","|<")
pageValue=Replace(pageValue,"</td>","|")
pageValue=Replace(pageValue,"<br />","|")
'//下面是使用正则表达式，批量替换“<>”标签内的内容为空
Set regEx=new RegExp
regEx.pattern="<.+?>"
regEx.IgnoreCase =false
regEx.Global=True
pageValue=regEx.Replace(pageValue,"")
pageValue=Replace(Replace(pageValue,"-->",""),">","")
pageValue=Replace(pageValue," ","|")
pageValue=Replace(Replace(pageValue,"|||",""),"||","|")
pageValue=Replace(pageValue,"~|","~")
pageValue=Replace(pageValue,"|","<br/>")
pageValue=Replace(pageValue,"设置为默认城市","")
pageValue=Replace(pageValue,"穿衣指数：","=*=*=*=*=*=<br/>穿衣指数：")
pageValue=Replace(pageValue,"2007-","=*=*=*=*=*=<br/>2007-")
pageValue=Replace(pageValue,"逛街指数：","<br/>逛街指数：")
%>
<?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>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
<card id="WapWeather" title="WAP天气预报">
<p align="left">
<a href="index.asp">查询别的城市</a>
<%
response.write pageValue
%>
=*=*=*=*=*=<br/>
请输入城市或者区号：<br/>
<input name="keyword<%=strRnd%>" emptyok="true" type="text"/><br/>
<anchor>马上查询<go href="Result.asp" method="post">
<postfield name="keyword" value="$(keyword<%=strRnd%>:n)" />
</go></anchor><br/>
=*=*=*=*=*=<br/>
(C)WapForum.cn
</p>
</card>
</wml>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -