ASP實現js圖片的輪顯_ASP教程

推薦：ASP代碼直接增加、刪除ACCESS表和字段
本例主要講述如何應用Create、Drop和Alter語句增加、刪除ACCESS表和字段，代碼如下： % '''''''''''''''''''''''''''''''''''' ' 增加、刪除表和字段 ' ├Create Table 表名(field1 type[(size)] [null|not null] [default eExpression] [primary key][,fiel

下午做了一個asp+js實現圖片的輪顯的效果，效果圖如： 左側的圖片輪顯，在 我用的是js,然后我改了一下用asp實現效果的。

pic.asp源代碼：

<%
'連接數據庫代碼省去了
sql=("select * from Pic order by picorder asc,id desc")
Set rs=server.CreateObject("adodb.recordset")
If rs.eof And rs.bof Then
%>
document.write('暫無圖片');
<%
Else
%>

var focus_width=820
var focus_height=185
var text_height=0
var swf_height = focus_height+text_height

<%
'轉載請保留來源
Do While Not rs.eof
pics=pics&rs("picurl")&"|" '把圖片用"|"連接起來
links=links&rs("picaddress")&"|"
rs.movenext
Loop

picLen=Len(pics)
pics=Left(pics,(picLen-1)) '作用是去除最后一個"|"

linksLen=Len(links)
links=Left(links,(linksLen-1))

%>
var pics='<%=pics%>'
var links='<%=links%>'
var texts=''

document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="flash/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#ffffff">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
document.write('<embed src="flash/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#ffffff" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); document.write('</object>');

<%End If %>

然后在首頁調用的地方，<script type="text/javascript" src="pic.asp"></script>

pixviewer.swf 可以在 /flash/pixviewer.swf 下載。

作者：無情 出處：

分享：ASP技巧:rs.getrows方法
GetRows()方法是將數據從 Recordset 復制到二維數組中，這是一個二維數組，第一個下標標識字段，第二個則標識記錄號 所以rsArray = rs.GetRows() rsArray(0, 0)就表示記錄集第一行的第一字段值 rsArray(1, 0)就表示記錄集第一行的第二字段值 數組的數據是保