設置rs =服務器。CreateObject ("adodb.recordset ")
sqlha = "按id desc從pic_table order中選擇前5個*
康涅狄格州,1,1
dim Url(4),idx(4),bti(4),shu
shu=0
做而不做。文件結束
pic(shu)=rs("url ")
shu=shu+1
rsha.movenext
環
rsha.close
設置rsha =無
pic _ LJ = pic(0)& amp;" | " & amppic(1)& amp;" | " & amp圖片(2)和。" | " & amp圖三& amp" | " & amp圖片(4)
% & gt
& lt腳本類型= text/JavaScript & gt;
var focus_width=319
var focus_height=234
var text_height=0
var swf _ height = focus _ height+text _ height
var pics = " & lt%= pic_lj % >
document . write(' & lt;object classid = " clsid:d 27 CDB 6 e-ae6d-11cf-96b 8-444553540000 " code base = " " width = " "+focus _ width+' " height = " '+swf _ height+' " & gt;");
document . write(' & lt;param name = " allowScriptAccess " value = " same domain " & gt;& ltparam name = " movie " value = " focus . swf " >;');
document . write(' & lt;param name="quality" value="high " >& ltparam name = " bgcolor " value = " # f0f0f 0 " & gt;& ltparam name = " menu " value = " false " >;');
document . write(' & lt;param name = " FlashVars " value = " pics = '+pics+' & amp;border width = '+focus _ width+' & amp;borderheight='+focus_height+' " >);
document . write(' & lt;/object & gt;');
& lt/SCRIPT & gt;
1.將之前的第3代保存為asp文件。
2.用pic_table表建立壹個數據庫,其中有壹個url字段記錄圖片名稱,至少有5條記錄。
3.百度搜索focus.swf,下載後放入與本文檔同級的目錄中。
4.運行該文件...好不明白?嗨我