您现在的位置是： 首页 > 天气预报 天气预报
word=武汉天气预报_武汉天气预报代码
tamoadmin 2024-10-02 人已围观
简介1.如何通过发短信申请12121天气预报业务？2.天气预报代码修改如何在空间里加上天气预报2006/12/29 19:15其实只需要在自定义模板后面加上{height:190px;background:url(://firetear/weather/weather.aspx) no-repeat 10px;background-color:#FFF }步骤:首先要打开你的自定义模板4，在高级设置那
1.如何通过发短信申请12121天气预报业务？
2.天气预报代码修改
如何在空间里加上天气预报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后面就行了
如何通过发短信申请12121天气预报业务？
下面这段是它的源文件
<html>
<head>
<meta -equiv="Content-Type" content="text/html; charset=GBK" />
<title>07越秀</title>
<link href="../css/ddg.css" rel="stylesheet" type="text/css">
</head>
<body style="background-color:transparent">
<table width="100%" height="80" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="15"><img src="images/spacer.gif" width="1" height="8" /></td>
</tr>
<tr>
<td width="60" align="center" valign="top"><!--5-12修改6开始--><img src="://weather.news.163/weather/images/logo/01.gif" alt="" /><img src="://weather.news.163/weather/images/logo/03.gif" alt="" /><!--5-12修改6结束--></td>
<td align="left" valign="top"><font id="dateFont">2007年1月16日<br />
星期二 下午17：02<br />
</font>
<script>
var day = new Array("星期日","星期一","星期二","星期三","星期四","星期五","星期六");
function showDate()
{
font = document.getElementById("dateFont");
var now = new Date();
var str = "";
var hours = now.getHours() + "";
if(hours.length < 2)
{
hours = "0" + hours;
}
var minutes = now.getMinutes() + "";
if(minutes.length < 2)
{
minutes = "0" + minutes;
}
var seconds = now.getSeconds() + "";
if(seconds.length < 2)
{
seconds = "0" + seconds;
}
str += "<font style=\"color:#000000;\"><b>" + now.getFullYear() + "年" + (now.getMonth() + 1) + "月" + now.getDate() + "日</b></font><br><font style=\"color:#EB7002;\">" + day[now.getDay()] + " " + hours + ":" + minutes + ":" + seconds + "</font><br>";
font.innerHTML = str;
}
setInterval("showDate()" , 1000);
</script>
<font style="color:#EB7002;">
多云转阵雨 ? 25℃～34℃
</font></td>
</tr>
<tr>
<td height="8"><img src="images/spacer.gif" width="1" height="8" /></td>
</tr>
</table>
</body>
</html>
再给你推荐一个根据不同IP显示不同地区的代码：
<iframe src="://.ttyyy/tianqi/tq.html" width="160" height="60" frameborder="no" border="0" marginwidth="0" marginheight="0" scrolling="no"></iframe>
都试试吧
天气预报代码修改
编写短信“11”发送到“1065570121”订制。
用户发送短信后，系统自动回复一条确认短信，通知客户订制成功。
注：现时能发送天气预报短信的只有禅城和顺德气象台。
用户发送短信代码到“1065570121”订制天气预报短信服务，系统将对“8”字头和“2”字头的小灵通进行区分。
凡“8”字头的小灵通默认订制禅城天气预报。
“2”字头小灵通默认订制顺德天气预报。
取消：编写短信“00”发送到“1065570121”，系统自动回复一条确认短信，通知客户取消成功。
扩展资料:
随着时代的发展，科技的进步，天气的变化与人们日常生活的衣食住行的关系越切。
“12121”气象信息电话自动答讯系统是由鄂州市气象台与湖北省电信公司鄂州分公司合作开通的。
系统用了先进的数字语音合成技术，具有语音清晰、内容丰富、全天服务的特点。
在服务内容上，更是体现了专业、全面、及时的特点，信息服务信箱内囊括了全国及省内150多个主要城市的天气预报和天气实况，并且还有与人们生活息息相关的各种生活气象指数。
本地逐小时的天气实况用的是本地气象自动观测站实时观测的最新探测资料。
12121天气预报更新时间表：
内容：更新时间。
各种气象预报晚 17：00。
如将出现重要的天气过程，将由我们的高级预报员随时作出订正预报，即时更新。
12121服务信箱内容。
键号内容：
1：鄂州市一周天气预报。
2：旅游景点天气预报。
3：国内主要城市天气预报。
4： 双休日及节日天气预报。
5：中国黄历。
6：气象与农事。
7：天文知识。
8 ：生日档案查询。
9：天气预报短信息预定。
资费标准：市话费+0.6元/分钟的信息费（各地有所不同）。
参考资料：百度百科-12121
试试我的过滤模块，不过我已经帮你调试好了，可以直接使用
<%
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>
