Question

asp 首页播放视频Flv

<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select top 1 * from pf_movie where pf_movie_near=true order by pf_movie_order asc"
rs.Open sql, conn, 1, 1
Do While Not rs.EOF

%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="340" height="255" id="FLVPlayer">
<param name="movie" value="FLVPlayer_Progressive.swf" />
<param name="salign" value="lt" />
<param name="quality" value="high" />
<param name="scale" value="noscale" />
<param name="FlashVars" value="&MM_ComponentVersion=1&skinName=Clear_Skin_1&streamName=<%=rsa("pf_uploadfile")%>&autoPlay=false&autoRewind=false" />
<embed src="FLVPlayer_Progressive.swf" flashvars="&MM_ComponentVersion=1&skinName=Clear_Skin_1&streamName=<%=rsa("pf_uploadfile")%>&autoPlay=false&autoRewind=false" quality="high" scale="noscale" width="340" height="255" name="FLVPlayer" salign="LT" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
</object>
<%
rs.movenext
Loop
rs.Close
Set rs = Nothing

%>

Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'rsa'
/index.asp, 第 193 行
193：<param name="FlashVars" value="&MM_ComponentVersion=1&skinName=Clear_Skin_1&streamName=<%=rsa("pf_uploadfile")%>&autoPlay=false&autoRewind=false" />
<embed src="FLVPlayer_Progressive.swf" flashvars="&MM_ComponentVersion=1&skinName=Clear_Skin_1&streamName=<%=rsa("pf_uploadfile")%>

Answer 1

将193行改为如下

<param name="FlashVars" value="&MM_ComponentVersion=1&skinName=Clear_Skin_1&streamName=<%=rs("pf_uploadfile")%>&autoPlay=false&autoRewind=false" />
<embed src="FLVPlayer_Progressive.swf" flashvars="&MM_ComponentVersion=1&skinName=Clear_Skin_1&streamName=<%=rs("pf_uploadfile")%>

因为rs从定义到循环都是以rs定义命名,有出错提示,修改一下对应的名称就可以了.

Answer 2

你前面不是rs吗，后面怎么变成rsa了，前四行改成
<%
Set rsa = server.CreateObject("adodb.recordset")
sql = "select top 1 * from pf_movie where pf_movie_near=true order by pf_movie_order asc"
rsa.Open sql, conn, 1, 1

Answer 3

把rsa都改成rs