📄 weathercs2.asp
字号:
<!--#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> 如果方便,请在首页做个友情链接,谢谢!%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -