怎么调用数据库中的第一张图片为缩略图？

代码如下，我想调用第一张图片为限定大小的缩略图，调用文章标题为标题。但现在这段代码是把所有图片都调出来了，麻烦高手解决下

<!--新闻列表开始-->
<%
call List(27)
'----------------------------------------------------------------------------------------- List() --------------------------
sub List(maxPerPage)
dim n,i
n = 1
i = 0
sum_id = MyRequest("page",1)
if sum_id = 0 then
sum_id = 1
end if
sum_id = (sum_id - 1) * maxPerPage + 1
sql = "select * from news where s_id = 73 order by UpdateTime desc"
'Response.Write(sql)
rs.Open sql,conn,1,1
if rs.EOF then
Response.write("暂无数据")
exit sub
end if
totalPut = rs.RecordCount
if page > 0 then
CurrentPage = page
else
CurrentPage = 1
end if
if (CurrentPage - 1) * maxPerPage > totalPut then
if (totalPut mod maxPerPage) = 0 then
CurrentPage = totalPut \ maxPerPage
else
CurrentPage = totalPut \ maxPerPage + 1
end if
end if
if CurrentPage <> 1 then
if (CurrentPage - 1) * maxPerPage < totalPut then
rs.Move(CurrentPage - 1) * maxPerPage
else
CurrentPage = 1
end if
end if
%>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0"><tr>
<%do while not rs.eof%>
<td><table width="150" border="0">
<tr><td><a href="teacher-info.asp?id=<%= rs("id") %>" class="a03"><%=RegExpExecute(rs("content"))%></a></td></tr>
<tr><td align="center"><a href="teacher-info.asp?id=<%= rs("id") %>" class="a03"><%= cuted(rs("Title"),40) %></a></td></tr></table></td>
<%
if n mod 3 = 0 then
Response.Write("</tr>")
end if
n = n + 1
i = i + 1
if i >= maxPerPage then
exit do
end if
rs.MoveNext
loop
%>
</tr></table>
<%
rs.Close
'call showPage(totalPut,maxPerPage)
end sub
%>
<table width="100%" border="0" cellspacing="0" cellpadding="10">
</table>
<!--新闻列表结束-->

sql = "select * from news where s_id = 73 order by UpdateTime desc"
打开数据库的代码只有这一句。没有看到有判断是否有图片的代码。所以暂定你的列表里所有文章都有图片。

在显示输出的时候，两行
<a href="teacher-info.asp?id=<%= rs("id") %>" class="a03"><%=RegExpExecute(rs("content"))%></a>

<a href="teacher-info.asp?id=<%= rs("id") %>" class="a03"><%= cuted(rs("Title"),40) %></a>

如果你说每个文章都有图片和标题，现在基本可以断定rs("content")是图片，rs("title")是文章标题。

知道这些就容易多了。

只取一张图片的代码：从打开库开始

dim tp1
tp1 = ""
sql = "select top 1 id, content from news where s_id = 73 order by UpdateTime desc"
rs.open sql, conn, 1, 1
if not rs.eof then tp1 = RegExpExecute(rs("content"))
rs.close

使用的时候，直接用
<div><% =tp1 %></div>

就是图片。

取得新闻列表的代码：
从头告诉你太复杂，就用你原来的代码不变好了，把最后显示图片的那一段<a href="teacher-info.asp?id=<%= rs("id") %>" class="a03"><%=RegExpExecute(rs("content"))%></a>删除掉就OK

这是假设你给的条件是充足的情况下，，说真的如果你的rs("content")不是图片内容而是文章内容的话，你贴出来的代码就完全没有作用，我的回答也一定不正确。

多研究吧，不行追问。

确切的切成适当的大小

-新闻列表..好像没有看见有 调整图片的代码！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息