Código de notícias do Slide ASP: <!-Este é um arquivo de página inicial-> <html>
<head>
<meta http-equiv = conteúdo conteúdo = text /html;
<Title> Slide News </title>
</head>
<Body>
<!-#inclua arquivo = diaoyong.asp->
</body>
</html> <!-basta chamar o seguinte arquivo.
<%
'Slide News
Db = ../webjx_data/webjx_data.asp
Definir Conn = Server.CreateObject (Adodb.Connection)
Connstr = provedor = Microsoft.Jet.oledb.4.0;
Conn.Open Connstr
Sql = selecione Top 5 * de [music_list_tupian_system] onde iswnumssex = 'anúncios de rotação' ordem por iswnumsid desc
set rs = server.createObject (adodb.oldset)
Rs.ooopen SQL, Conn, 1,1
se não Rs.eof então
k = 1
Num_total = rs.rcordCount
para i = 1 a 5
Se i> num_total, então saia para
Se eu = 1 então
imgun = img/& rs (iswnumsphoto)
Se Len (rs (iswnumsuser))> = 18 então
imgtext11 = esquerda (rs (iswnumsuser), 18) & ... & ...
outro
imgtext11 = rs (iswnumsuser)
final se
imglink11 = rs (iswnumsclass)
final se
Se eu = 2 então
Imgurl22 = img/& rs (iswnumsphoto)
Se Len (rs (iswnumsuser))> = 18 então
imgtext22 = esquerda (rs (iswnumsuser), 18) & ... & ...
outro
imgtext22 = rs (iswnumsuser)
final se
imglink22 = rs (iswnumsclass)
final se
Se eu = 3 então
Imgurl33 = img/& rs (iswnumsphoto)
Se Len (rs (iswnumsuser))> = 18 então
imgtext33 = esquerda (rs (iswnumsuse), 18) & ... & ...
outro
imgtext33 = rs (iswnumsuser)
final se
imglink33 = rs (iswnumsclass)
final se
Se eu = 4 então
Imgurl44 = img/& rs (iswnumsphoto)
Se Len (rs (iswnumsuser))> = 18 então
imgtext44 = esquerda (rs (iswnumsuse), 18) & ... & ...
outro
imgtext44 = rs (iswnumsuser)
final se
imglink44 = rs (iswnumsclass)
final se
Se eu = 5 então
Imgurl55 = img/& rs (iswnumsphoto)
Se Len (rs (iswnumsuser))> = 18 então
imgtext55 = esquerda (rs (iswnumsuser), 18) & ... & ...
outro
imgtext55 = rs (iswnumsuser)
final se
imglink55 = rs (iswnumsclass)
final se
rs.movenext
k = k+1
próximo
outro
Response.Write não tem dados por enquanto!
final se
%>
<A destino = _self href = javascript: gourl ()> <span class = f14b>
<Script Type = Text/JavaScript>
Imgurl1 = <%= imgurl11%>;
imgtext1 = <%= imgtext11%>
imglink1 = escape (<%= imglink11%>);
imgurl2 = <%= imgul22%>;
imgtext2 = <%= imgtext22%>
imglink2 = escape (<%= imglink22%>);
Imgurl3 = <%= imgul33%>;
imgtext3 = <%= imgtext33%>
imglink3 = escape (<%= imglink33%>);
imgurl4 = <%= imgul44%>;
imgtext4 = <%= imgtext44%>
imglink4 = escape (<%= imglink44%>);
Imgurl5 = <%= imgul55%>;
imgtext5 = <%= imgtext55%>
imglink5 = escape (<%= imglink55%>);
var focus_height = 160
var text_height = 18
var swf_height = focus_height+text_height
<%se num_total = 1 então%>
Varge Pics = imgurl1
var links = imglink1
var texts = imgtext1
<%Elseif num_total = 2 então%>
Varge Pics = imgurl1+|+imgul2
var links = imglink1+|+imglink2
var texts = imgtext1+|+imgtext2
<%Elseif num_total = 3 então%>
Varge Pics = imgurl1+|+imgurl2+|+imgurl3
var links = imglink1+|+imglink2+|+imglink3
Var texts = imgtext1+|+imgtext2+|+imgtext3
<%Elseif num_total = 4 então%>
Varge Pics = imgurl1+|+imgul2+|+imgurl3+|+imgul4
var links = imglink1+|+imglink2+|+imglink3+|+imglink4
Var texts = imgtext1+|+imgtext2+|+imgtext3+|+imgtext4
<%elseif num_total = 5 que não%>
Varge Pics = imgurl1+|+imgul2+|+imgurl3+|+imgul4+|+imgul5
var links = imglink1+|+imglink2+|+imglink3+|+imglink4+|+imglink5
Var texts = imgtext1+|+imgtext2+|+imgtext3+|+imgtext4+|+imgtext5
<%Final se%>
Document.Write ('<Object ClassId = CLSID: D27CDB6E-AE6D-11CF-96B8-444553540000 = http: //fpdownload.macromedia.com/pub/shockwavav e/cabs/flash/swflash.cab#versão 0,0 largura = ' + foco_width +' altura = ' + swf_height +'> ');
document.write ('<nome do param = permite cenário de valor = samedomain> <nome do param = valor do filme = focus.swf> <param name = Quality = alta> <param name = bgcolor value =#f0f0f0>');
document.write ('<nome do param = valor do menu = false> <sem nome = value wmode = opaque>');
document.write ('<param name = flashvars value = pics ='+pics+'& links ='+links+'& textos+textos+' & borderwidth = '+foc us_width+' & borderheight = '+focus_height+' & textheight = '+ Text_height+'>'>);
document.write ('<incorped src = pixviewer.swf wmode = opacoque = pics ='+pics+'& links+links+' & textos+'& 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>