Kode Berita Slide ASP: <!-Ini adalah file beranda-> <html>
<head>
<meta http-equiv = konten tipe konten = teks /html;
<title> berita slide </iteme>
</head>
<body>
<!-#Sertakan File = Diaoyong.asp->
</body>
</html> <!-Panggil saja file berikut.
<%
'Slide News
Db = ../webjx_data/webjx_data.asp
Set Conn = Server.CreateObject (AdodB.Connection)
Connstr = penyedia = microsoft.jet.oledb.4.0;
Conn.open Connstr
SQL = Pilih Top 5 * dari [Music_List_tupian_system] di mana iswnumssex = 'rotent ads' pesanan oleh iswnumsid desc
Set RS = Server.CreateObject (ADODB.OLDSET)
Rs.oopen Sql, Conn, 1,1
Jika tidak rs.eof maka
k = 1
Num_total = rs.rcordcount
untuk i = 1 hingga 5
Jika i> num_total maka keluar untuk
Jika i = 1 maka
imgurn = img/& rs (iswnumsphoto)
jika len (rs (iswnumsuser))> = 18 maka
imgtext11 = kiri (rs (iswnumsuser), 18) & ... & ...
kalau tidak
imgtext11 = rs (iswnumsuser)
akhiri jika
imGlink11 = rs (iswnumsclass)
akhiri jika
Jika i = 2 lalu
Imgurl22 = img/& rs (iswnumsphoto)
jika len (rs (iswnumsuser))> = 18 maka
imgtext22 = kiri (rs (iswnumsuser), 18) & ... & ...
kalau tidak
imgtext22 = rs (iswnumsuser)
akhiri jika
imGlink22 = rs (iswnumsclass)
akhiri jika
Jika i = 3 maka
Imgurl33 = img/& rs (iswnumsphoto)
jika len (rs (iswnumsuser))> = 18 maka
imgtext33 = kiri (rs (iswnumsuse), 18) & ... & ...
kalau tidak
imgtext33 = rs (iswnumsuser)
akhiri jika
IMGlink33 = RS (iswnumsclass)
akhiri jika
Jika i = 4 maka
Imgurl44 = img/& rs (iswnumsphoto)
jika len (rs (iswnumsuser))> = 18 maka
imgtext44 = kiri (rs (iswnumsuse), 18) & ... & ...
kalau tidak
imgtext44 = rs (iswnumsuser)
akhiri jika
imGlink44 = rs (iswnumsclass)
akhiri jika
Jika i = 5 maka
Imgurl55 = img/& rs (iswnumsphoto)
jika len (rs (iswnumsuser))> = 18 maka
imgtext55 = kiri (rs (iswnumsuser), 18) & ... & ...
kalau tidak
imgtext55 = rs (iswnumsuser)
akhiri jika
IMGlink55 = RS (iswnumsclass)
akhiri jika
rs.movenext
K = K+1
Berikutnya
kalau tidak
Response.write tidak memiliki data untuk saat ini!
akhiri jika
%>
<A target = _self href = javascript: gourl ()> <span class = f14b>
<type skrip = teks/javascript>
Imgurl1 = <%= imgurl11%>;
imgtext1 = <%= imgtext11%>
imGlink1 = Escape (<%= imGlink11%>);
imgurl2 = <%= imgurl22%>;
imgtext2 = <%= imgtext22%>
imGlink2 = Escape (<%= imGlink22%>);
Imgurl3 = <%= imgurl33%>;
imgtext3 = <%= imgtext33%>
imGlink3 = Escape (<%= imGlink33%>);
imgurl4 = <%= imgurl44%>;
imgtext4 = <%= imgtext44%>
IMGlink4 = Escape (<%= imGlink44%>);
Imgurl5 = <%= imgurl55%>;
imgtext5 = <%= imgtext55%>
imGlink5 = Escape (<%= imGlink55%>);
var focus_height = 160
var text_height = 18
var swf_height = focus_height+text_height
<%jika num_total = 1 lalu%>
Varge pics = imgurl1
tautan var = imGlink1
var texts = imgtext1
<%Elseif num_total = 2 lalu%>
Varge pics = imgurl1+|+imgurl2
tautan var = imGlink1+|+imGlink2
var texts = imgtext1+|+imgtext2
<%Elseif num_total = 3 lalu%>
Varge pics = imgurl1+|+imgurl2+|+imgurl3
var link = imGlink1+|+imGlink2+|+imGlink3
Var texts = imgtext1+|+imgtext2+|+imgtext3
<%Elseif num_total = 4 lalu%>
varge pics = imgurl1+|+imgurl2+|+imgurl3+|+imgurl4
var links = imGlink1+|+imGlink2+|+imGlink3+|+imGlink4
Var texts = imgtext1+|+imgtext2+|+imgtext3+|+imgtext4
<%elseif num_total = 5 thatn%>
varge pics = imgurl1+|+imgurl2+|+imgurl3+|+imgurl4+|+imgurl5
var links = imGlink1+|+imGlink2+|+imGlink3+|+imGlink4+|+imGlink5
Var texts = imgtext1+|+imgtext2+|+imgtext3+|+imgtext4+|+imgtext5
<%Berakhir jika%>
Document.write ('<object classID = clsid: d27cdb6e-ae6d-11cf-96b8-444553540000 = http: //fpdownload.macromedia.com/pub/shockwava E/Cabs/flash/swflash.cab#versi = 6.shock, 10. 6.cab = 6.sab = 6.sab = 6.cab = 6.cab = 6.cab = 6.cab = 6.cab = 6.cab = 6.cab = 6.cab = 6.cab = 6.cab = 6.cab = 6.cab = 6.cab = 6.cab = 6.cab = 6.cab #cab 0,0 lebar = ' + focus_width +' height = ' + swf_height +'> ');
Document.write ('<param name = appleScriptAccess value = samedomain> <param name = nilai film = focus.swf> <param name = kualitas = tinggi> <param name = bgcolor value =#f0f0f0>');
document.write ('<param name = menu value = false> <sem name = wmode value = OPAQUE>');
Document.write ('<param name = flashvars value = pics ='+pics+'& links ='+tautan+'& teks+teks+' & borderwidth = '+fokus us_width+' & borderheight = '+focus_height+' & textheight = '+ Text_height+'>'>);
document.write ('<embed src = pixviewer.swf wmode = ocaque = pics ='+pics+'& tautan+tautan+' & teks+'& borderwidth ='+focus_width+'& borderheight ='+focus_height+'& textheight ='+text_height+ 'menu = false bgcolor =#f0f0f0f0 kualitas = lebar tinggi ='+focus_width+'height ='+focus_heightacccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccup. htlomin/htflayer/htflay.mon/htflay = htfflay./ htflay = htlom/htflomin/htflomin/htlomaC/htlomaC = htfflay = htttp./ htfflay = htttp: htlom/htflomin/htflomin/htflomin/htlomaC/htflomin/htlomaR/htflomin = > ');
</script>
</span> </a> <span id = focustext class = f14b> </span>