网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > ASP实例
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程:ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
本月文章推荐
.ASP.NET: XML计数器第二版.
.一个简单的网上书城的例子(八).
.加密處理使密碼更安全.
.CDONTS发电子邮件例子.
.一个免费的邮件列表源程序(二).
.完整的访问统计程序(三 应用篇).
.全文本检索的应用(3).
.网络寻呼机数据库版删除选中的消.
.使用ASP方便的建立自己网站的每日.
.构建你的网站新闻自动发布系统之.
.无组件上传图片至SQLSERVER数据库.
.使用 ASP+ 列表绑定控件(中).
.通过事例学习.net的WebForms技术.
.ASP中的函数应用方法及应用举例(.
.接收信息页面inform.asp--基于we.
.FrontPage创建HTML/ASP混合页面.
.中文虚拟域名实现(3) (环境:中文.
.实例讲解ASP实现抓取网上房产信息.
.初探SSI网页制作.
.用ASP创建日志文件(附源程序).

天气预报的小偷,可以偷到全国24小时城市天气预报.

发表日期:2001-10-11


++++++++++++++++ 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就可以看到最新的天气预报了
上一篇:一个把WORD转换成HTML的程序 人气:17413
下一篇:显示页面show.asp--基于web的QQ程序1  人气:11620
浏览全部小偷的内容 Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐