求一段ASP语句

[u012510394]

哪位大神帮个忙，
ASP 旧的语句：

旧语句产生的效果：


要产生效果：

ASP应该怎么写呢？

[u012510394]

新人，求教 <% '焦点广告 dim Lankecms_adv set db=conn.execute("select top 5 * from [flash] order by px_id asc") if db.eof then Lankecms_adv = Lankecms_adv & "var files=''"&vbcrlf Lankecms_adv = Lankecms_adv & "var links=''"&vbcrlf Lankecms_adv = Lankecms_adv & "var texts=''"&vbcrlf else i=0 do while not db.eof files=files&"|"&root&db("img") links=links&"|"&db("link") db.moveNext i=i+1 loop Lankecms_adv = Lankecms_adv & "files+='|"&right(files,len(files)-1)&"'"&vbcrlf Lankecms_adv = Lankecms_adv & "links+='|"&right(links,len(links)-1)&"'"&vbcrlf end if %>

[u012510394]

<li><a href='#'><img src='images/01.jpg' width='1003' height='360' /></a></li> <li><a href='javascript:'><img src='images/02.jpg' width='1003' height='360' /></a></li> <li><a href='javascript:'><img src='images/03.jpg' width='1003' height='360' /></a></li> <li><a href='javascript:'><img src='images/04.jpg' width='1003' height='360' /></a></li>

[u012510394]

@hookee 你好~因我原先学过编程，感觉你给的代码没问题；但我替换了原先的代码后，那个网站一直卡死在那，应该是个死循环把。 这个网站我是在替换一个banner，引用asp语句的地方使用的是“{Lankecms_adv}” 后台通过点击生成首页实现首页的替换

[hookee]

<%
s = ""
Set db = conn.Execute("select top 5 * from [flash] order by px_id asc")
Do While Not db.EOF
   s = s & "<li><a href='" & db("link") & "'><img src='"  &  db("img") & "' width='1003' height='360' /></a></li>" & VBCrLf
   db.MoveNext
Loop
db.Close
conn.Close
Set db = Nothing
Set Conn = Nothing
Response.Write s
%>