search.asp

根据IP显示五天天气预报根据IP显示五天天气预报

<!--#include file=Config.asp-->
<!--#include file=Function.asp-->
<!--#include file=Cache.asp-->
<div align="center"><SPAN id=tq style="font-size:24px;color: #0033CC;font-weight: bold;"></br></br>系统正在为您载入未来五天的天气情况。</br></br><img src="http://icp138.com/images/loading.gif" />请稍等几秒种...</SPAN></div><%
	ID = Request.QueryString("city")
	If ID<>"" Then
		HttpUrl="http://weather.mzku.com/tq/search.php?city="&ID&""
	Else
		Call ShowErr("参数错误!")
	End if
	set myCache=new cache
	myCache.name="2007_So_"&ID
	If myCache.valid then
		StarGet = myCache.value
	Else
		StarGet = GetHttpPage(HttpUrl)
		myCache.add StarGet,dateadd("h",6,Now)
	End if
	List=GetBody(StarGet," <title>","麦子库天气预报系统",False,False)
	List=Replace(List,"search.php","search.asp")
	If List<>"$False$" Then
		%><title>
<%
Response.write List
	Else
		Response.write ErrMsg
	End If
%>
<%
'###########如有问题请到论坛请求帮助：<a href="http://www.mzku.com/thread.php?fid-173.html" target="_blank">http://www.mzku.com/thread.php?fid-173.html</a> 如果方便，请在首页做个友情链接，谢谢！%>
<SPAN class=spanclass id=span_tq></SPAN><SCRIPT>tq.innerHTML=span_tq.innerHTML;span_tq.innerHTML="";</SCRIPT>