<!--#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"?>
<showroom>

    <settings
         thumbBgColor = "1b1b1b"
		 thumbBgAlpha = "0.5"
		 
		 mainBgColor = "1b1b1b" 
		 mainBgAlpha = "0.5"
		 
		 categoryDimBgColor = "1b1b1b" 
		 categoryDimBgAlpha = "0.8"	
		 categoryTxtBgColor = "1b1b1b" 
		 categoryTxtBgAlpha = "0.7"	
		 categoryTxtColor = "FFFFFF"
		 
		 preloaderColor = "CCFF00"
		 preloaderAlpha = "0.3"	
		 
		 controlsIconColor = "FFFFFF"
		 controlsIconAlpha = "1"
		 controlsBgColor = "1B1B1B"
		 controlsBgOverColor = "CCFF00"
		 controlsBgAlpha = ".5"
		 
		 scrollBtnOverColor = "CCFF00"
		 scrollBtnOverAlpha = ".5"
		 scrollBtnColor = "FFFFFF"
		 scrollBtnAlpha = ".5"
		 scrollBarColor = "FFFFFF"
		 scrollBarAlpha = ".5"
		 
		 youTubeVideoAspectQuality = "hd720"
		 videoVolume=".5"
		 videoBufferTime = "5"
		 youTubeVideoAspectRatio = "5:3"
		 videoControlsLoadBarColor = "CCFF00"
		 videoControlsLoadBarAlpha = ".2"
		 videoControlsProgressBarColor = "CCFF00"
		 videoControlsProgressBarAlpha = ".8"
		 volumeSlideBarColor = "CCFF00"
		 volumeSlideBarAlpha = ".2"
		 volumeTooltipColor = "CCFF00"
		 volumeTooltipAlpha = ".5"
		 
    />
	

<category title="<%=S_title%>" catThumbnail="media/0.png" smallThumbnailsWidth = "" smallThumbnailsHeight ="140">

<%
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><thumbnail width='200'>"&rs("P_thumb")&"</thumbnail><large type='image'>"&rs("P_path")&"</large><text><![CDATA[<b><font size='15' face='Microsoft Yahei'>"&rs("P_title")&"</font></b><br>"&RemoveHTML(rs("P_content"))&"]]></text></item>"
rs.movenext
		loop
	end if
set rs=nothing
%>
	
	
</category>



</showroom>