求一段ASP语句

u012510394 2015-06-25 11:05:24
哪位大神帮个忙,
ASP 旧的语句:

旧语句产生的效果:


要产生效果:

ASP应该怎么写呢?
...全文
85 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
hookee 2015-06-26
  • 打赏
  • 举报
回复

<%
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
%>
u012510394 2015-06-26
  • 打赏
  • 举报
回复
@hookee 你好~因我原先学过编程,感觉你给的代码没问题;但我替换了原先的代码后,那个网站一直卡死在那,应该是个死循环把。 这个网站我是在替换一个banner,引用asp语句的地方使用的是“{Lankecms_adv}” 后台通过点击生成首页实现首页的替换
u012510394 2015-06-25
  • 打赏
  • 举报
回复
<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 2015-06-25
  • 打赏
  • 举报
回复
新人,求教 <% '焦点广告 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 %>

28,397

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧