weathercs2.asp

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

<!--#include file=Config.asp-->
<!--#include file=Function.asp-->
<!--#include file=Cache.asp-->
<%
	ID = Request.QueryString("ID")
	If ID<>"" Then
		HttpUrl="http://weather.mzku.com/tq/weathercs2.php?ID="&ID&""
	Else
		Call ShowErr("参数错误!")
	End if
	set myCache=new cache
	myCache.name="2007_cs2_"&ID
	If myCache.valid then
		StarGet = myCache.value
	Else
		StarGet = GetHttpPage(HttpUrl)
		myCache.add StarGet,dateadd("h",6,Now)
	End if
	List=GetBody(StarGet,"<!--开始-->","<!--结束-->",False,False)
	List=Replace(List,".php",".asp")
	If List<>"$False$" Then
		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> 如果方便，请在首页做个友情链接，谢谢！%>