asp制作的天气预报小偷程序_ASP教程_编程技术--HTML5中文学习网

程序|天气预报|小偷程序|天气预报|小偷程序

使用说明:

提交城市名参数即可: weather.asp?city=北京

以下是weather.asp源代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
on error resume next
dim fcity
fcity=trim(request("city"))
if fcity="" then
fcity = server.urlencode("北京")
end if
Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False
.Send
GetURL = bytes2bstr(.responsebody)
if len(.responsebody)<100 then
response.write "获取天气 <a href="&url&" target=_blank>"&url&"</a> 失败。"
response.end
end if
End With
Set Retrieval = Nothing
End Function
function bytes2bstr(vin)
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function
Function ReadTextarea(HTMLstr)
Set ra = New RegExp
ra.IgnoreCase = True
ra.Global = True
ra.Pattern = ".{0,}<TEXTAREA[^>]+>([./r/n/s/t]+?)<//TEXTAREA>.{0,}"
ReadTextarea = ra.replace(HTMLstr,"$1")
END Function
Function GetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function
dim htmlstr
dim w_date,w_pic1,w_pic2,w_m1,w_m2,w_m3
htmlstr = GetURL("http://weather.tq121.com.cn/mapanel/index1.php?city="&fcity&"")
w_date = GetKey(htmlstr,"<span class=""big-cn"">","</span>")
w_pic1 = GetKey(htmlstr,"<td width=""70"" valign=""top""><img src=""../images/",""" width=")
w_pic2 = GetKey(htmlstr,"<td width=""82"" valign=""top""><img src=""../images/",""" width=")
w_m1 =  GetKey(htmlstr,"<td width=""160"" align=""center"" valign=""top"" class=""weather"">","</td>")
w_m2 =  GetKey(htmlstr,"<td width=""160"" align=""center"" valign=""top"" class=""weatheren"">","</td>")
w_m3 =  GetKey(htmlstr,"<td width=""153"" valign=""top""><span class=""big-cn"">","</span>")
Response.CharSet = "GB2312"
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Response.Write "<tr>"
Response.Write " <td width=""45%"" style=""text-align:center;""><img src=""images/"&w_pic1&""" width=""70"" "
Response.Write "height=""65"" /><div style=""text-align:center;"">"&w_m1&"</div></td>"
Response.Write "<td width=""55%""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Response.Write "<tr>"
Response.Write "<td height=""20"" class=""zi_he"">"&w_date&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height=""20"" class=""zi33"">"&w_m2&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height=""20"" class=""zi33"">"&w_m3&"</td>"
Response.Write "</tr>"
Response.Write "</table>"
%>

附上AJAX查询天气预报的相关代码:

以下是weather.js代码：
// JavaScript Document
var xmlhttp=null;
function createxmlhttp(){
try {
xmlhttp=new ActiveXObject("Msxml2.xmlhttp") ;
}
catch(e) {
try {
xmlhttp=new ActiveXObject("Microsoft.xmlhttp") ;
}
    catch(oc) {
xmlhttp=null ;
}
}
if ( !xmlhttp && typeof XMLHttpRequest != "undefined" ) {
xmlhttp = new XMLHttpRequest();
}
if (!xmlhttp) {
   //alert("您的浏览器不支AJAX!");
}
}
function ajaxPost(url,reid){
createxmlhttp();
  //getMode
  xmlhttp.open("get",url,true);
  xmlhttp.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded");
  xmlhttp.onreadystatechange= function () { checkState(reid); } ;
  xmlhttp.send(null);
}

function  checkState(reid){
if (xmlhttp.readyState == 4){
  document.getElementById(reid).innerHTML="正在加载天气信息...";
  if(xmlhttp.status == 200){
   var retext = xmlhttp.responseText;
   document.getElementById(reid).innerHTML=retext;
   }
}
else{
  document.getElementById(reid).innerHTML="正在加载天气信息...";
}
}

以下是index.html代码：
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>天气预报接口小偷程序 - 阿里西西WEB开发,国内最大的WEB开发资源网站</title>
<script type="text/JavaScript">

</script>
</head>
<body>
<a href="www.alixixi.com"><img src="http://www.alixixi.com/images/alistudio.gif" alt="阿里西西" width="182" height="49" border=0 longdesc="http://www.alixixi.com" /></a>
<br />
<hr />
<span id="weather"></span>
<p>
  <script src="weather.js" language="javascript"></script>
</p>
<form name="form1" id="form1">
  <select name="menu1" >
    <option value="">请选择城市</option>
    <option value="北京">北京</option>
    <option value="上海">上海</option>
    <option value="南宁">南宁</option>
  </select>
  <div>天气预报小偷程序示例</div>
</form>
</body>
</html>

如果需要现成的示例程序,请点击以下链接在本站下载栏目下载:

http://www.alixixi.com/down/Search.asp?wd=%CC%EC%C6%F8%D4%A4%B1%A8%BD%D3%BF%DA