|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
++++++++++++++++ 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就可以看到最新的天气预告了 返回类别: 教程 上一教程: 用VB编写ACTIVEX DLL实现ASP编程 下一教程: 如何在页面上动态的生成 WEBFORM控件 您可以阅读与"天气预告的小偷,可以偷到全国24小时城市天气预告"相关的教程: · 采用XMLHTTP编写一个天气预告的程序 · 止网站内容被人小偷和采集的ASP代码 · 下拉框连动的小例子(数据库版) · ASP中实现小偷程序的原理和简朴 · 小偷程序大揭秘 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |