文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
asp中有关字符编码转换的几个函数
绝妙的asp生成静态页面html函数
Asp计算页面执行时间
一个简单的用存储过程分页
将asp页面转换成htm页面
ASP网站漏洞解析及黑客入侵防范方法
URL编码与SQL注入
几种常用排序算法(asp)
ASP调用带参数存储过程的几种方式
实用的ASP连接数据库的函数
ASP如何获取真实IP地址
ASP中怎么实现SQL数据库备份、恢复
判断Cookies是否处于开启状态
怎样才能将服务器端文件夹下的文件,..
几行Asp代码实现防止表单重复提交
用ASP设计网站在线人数统计程序
asp论坛在线人数统计研究
如何用ASP远程在数据库中创建Table
用ASP调用SQL Server的视图和存储过程
Asp与XML的关系
ASP读取EXCEL
在ASP中使用Oracle数据库技巧
一个通过web.Mail发送邮件的类
几种打开记录集方式的比较
购物车范例(购物车页面 )
如何使用FSO搜索硬盘文件
GB码和BIG5码的互换技术
用ASP开发WEB日期选择器
一个投票系统的源程序(coveryourasp.c..
列出服务器上的打印机


技术教程 -> ASP教程 ->  
天气预报的小偷,可以偷到全国24小时城市天气预报.
来源:转载   人气:793   录入时间:2007-11-8
    ++++++++++++++++ weather.htm +++++++++++++++
   <html>
   
   <head>
   <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
   <META HTTP-EQUIV="Pragma" CONTENT="no-cache">
   <META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
   <META HTTP-EQUIV="Expires" CONTENT="0">
   <style>body{font-size:9pt}</style>
   <title>全国24小时早间城市天气预报</title>
   <script language="vbscript">
   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
   </script>
   <script language="Javascript">
   self.onerror=null;
   var isLoad = '<HTML><BODY text=#003366><center><span style=\"font-size:9pt\">正在读取数据, 请稍候 ......</span></center></BODY></HTML>';
   try{
   var Http = new ActiveXObject("Microsoft.XMLHTTP"); //建立XMLHTTP对象
   }
   catch(e){alert("Wrong!使用本服务您必须使用IE5.0以上版本的浏览器");
   }
   function doit()
   {if (Http.readystate!=4){return;}
   Back=bytes2BSTR(Http.responseBody)
   Back=Back.substr(Back.indexOf("<MAP name=Map>"));
   parent.tqif.document.open();
   parent.tqif.document.writeln("<HTML><style>td,body{font-size:9pt}</style><body leftmargin=0 topmargin=0 >");
   parent.tqif.document.writeln("<DIV id=overDiv style=\"Z-INDEX: 1; POSITION: absolute\"></DIV>");
   parent.tqif.document.writeln("<\SCRIPT language=JavaScript1.1 src=\"tojava.js\"><\/SCRIPT>");
   parent.tqif.document.writeln (Back);
   parent.tqif.document.writeln("<IMG src=\"chinamapzj.gif\" width=559 useMap=\"#Map\" border=0></body></html>");
   parent.tqif.document.close();
   delete(Http);
   }
   function Send(Str,URL)
   {
   Http.open("GET",URL,true)
   Http.send()
   Http.onreadystatechange=doit;
   return;
   }
   function rp2(Str,Fs,Is)
   {while (Str.indexOf(Fs)!=-1)
   Str = Str.replace(Fs,Is)
   return(Str)
   }
   function init()
   {Send("","http://202.106.103.44/forecast/fc06024.php");
   }</script>
   </head>
   <body onload="init()">
   <SCRIPT language=JavaScript1.1 src="tojava.js"></SCRIPT>
   <IMG src="chinamapzj.gif" width=1 border=0>
   <iframe width=560 height=560 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERCOLOR="#000000" name=tqif src="javascript:parent.isLoad"></iframe>
   </body>
   
   </html>
   
   ***************** tojava.js ****************
   
   if (typeof fcolor == 'undefined') { var fcolor = "#CCFFCC";}
   if (typeof backcolor == 'undefined') { var backcolor = "#333399";}
   if (typeof textcolor == 'undefined') { var textcolor = "#0000FF";}
   if (typeof capcolor == 'undefined') { var capcolor = "#FFFFFF";}
   if (typeof closecolor == 'undefined') { var closecolor = "#9999FF";}
   if (typeof width == 'undefined') { var width = "120";}
   if (typeof border == 'undefined') { var border = "1";}
   if (typeof offsetx == 'undefined') { var offsetx = -120;}
   if (typeof offsety == 'undefined') { var offsety = 10;}
   var x = 0;
   var y = 0;
   var snow = 0;
   var sw = 0;
   var cnt = 0;
   var dir = 1;
   var tr=1;
   if (top.location!= location){
   over = overDiv.style
   document.onmousemove = mouseMove
   }
   function drawcitys(text) {
    dts(1,text);
   }
   function mout() {
    if ( cnt >= 1 ) { sw = 0 };
    if ( sw == 0 ) {
    snow = 0;
    hideObject(over);
    } else {
    cnt++;
    }
   }
   function dts(d,text) {
    txt = "<TABLE WIDTH="+width+" BORDER=0 CELLPADDING="+border+" CELLSPACING=0 BGCOLOR=\""+backcolor+"\"><TR><TD><TABLE WIDTH=100% BORDER=0 CELLPADDING=2 CELLSPACING=0 BGCOLOR=\""+fcolor+"\"><TR><TD CLASS=P1><FONT FACE=\"宋体\" COLOR=\""+textcolor+"\">"+text+"</FONT></TD></TR></TABLE></TD></TR></TABLE>"
    layerWrite(txt);
    dir = d;
    disp();
   }
   function disp() {
    if (snow == 0)
    {
    if (dir == 2) { // Center
    moveTo(over,x+offsetx-(width/2),y+offsety);
    }
    if (dir == 1) { // Right
    moveTo(over,x+offsetx,y+offsety);
    }
    if (dir == 0) { // Left
    moveTo(over,x-offsetx-width,y+offsety);
    }
    showObject(over);
    snow = 1;
    }
    }
   function mouseMove(e) {
    x=event.x+document.body.scrollLeft;
    y=event.y+document.body.scrollTop;
    if (snow) {
    if (dir == 2) { // Center
    moveTo(over,x+offsetx-(width/2),y+offsety);
    }
    if (dir == 1) { // Right
    moveTo(over,x+offsetx,y+offsety);
    }
    if (dir == 0) { // Left
    moveTo(over,x-offsetx-width,y+offsety);
    }
    }
   }
   function cClick() {
    hideObject(over);
    sw=0;
   }
   function layerWrite(txt) {
   document.all["overDiv"].innerHTML = txt
   }
   function showObject(obj) {
   obj.visibility = "visible"
   }
   
   function hideObject(obj) {
   obj.visibility = "hidden"
   }
   function moveTo(obj,xL,yL) {
    obj.left = xL
    obj.top = yL
   }
   =====================chinamapzj.gif=====================
   
   ***************使用说明******************************
   将以上三个文件保存到一个目录中,打开weather.htm就可以看到最新的天气预报了
   




Copyright(C)2007-2024 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987