<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<%
Rem 首页页面设置
dim act
act=request("act")
Const CachePage=false '是否做页面缓存
Const CacheTime=60    '缓存失效时间
Dim XMLDom,page,TopicMode,Cmd
If Not Response.IsClientConnected Then
	Session(Dvbbs.CacheName & "UserID")=empty
	Response.Clear
	Response.End
Else
		Main()
End If
Sub Main()
	dim duhome
	Dvbbs.LoadTemplates("usermanager")
	Dvbbs.Stats="天气情况"
	Dvbbs.mainsetting(0)="98%"
	Dvbbs.ErrType = 1	'转到不显示顶部和导航的错误显示页
	Dvbbs.Head()
%>
<div class="th" style="margin-top:10px;">
天气情况
</div>
<div class="mainbar" style="height:408px;overflow :auto;">
<iframe align="center" width="100%" height="100%" src="http://weather.qq.com/inc/<%=act%>.htm" frameborder="no" border="0" marginwidth="0" marginheight="0" scrolling="no"></iframe></div>
<%
Dvbbs.Footer
end sub
%>
