<!--#include file="../../../../conn/conn5.asp" -->
<!--#include file="../../../../conn/function.asp" -->
<%
D_domain=split(split("http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL"),"http://")(1),"/theme")(0)
server_v40=Request.ServerVariables("QUERY_STRING")
num=instr(server_v40,".") 
S_id=left(server_v40,num-1)

Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from Vsort where S_id="&S_id
rs.open sql,conn,1,1
S_title=rs("S_title")
rs.close
set rs=nothing

%>
<?xml version="1.0" encoding="gb2312" ?>
<gallery>
	<!-- banner style -->
	<style>
		<!-- show width/height -->
		<width>960</width>
		<height>320</height>
		
		<!-- items show number -->
		<itemshornumber>4</itemshornumber>
		<!-- items scroll number -->
		<itemsscroll>2</itemsscroll>
	</style>
	
	<!-- gallery items -->
	<items>
	
		<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from video where V_sort="&S_id&" order by V_id desc"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof
if left(rs("V_path"),4)="http" then
V_path=rs("V_path")
else
V_path="http://"&D_domain&"/"&rs("V_path")
end if
response.Write "<item title='"&rs("V_title")&"' src='"&split(rs("V_thumb"),"@")(0)&"' path='"&V_path&"'><![CDATA[<font size='12' color='#dddddd'>"&RemoveHTML(rs("V_content"))&"</font>]]></item>"
rs.movenext
		loop
	end if
set rs=nothing
%>
	</items>
</gallery>