XiaoHui.Net 笑汇程序员论坛
→ Web 网站开发与设计
请高手看看程序问题出在哪里?
|
请高手看看程序问题出在哪里?
我想显示最后五条的图片， 为什么只显示最后一条记录的图片呢??
谢谢指点.~
<!--#include file = "admin_conn.asp" -->
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style><body>
<%
dim title,content,image
dim qswz,wz,zzwz
dim lm01,lm02,lm03,lm04,lm05,lm06,lm07,lm08,lm09,lm10
dim ndate,ndate1,ntime
lm01=3
lm02=5
lm03=6
lm04=7
lm05=8
lm06=9
lm07=10
lm08=11
lm09=12
lm10=13
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<%
sql = "select top 5 * from news where lm='"&lm01&"' order by id desc"
rs.open sql,conn,1,1
if rs.eof then
image="images/038.jpg"
else
'从新闻内容中取图片地址
content=rs("content")
qswz = Instr(content, "/upimages/")
wz = len(content) - qswz + 1
content = right(content,wz)
'图片地址长度为25-35
content = left(content,30)
zzwz = Instr(content, ".")
image = right(content,zzwz+3)
if qswz = 0 or zzwz = 0 or (len(image)>35 or len(image)<25) then
image="../images/038.jpg"
else
image=content
end if
end if
do while not rs.eof
ls_img=ls_img+image+"|"
ls_url=rs("title")+"|"
ls_text=ls_text+"|"
rs.movenext
loop
ls_img=left(ls_img,len(ls_img) - 1)
ls_url=left(ls_url,len(ls_url) - 1)
ls_text=left(ls_text,len(ls_text) - 1)
Response.write ""+ls_img+"<br /><br /><br /><br />"
Response.write ""+ls_url+"<br /><br /><br /><br /><br />"
Response.write ""+ls_text+""
%>
</body> |
|
我不是高手，但是我觉得把后面一段程序放在循环里面就可以了，你可以试试，如果不行，我也没办法了
<!--#include file = "admin_conn.asp" -->
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style><body>
<%
dim title,content,image
dim qswz,wz,zzwz
dim lm01,lm02,lm03,lm04,lm05,lm06,lm07,lm08,lm09,lm10
dim ndate,ndate1,ntime
lm01=3
lm02=5
lm03=6
lm04=7
lm05=8
lm06=9
lm07=10
lm08=11
lm09=12
lm10=13
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<%
sql = "select top 5 * from news where lm='"&lm01&"' order by id desc"
rs.open sql,conn,1,1
if rs.eof then
image="images/038.jpg"
else
'从新闻内容中取图片地址
content=rs("content")
qswz = Instr(content, "/upimages/")
wz = len(content) - qswz + 1
content = right(content,wz)
'图片地址长度为25-35
content = left(content,30)
zzwz = Instr(content, ".")
image = right(content,zzwz+3)
if qswz = 0 or zzwz = 0 or (len(image)>35 or len(image)<25) then
image="../images/038.jpg"
else
image=content
end if
end if
do while not rs.eof
ls_img=ls_img+image+"|"
ls_url=rs("title")+"|"
ls_text=ls_text+"|"
ls_img=left(ls_img,len(ls_img) - 1)
ls_url=left(ls_url,len(ls_url) - 1)
ls_text=left(ls_text,len(ls_text) - 1)
Response.write ""+ls_img+"<br /><br /><br /><br />"
Response.write ""+ls_url+"<br /><br /><br /><br /><br />"
Response.write ""+ls_text+""
rs.movenext
loop
%>
</body> |
|