Question

ASP首页图片新闻为什么调用不出来

我的index.asp中图片新闻位置中调用<%call News_FlashMovie(100,100) %>
我的index.asp头部包含Public_Index.asp,其中<%'*******************************************************************************************************
Sub News_FlashMovie(w,h)'---------------------首页幻灯片新闻:参数：w宽；h高%>
<script>
var img1=new ImageMovie();
img1.width=<%=w%>;
img1.height=<%=h%>;
img1.textHeight=20;
</script>
<!--start-->
<%

set rs=server.CreateObject ("ADODB.RECORDSET")
sql="select top 3 * from news where 1=1 and news_boolean='ttttt' and news_index_boolean='ttttt' "
sql=sql&" and news_picturl_small<>''"
sql=sql&" and news_isfla=1"
'sql=sql&" and type_type="&typetype
'If typeclass>0 Then sql=sql&" and type_class="&typeclass
'sql=sql&" order by news_id asc "
rs.Open sql,conn,1,1
'response.write sql
if rs.EOF Then
response.write ""
else
for i=1 to rs.recordcount
news_title=Leftword(StripHTMLTag(rs("news_title")),22,"...")
PicPath=right(rs("news_picturl_small"),len(rs("news_picturl_small"))-6)
Url="news/list.asp?news_id="&rs("news_id")
%>
<script>
img1.add('<%=PicPath%>','<%=Url%>','<%=news_title%>');
</script>
<%
rs.movenext
next
end if

%>
<!--end-->
<script>
img2.play();
</script>
<%End Sub%>
为何在调用的时候显示不出来，请高手指点，问题出在哪里，应该怎么解决，

Answer 1

<%
'*******************************************************************************************************
Sub News_FlashMovie(w,h)'---------------------首页幻灯片新闻:参数：w宽；h高%>
%>
<script>
var img1=new ImageMovie();
img1.width=<%=w%>;
img1.height=<%=h%>;
img1.textHeight=20;
</script>
<!--start-->
<%

set rs=server.CreateObject ("ADODB.RECORDSET")
sql="select top 3 * from news where 1=1 and news_boolean='ttttt' and news_index_boolean='ttttt' "
sql=sql&" and news_picturl_small<>''"
sql=sql&" and news_isfla=1"
'sql=sql&" and type_type="&typetype
'If typeclass>0 Then sql=sql&" and type_class="&typeclass
'sql=sql&" order by news_id asc "
rs.Open sql,conn,1,1
'response.write sql
if rs.EOF Then
response.write ""
else
for i=1 to rs.recordcount
news_title=Leftword(StripHTMLTag(rs("news_title")),22,"...")
PicPath=right(rs("news_picturl_small"),len(rs("news_picturl_small"))-6)
Url="news/list.asp?news_id="&rs("news_id")
%>
<script>
img1.add('<%=PicPath%>','<%=Url%>','<%=news_title%>');
</script>
<%
rs.movenext
next
end if

%>
<!--end-->
<script>
img2.play();
</script>
<%End Sub%>