xml.asp

1、采用4.5修改而成。 2、添加了求片区

<!--#include file=inc/conn.asp--><?xml version="1.0" encoding="GBK"?>
<Movies>
<%
response.write"	<Channel name=""最近更新"">"&chr(13)
response.write get_left(10,0)
response.write"	</Channel>"&chr(13)
'-----------------------------------------------------
response.write"	<Channel name=""站长推荐"">"&chr(13)
response.write get_left(10,1)
response.write"	</Channel>"&chr(13)
'-----------------------------------------------------
set rs=conn.execute("select * from zt_type order by zt_n asc")
If rs.bof And rs.eof Then
response.write""
Else 
i=0
Do while not rs.eof
i=i+1
zt_typeid=rs("zt_typeid")
zt_typename=rs("zt_typename")
zt_en=rs("zt_en")
z_item_path=zt_en
response.write"	<Channel name="""&zt_typename&""">"&chr(13)
'-----------------------------------------
Set rs1=conn.execute("select top 10 zt_id,zt_name,zt_zy,zt_dy,zt_hits,zt_date from zt_data where zt_type="&zt_typeid&" order by zt_date desc")
If rs1.bof And rs1.eof Then
response.write""
End If 
mm_i=0
Do while not rs1.eof
mm_i=mm_i+1
response.write"		<Movie name="""&re(rs1("zt_name"))&""" actor="""&re(rs1("zt_zy"))&""" hits="""&rs1("zt_hits")&""" source="""&server_v(rs1("zt_dy"))&""" date="""&formatdatetime(rs1("zt_date"),2)&""" url=""http://"&maxz_2&"/"&zt_en&"/"&rs1("zt_id")&""" />"&chr(13)
If mm_i>=10 Then Exit Do 
rs1.movenext
Loop
rs1.close
'---------------------------------------------------
response.write"	</Channel>"&chr(13)
rs.movenext
Loop
rs.close
Set rs=nothing
End If 
Function re(str)
re=Replace(str,"&","&amp;")
re=Replace(re,"<","&lt;")
re=Replace(re,">","&gt;")
re=Replace(re,"'","&apos;")
re=Replace(re,"""","&quot;")
End Function
Function get_left(n,m)
n=CInt(n):m=CInt(m)
If m=1 Then
mm=" where zt_tj>1 order by zt_date desc"
Else 
mm=" order by zt_date desc"
End If 
set rs1=conn.execute("select top "&n&" zt_id,zt_name,zt_zy,zt_dy,zt_type,zt_date,zt_hits from zt_data"&mm)
get_left_i=0
Do while not rs1.eof
get_left_i=get_left_i+1
get_left=get_left&"		<Movie name="""&re(rs1("zt_name"))&""" actor="""&re(rs1("zt_zy"))&""" hits="""&rs1("zt_hits")&""" source="""&server_v(rs1("zt_dy"))&""" date="""&formatdatetime(rs1("zt_date"),2)&""" url=""http://"&maxz_2&"/"&get_classenname(rs1("zt_type"))&"/"&rs1("zt_id")&""" />"&chr(13)
If get_left_i>=n Then Exit Do 
rs1.movenext
Loop 
rs1.close
End Function
%></Movies>