<% @LANGUAGE = "VBSCRIPT" codepage= "936"%>
<%
'------------------------------
' Program name: Blue Space Weather thief
' Programming: Pony
' Qq:55100100
' Website: http://www.bluespace.cn (blue space)
' Date: 2005-11-15
'------------------------------
Dim Strarray (9,2), Areaid
Strarray (1,0) = "index.htm"
Strarray (1,1) = "North China"
Strarray (2,0) = "Hd.htm"
Strarray (2,1) = "East China"
Strarray (3,0) = "Hn.htm"
Strarray (3,1) = "South China"
Strarray (4,0) = "Hz.htm"
Strarray (4,1) = "Central"
Strarray (5,0) = "Db.htm"
Strarray (5,1) = "Northeast Region"
Strarray (6,0) = "Xb.htm"
Strarray (6,1) = "Northwest Region"
Strarray (7,0) = "Xn.htm"
Strarray (7,1) = "Southwest"
Strarray (8,0) = "Ga.htm"
Strarray (8,1) = "Hong Kong, Macao and Taiwan region"
Areaid = Request.QueryString
If Areaid = "" Then Areaid = 1
Sub GetPage ()
Dim STRURL,STRTMP,STRTMP1
strURL = "http://weather.265.com/" &strarray (areaid,0)
strtmp = Gethttppage (strURL)
STRTMP1 = Strcut (strtmp, <table width= "750" "border=" "0" "cellpadding=" "2" "cellspacing=" "1" "bgcolor=" "4952BC" " > "," <script language= "" JavaScript "" > ", 2)
STRTMP1 = "<table width=" "750" "border=" "0" "cellpadding=" "2" "cellspacing=" "1" "bgcolor=" "4952BC" ">" & StrTmp1
STRTMP1 = Replace (STRTMP1, "width=" "750" "," width= ' 760 ' align= ' center ')
STRTMP1 = Replace (STRTMP1, "bgcolor=" "4952BC" "", "Bgcolor= ' #cccccc")
STRTMP1 = Replace (STRTMP1, "bgcolor=" "#e4f0f8" "", "bgcolor= ' #ffffff ' onmouseover=" "Sbar (This)" "onmouseout=" "CBar" ( This) "" "
STRTMP1 = "<!--build Time:" &now () & "-->" &vbcrlf&strtmp1
Response.Write STRTMP1
End Sub
Function gethttppage (URL)
On Error Resume Next
Dim http
Set Http=server.createobject ("Microsoft.XMLHTTP")
Http.open "Get", Url,false
Http.send ()
If Http.readystate<>4 Then
Exit function
End If
Gethttppage=bytestobstr (Http.responsebody, "GB2312")
Set http=nothing
If Err.number<>0 Then
Response.Write "<p align=center> server gets file contents error, please try again later!!! </p> "
Err.Clear
End If
End Function
Function Bytestobstr (Body,cset)
Dim objstream
Set objstream = Server.CreateObject ("ADODB.stream")
Objstream. Type = 1
Objstream. Mode =3
Objstream. Open
Objstream. Write body
Objstream. Position = 0
Objstream. Type = 2
Objstream. Charset = Cset
Bytestobstr = objstream. ReadText
Objstream. Close
Set objstream = Nothing
End Function
' Intercept string, 1. Includes starting and terminating characters, 2. Excluding
Function Strcut (Strcontent,startstr,endstr,cuttype)
Dim STRHTML,S1,S2
strHTML = strcontent
On Error Resume Next
Select Case Cuttype
Case 1
S1 = InStr (STRHTML,STARTSTR)
S2 = InStr (s1,strhtml,endstr) +len (ENDSTR)
Case 2
S1 = InStr (strhtml,startstr) +len (STARTSTR)
S2 = InStr (S1,STRHTML,ENDSTR)
End Select
If ERR Then
Strcute = "<p align= ' center ' > did not find what was needed. </p> "
Err.Clear
Exit Function
Else
Strcut = Mid (STRHTML,S1,S2-S1)
End If
End Function
'----------------------------
' Get the current script name
'----------------------------
Function Getscript ()
Dim scriptaddress
scriptaddress = CStr (Request.ServerVariables ("Script_name"))
Getscript = scriptaddress
End Function
%>
<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 transitional//en" >
<HTML>
<HEAD>
<TITLE> Weather Forecast </TITLE>
<meta Http-equiv=content-type content=text/html; Charset=gb2312>
<style>
a:link {COLOR: #000000; Text-decoration:none}
a:visited {COLOR: #000000; Text-decoration:none}
a:hover {color:blue; Text-decoration:none}
Body {
margin:2px;
font-size:12px;
Font-family: Song body, Arial;
}
td {FONT-SIZE:12PX;}
. tb0 {
Border-right: #f1f1f1 1px solid;
padding-right:6px;
Border-top: #f1f1f1 1px solid;
padding-left:6px;
BACKGROUND: #f1f1f1;
padding-bottom:2px;
Border-left: #f1f1f1 1px solid;
Cursor:hand;
padding-top:2px;
Border-bottom: #f1f1f1 1px solid;
}
. tb1 {
Border-right: #999 1px solid;
padding-right:6px;
Border-top: #999 1px solid;
padding-left:6px;
BACKGROUND: #ccc;
padding-bottom:2px;
Border-left: #999 1px solid;
Cursor:hand;
padding-top:2px;
Border-bottom: #999 1px solid;
}
</style>
</HEAD>
<BODY>
<table width= "100%" border= "0" cellspacing= "0" cellpadding= "0" >
<TR><TD height=3></td></tr>
</table>
<table bgcolor= "#f1f1f1" align= ' center ' width= "760" cellspacing= ' 1 ' cellpadding= ' 3 ' style= "border:1 solid #cccccc" >
<TR align= ' center ' >
<TD class= "tb0" NoWrap onmouseleave= "Mhhover" (' tb0 ') "onmouseenter=" Mhhover (' tb1 ') "><a href=" <%= Getscript ()%>?1 "> North China </a></td>
<TD class= "Tbsep" >|</TD>
<TD class= "tb0" NoWrap onmouseleave= "Mhhover" (' tb0 ') "onmouseenter=" Mhhover (' tb1 ') "><a href=" <%= Getscript ()%>?2 "> East China </a></td>
<TD class= "Tbsep" >|</TD>
<TD class= "tb0" NoWrap onmouseleave= "Mhhover" (' tb0 ') "onmouseenter=" Mhhover (' tb1 ') "><a href=" <%= Getscript ()%>?3 "> South China </a></td>
<TD class= "Tbsep" >|</TD>
<TD class= "tb0" NoWrap onmouseleave= "Mhhover" (' tb0 ') "onmouseenter=" Mhhover (' tb1 ') "><a href=" <%= Getscript ()%>?4 "> Central </a></td>
<TD class= "Tbsep" >|</TD>
<TD class= "tb0" NoWrap onmouseleave= "Mhhover" (' tb0 ') "onmouseenter=" Mhhover (' tb1 ') "><a href=" <%= Getscript ()%>?5 "> Northeast </a></td>
<TD class= "Tbsep" >|</TD>
<TD class= "tb0" NoWrap onmouseleave= "Mhhover" (' tb0 ') "onmouseenter=" Mhhover (' tb1 ') "><a href=" <%= Getscript ()%>?6 "> Northwest China </a></td>
<TD class= "Tbsep" >|</TD>
<TD class= "tb0" NoWrap onmouseleave= "Mhhover" (' tb0 ') "onmouseenter=" Mhhover (' tb1 ') "><a href=" <%= Getscript ()%>?7 "> Southwest </a></td>
<TD class= "Tbsep" >|</TD>
<TD class= "tb0" NoWrap onmouseleave= "Mhhover" (' tb0 ') "onmouseenter=" Mhhover (' tb1 ') "><a href=" <%= Getscript ()%>?8 "> Hong Kong, Macao, China </a></td>
</tr>
</table>
<table width= "100%" border= "0" cellspacing= "0" cellpadding= "0" >
<TR><TD height=3></td></tr>
</table>
<script type=text/javascript>
<!--//
function Sbar (ST) {
St.style.backgroundColor = "#F5F5F5";
}
function CBar (ST) {
St.style.backgroundColor = "#ffffff";
}
function Mhhover (CLS)
{
Event.srcElement.className = CLS;
}
function Mhclick (tbobj, CLS)
{
Event.srcElement.className = CLS;
}
-->
</SCRIPT>
<%
Call GetPage ()
%>
<div align= ' center ' >copyright©2005 <a href= ' http://www.bluespace.cn ' target= ' _blank ' A></div>
</BODY>
</HTML>
