<%
set rs=server.CreateObject("adodb.recordset")
sql = "select top 5 * from video order by id desc"
rs.open sql,conn,1,1
'if rs.eof or rs.bof then
'response.Write("")
'else
do while not rs.eof
%>
<tr>
<td height="172"><object id="NSPlay" width="203" height="172" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" codebase="http://activex.microsoft.com/activex/controls/mplayer/en
/nsmp2inf.cab#Version=6,4,5,715" standby="Loading Microsoft Windows Media Player components..." type="application/x-oleobject" align="middle" hspace="5">
<param name="AutoRewind" value="1" />
<param name="FileName" value="<%if rs.eof or rs.bof then%><%else%>bossadmin/<%=rs("defaultpic")%><%end if%>" />
<param name="ShowControls" value="1" />
<param name="ShowPositionControls" value="0" />
<param name="ShowAudioControls" value="1" />
<param name="ShowTracker" value="0" />
<param name="ShowDisplay" value="0" />
<param name="ShowStatusBar" value="0" />
<param name="ShowGotoBar" value="0" />
<param name="ShowCaptioning" value="0" />
<param name="AutoStart" value="1" />
<param name="Volume" value="-2500" />
<param name="AnimationAtStart" value="0" />
<param name="TransparentAtStart" value="0" />
<param name="AllowChangeDisplaySize" value="0" />
<param name="AllowScan" value="0" />
<param name="EnableContextMenu" value="0" />
<param name="ClickToPlay" value="0" />
</object></td>
</tr>
<%
rs.movenext
loop
'end if
rs.close
set rs=nothing
%>

没人吗？

循环 的时候累加 求余mod 换行<br/>

使用编辑器，可以用百度 UEDITOR编辑器，电脑版的程序用这个还是蛮好的
手机版不支持 主要是 上传这块 用的是swfupload 它是flash 很多手机不支持flash
还有一种办法，就是 在进数据库之前 对获取的数据进行处理 搜索并计算视频标签数量
达到3 插入一个<br />