ASP Slide News Code: <!-Este es un archivo de página de inicio-> <html>
<Evista>
<meta http-oquiv = content-type content = text /html;
<title> Slide News </title>
</ablo>
<Body>
<!-#include file = diaoyong.asp->
</body>
</html> <!-Simplemente llame al siguiente archivo.
<%
'Noticias de diapositivas
Db = ../webjx_data/webjx_data.asp
Establecer conn = server.createObject (ADODB.Connection)
Connstr = Provider = Microsoft.Jet.OLEDB.4.0;
Conn.open Connstr
Sql = seleccione Top 5 * de [Music_list_tupian_system] Donde isWnumsSEX = 'Rotent Ads' Order por isWnumsid Desc
Establecer RS = Server.CreateObject (ADODB.oldset)
Rs.oopen SQL, Conn, 1,1
Si no es RS.EOF entonces
K = 1
Num_total = rs.rcordCount
para i = 1 a 5
Si i> num_total entonces salga por
Si yo = 1 entonces
imGurn = img/& rs (iswnumsphoto)
Si len (rs (iswnumsuser))> = 18 entonces
imgText11 = izquierda (RS (isWnumsuser), 18) y ... & ...
demás
imgText11 = rs (isWnumsuser)
final si
imglink11 = rs (isWnumsClass)
final si
Si yo = 2 entonces
Imgurl22 = img/& rs (iswnumsphoto)
Si len (rs (iswnumsuser))> = 18 entonces
imgText22 = izquierda (rs (iswnumsuser), 18) y ... & ...
demás
imgtext22 = rs (isWnumsuser)
final si
imglink22 = rs (isWnumsClass)
final si
Si yo = 3 entonces
Imgurl33 = img/& rs (iswnumsphoto)
Si len (rs (iswnumsuser))> = 18 entonces
imgtext33 = izquierda (rs (iswnumsuse), 18) y ... & ...
demás
imgtext33 = rs (isWnumsuser)
final si
imglink33 = rs (isWnumsClass)
final si
Si yo = 4 entonces
Imgurl44 = img/& rs (iswnumsphoto)
Si len (rs (iswnumsuser))> = 18 entonces
imgtext44 = izquierda (rs (iswnumsuse), 18) y ... & ...
demás
imgtext44 = rs (isWnumsuser)
final si
imglink44 = RS (ISWNUMSCLASS)
final si
Si yo = 5 entonces
Imgurl55 = img/& rs (iswnumsphoto)
Si len (rs (iswnumsuser))> = 18 entonces
imgText55 = izquierda (rs (iswnumsuser), 18) y ... & ...
demás
imgtext55 = rs (isWnumsuser)
final si
imglink55 = RS (ISWNUMSCLASS)
final si
Rs.Movenext
K = K+1
próximo
demás
Respuesta. ¡Write no tiene datos por el momento!
final si
%>
<A Target = _Self href = javaScript: gourl ()> <span class = f14b>
<script type = text/javaScript>
Imgurl1 = <%= imgurl11%>;
imgText1 = <%= imgText11%>
imgGlink1 = Escape (<%= imglink11%>);
imgurl2 = <%= imgurl22%>;
imgText2 = <%= imgText22%>
imgGlink2 = Escape (<%= imglink22%>);
Imgurl3 = <%= imgurl33%>;
imgText3 = <%= imgText33%>
imgGlink3 = Escape (<%= imglink33%>);
imgurl4 = <%= imgurl44%>;
imgText4 = <%= imgText44%>
imgGlink4 = Escape (<%= imglink44%>);
Imgurl5 = <%= imgurl55%>;
imgText5 = <%= imgText55%>
imgGlink5 = Escape (<%= imglink55%>);
var focus_height = 160
var text_height = 18
var swf_height = focus_height+text_height
<%if num_total = 1 entonces%>
Varge Pics = imgurl1
enlaces var = imglink1
textos var = imgText1
<%Elseif num_total = 2 entonces%>
Varge Pics = imgurl1+|+imgurl2
enlaces var = imglink1+|+imglink2
Textos var = imgText1+|+imgText2
<%Elseif num_total = 3 entonces%>
Varge Pics = imgurl1+|+imgurl2+|+imgurl3
enlaces var = imglink1+|+imglink2+|+imglink3
Textos var = imgText1+|+imgText2+|+imgText3
<%Elseif num_total = 4 entonces%>
Varge Pics = imgurl1+|+imgurl2+|+imgurl3+|+imgurl4
enlaces var = imglink1+|+imglink2+|+imglink3+|+imglink4
Var texts = imgtext1+|+imgtext2+|+imgtext3+|+imgtext4
<%elseif num_total = 5 thatn%>
Varge Pics = imgurl1+|+imgurl2+|+imgurl3+|+imgurl4+|+imgurl5
enlaces var = imglink1+|+imglink2+|+imglink3+|+imglink4+|+imglink5
Var texts = imgtext1+|+imgtext2+|+imgtext3+|+imgtext4+|+imgtext5
<%Final si%>
document.write ('<object classID = clsid: d27cdb6e-ae6d-11cf-96b8-4444553540000 = http: //fpdownload.macromedia.com/pub/shockwavwavav e/cabs/flash/swflash.cab#Versión = 6,0, 0,0 width = ' + focus_width +' height = ' + swf_height +'> ');
document.write ('<param name = lowEdcriptAccess value = samedomain> <param name = Movie value = focus.swf> <param name = Quality = high> <param name = bgcolor value =#f0f0f0>');
document.write ('<param name = menú valor = falso> <sem name = wmode value = opacque>');
document.write ('<param name = flashvars value = pics ='+pics+'& links ='+links+'& texts+texts+' & borderWidth = '+foc us_width+' & borderheight = '+focus_height+' & textheight = '+++'+ Text_height+'>'>);
document.Write ('<Incorpre src = PixViewer.swf wmode = opacue = Pics ='+Pics+'& Links+Links+' & Texts+'& BorderWidth ='+Focus_Width+'& BorderHeight ='+Focus_height+'& TEXTHEight ='+Text_height+ 'menu = false bgcolor =#f0f0f0f0 Quality = high width ='+focus_width+'height ='+focus_heightacccccccccccccccccccccccccccccccccccccccccccccc ESS = SAMEDOMAIN TYPE = Application/X-SHOCKWAVE-FLASH Pluginspage = http://www.macromedia.com /go/getflashplayer/ > ');
</script>
</span> </a> <span id = focustext class = f14b> </span>