<!--#include file="../../../../conn/conn5.asp" -->
<!--#include file="../../../../conn/function.asp" -->
<%
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 Psort 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" ?>
<data>
	<settings>

		<galleryPercentCSSTag>percentLoad</galleryPercentCSSTag>

		<gridColumns>5</gridColumns>

		<gridLines>2</gridLines>

		<gridThumbWidth>170</gridThumbWidth>

		<gridThumbHeight>170</gridThumbHeight>

		<gridSpacing>4</gridSpacing>

		<gridScrollbarThickness>6</gridScrollbarThickness>

		<gridScrollbarColor>0XEAEAEA</gridScrollbarColor>

		<gridHandleOverColor>0x909090</gridHandleOverColor>

		<gridHandleOutColor>0x000000</gridHandleOutColor>

		<gridTooltipBackColor>0xffffff</gridTooltipBackColor>
				<gridTooltipBackColorAlpha>.7</gridTooltipBackColorAlpha>

		<videoAutoPlay>true</videoAutoPlay>
		

		<slideTimer>4</slideTimer>
		
	</settings>
	<gallery>

		<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from photo where P_sort="&S_id&" order by P_id desc"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof
response.Write "<item thumbURL='"&rs("P_thumb")&"' imageURL='"&rs("P_path")&"'><label><![CDATA[<thumb>"&rs("P_title")&"</thumb>]]></label><description><![CDATA[<headPreviewText>"&rs("P_title")&"<br/></headPreviewText>]]><![CDATA[<bodyPreviewText>"&RemoveHTML(rs("P_content"))&"</bodyPreviewText>]]></description></item>"
rs.movenext
		loop
	end if
set rs=nothing
%>
		
	</gallery>
</data>