<% dim rs,sql,id,title,psubsort,count id=trim(request("id")) if id="" then response.redirect "error.asp?errormessage=没有制定记录号" set rs=server.createobject("adodb.recordset") sql="select * from Parent where id="&id rs.open sql,connuser,3 if rs.eof then response.redirect "error.asp?errormessage=没有找到制定的记录" title=rs("title") head() %>

您的位置：　首页 > China-up 视频专题

<%=title%>

<%=ContentsConvert(rs("contents"))%>

<% rs.close sql="select id,title,subsort,source from files where sort='"&title&"' order by adddate,filename" rs.open sql,connuser,3 count=1 while not rs.eof if psubsort<>rs("subsort") then psubsort=rs("subsort") response.write "
"&psubsort&"

" else if isnull(rs("subsort")) then response.write "" psubsort="empty" end if end if response.write "●" response.write rs("title")&"
" if rs("source")<>"" then response.write " "&rs("source")&"
" rs.movenext count=count+1 wend rs.close %>
注：如果您需安装Microsoft Media Player 9.0软件，请点击安装。操作系统为Windows 2000，请点击Win2000安装，操作系统为Windows XP，请点击WinXP安装　

<% bottom() %>