类似的图片预览功能,asp代码应该如何写,能给出一个大概的代码吗?(及时结贴)

zftnt 湖南农创现代农业有限公司 运维工程师  2004-08-03 02:59:26
http://mir3.17173.com/picsent/

如上面网页的那种效果,四行三列的显示固定尺寸的小图,点击小图后显示大图片,这样的效果用asp如何实现?在线等,及时结贴给分。
...全文
89 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zftnt 2004-08-03
有高手能来做答吗?在线等着结贴噢
回复
zftnt 2004-08-03
楼上的给出的代码不行啊,我要的是四行三列的效果,这个表格里面每个表格一个图片如何实现呢?我用的Access数据库,图片路径已经上传到数据库了,关键是如何显示预览图小图的功能,再次请教。
回复
zftnt 2004-08-03
我先试试上面的朋友给的程序,感谢啊
回复
阿_浩 2004-08-03
<!--#include file=../inc/conn.asp-->
<%
Set RstPrj=Server.CreateObject("Adodb.Recordset")

'***************查询*******************'
function iif(a,b,c)
if a then iif = b else iif = c
end function

strSql="select * from 表 order by ID asc"

'Response.Write(strSql):Response.End()

RstPrj.Open strSQL,Conn,1,3

RstPrj.PageSize=12
lngPage=Request("Page")

if lngPage="" Or Not IsNumeric(lngPage) Then
lngPage=1
end if

lngPage=Clng(lngPage)

if lngPage>RstPrj.PageCount Then
lngPage=RstPrj.PageCount
elseif lngPage<=0 then
lngPage=1
end if

if RstPrj.PageCount<> 0 then
RstPrj.AbsolutePage=lngPage
end if
dim CurrentPage
CurrentPage=lngPage
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title></title>
</head>
<body leftmargin="0" topmargin="0">
<div align="center">
<table width="778" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="557" align="center" valign="top">
<table width="529" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="555" height="63" align="center" valign="middle" > 
</td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0">
<%

if not RstPrj.EOF then

%>
<tr>
<%
dim i
i=0
while not RstPrj.EOF and i<RstPrj.PageSize
%>
<td height="165" align="center" valign="middle" background="../image/ny_pro_bg.jpg" style="width:170px;height:165">
<table width="150" height="157" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="132" align="center" valign="bottom"><a href="大图的地址"><img src="../manage/<%=RstPrj("UploadFiles")%>" width="140" height="115" alt="图片"></a></td>
</tr>
<tr>
<td align="center"><a href="item.asp?ArticleID=<%=RstPrj("ArticleID")%>" target="_blank"><%=RstPrj("title")%></a></td>
</tr>
</table></td><%
i=i+1
RstPrj.MoveNext
if i mod 4 =0 then

Response.Write "</tr>"

end if
wend
else
%>
<td align="left" height=120 style="width:170px;height:165">没有产品信息</td>
<%

end if

%>
</tr>
</table>

</td>
</tr>
</table>
</div>
</body>
</html>
<%
RstPrj.Close()
set RstPrj=Nothing
Call CloseConn()
%>
回复
lebo 2004-08-03
www.lebo.cn
回复
mjpclab 2004-08-03
他不过是用html实现的
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-03 02:59
社区公告
暂无公告