天气预报代码大全_自动天气预报代码

1.flash天气预报代码

2.谁有横向单条滚动的天气预报代码

3.我要在百度空间里加一个天气预报,代码该放到哪里啊?

4.网站想调用一个天气预报的代码，请问哪个网站提供免费代码或是天气插件

为了方便，文本框改成数组控件。代码中用北京作为天气预报地点，改的话将网址改下即可，具体方法可以百度。另外，新浪天气预报只有4天。最后说明一下，除了标签和文本框，没用其它控件。

flash天气预报代码

试试我的过滤模块，不过我已经帮你调试好了，可以直接使用

<%

getContent=GetURL("://news.sina.cn/iframe/weather/130101.html")

Function GetURL(url)

Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "GET", url, false

.setRequestHeader "Content-Type","lication/x--form-urlencoded"

.Send

GetURL = .ResponseBody

End With

Set Retrieval = Nothing

GetURL=bstr(GetURL)

End Function

Function bstr(vIn)

Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode

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

bstr = strReturn

End Function

Function FilterHTML(strToFilter)

Dim strTemp

strTemp = strToFilter

strTemp=replace(strTemp,"石家庄","")

strTemp=replace(strTemp,"更多城市","")

strTemp=replace(strTemp,"& gt;& gt;","")

strTemp=replace(strTemp,"[定制其他城市天气]","")

FilterHTML = strTemp

End Function

%>

<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">

<tr>

<td><%response.Write FilterHTML(getContent)%></td>

</tr>

</table>

谁有横向单条滚动的天气预报代码

天气预报FLASH代码1-浅色款://aw.awflasher/getweather.swf"</A> width="190" height="200" type="lication/x-shockwe-flash"></embed>

我要在百度空间里加一个天气预报,代码该放到哪里啊?

<iframe src="://.tianqi123/small_page/chengshi_1.html?c0=red&c1=D96C00&bg=F4FFF4&w=441&h=20&text=yes" onMouseOver=this.stop() onMouseOut=this.start() width=100% height=21 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=1000 align=right id=url>

</iframe>

应该可以用的

网站想调用一个天气预报的代码，请问哪个网站提供免费代码或是天气插件

如何在空间里加上天气预报2006/12/29 19:15其实只需要在自定义模板后面加上

{height:190px;background:url(://firetear/weather/weather.aspx) no-repeat 10px;background-color:#FFF }

步骤:首先要打开你的自定义模板4，在高级设置那里。这里就不用详细说了。

1、打开设置

2、模板设置

3、编辑自定义模板

4、找到#m_mylink4

5、在后面加入{height:190px;background:url(://firetear/weather/weather.aspx) no-repeat 10px;background-color:#FFF }

完整的如下。

#m_mylink4 {height:190px;background:url(://firetear/weather/weather.aspx) no-repeat 10px;background-color:#FFF }

直接把上面的代码加在CSS后面就行了

这里的天气预报调用支持DIY样式，并支持IP显示天气，根据用户所在地显示当前天气预报！

://t.xidie/WeatherCode.aspx

样式挺多的。