UC知道怎么调用数据库中的第一张图片为缩略图？
来源：百度知道 编辑：UC知道 时间：2024/07/04 09:28:59
代码如下，我想调用第一张图片为限定大小的缩略图，调用文章标题为标题。但现在这段代码是把所有图片都调出来了，麻烦高手解决下
<!--新闻列表开始-->
<%
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 \ maxPerP
<!--新闻列表开始-->
<%
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 \ maxPerP
晕，看得我头都大了。
太多了，看一代码了，这个就不细看了，呵呵。
说一下缩略图原理吧。
首先缩略图就是比较小的图片，你要把数据库的图片读取出来，然后改变大小，作出一个小的，单独保存起来。
然后直接读取这个图片就可以了。
至于更换图片文件了，那么就要控制重新生成缩略图。
windows的缩略图，就是这个原理
去CSDN上问吧。这里估计你找不到正确答案。
select * from news where s_id = 73 order by UpdateTime desc
* 了？
不是调用第一个吗？
select top 1 * from …………
你代码的算法是对的，只是调用图片的时候，要对图片进行缩略处理就行了。
定义一个接口，把图片（ASCCII码）传送到这个处理程序就可以了。