<!--#include file="../../p_inc/Include_func.asp"-->
<!--#include file="../inc/classDbPager.asp"-->
<!--#include file="../inc/public.asp"-->
<!--#include file="../inc/openconn.asp"-->
<%
	str=""	
	str=str&"<qingtiandh_ltype1>"
	'sql="Select * From qingtiandh_List2 Where  datediff('d',m_time,'"&now()&"')<=1 Order By Id asc "
	sql=" Select  * From qingtiandh_ltype1  Order By typeid asc "
	Set oRs=conn.Execute(sql)
	Do While Not oRs.Eof 
		stypeid=oRs("typeid")
		stypename=oRs("typename")
		stypename2=oRs("typename2")
		stypecontent=oRs("typecontent")
		stypeurl=oRs("typeurl")
		stypeno=oRs("typeno")
		stypehide=oRs("typehide")
		stypehttpurl=oRs("typehttpurl")
		sm_type2=oRs("m_type2")
		str=str&stypeid&"|||"&stypename&"|||"&stypename2&"|||"&stypecontent&"|||"&stypeurl&"|||"&stypeno&"|||"&stypehide&"|||"&stypehttpurl&"|||"&sm_type2&"####"
		oRs.MoveNext
	Loop
	str=str&"</qingtiandh_ltype1>"
	Response.Write str







	str=""	
	str=str&"<qingtiandy_url2>"
	'sql="Select * From qingtiandh_List2 Where  datediff('d',m_time,'"&now()&"')<=1 Order By Id asc "
	sql=" Select  * From qingtiandh_List2  Order By Id asc "
	Set oRs=conn.Execute(sql)
	Do While Not oRs.Eof 
		sid=oRs("id")
		sm_type1=oRs("m_type1")
		sm_type3=oRs("m_type3")
		sm_name=oRs("m_name")
		sm_color=oRs("m_color")
		sm_look=oRs("m_look")
		sm_url=oRs("m_url")
		sm_content=oRs("m_content")
		sm_time=oRs("m_time")
		sm_no=oRs("m_no")
		str=str&sid&"|||"&sm_type1&"|||"&sm_type3&"|||"&sm_name&"|||"&sm_color&"|||"&sm_look&"|||"&sm_url&"|||"&sm_content&"|||"&sm_time&"|||"&sm_no&"####"
		oRs.MoveNext
	Loop
	str=str&"</qingtiandy_url2>"
	Response.Write str
	
'	str=""	
'	str=str&"<qingtiandh_type3>"
'	sql=" Select  * From qingtiandh_type3  Order By TypeId asc "
'	Set oRs=conn.Execute(sql)
'	Do While Not oRs.Eof 
'		stypeid=oRs("typeid")
'		stypeid1=oRs("typeid1")
'		stypename=oRs("typename")
'		stypename2=oRs("typename2")
'		stypeno=oRs("typeno")
'		str=str&stypeid&"|||"&stypeid1&"|||"&stypename&"|||"&stypename2&"|||"&stypeno&"####"
'		oRs.MoveNext
'	Loop
'	str=str&"</qingtiandh_type3>"
'	Response.Write str	
%>