每张图片显示在一页里面,上一张,下一张,当前第几张图片应该如何实现,请提供哈思路!!
解决方案 »
- 请教:开发web信息管理系统
- struts2标签问题
- jsp ajax sql2000 无限级级联
- ping 命令的编程问题
- JDBC的prepareStatement使用疑惑
- Jsp有没有好像.Text这样的Blog开发源码下载呢?
- springMvc @ResponseBody 注解问题
- 请问各位大侠,在jsp中如何调用.dll(动态连接库中的方法)?
- 非常菜的一个问题!请问rs.isAfterLast()中的isAfterLast是意思
- 这个签到功能的方法应该在哪里加锁?
- 在Body中设了 STYLE="OVERFLOW-X: hidden; OVERFLOW: hidden;",虽然滚动条不见了,但按着鼠标左键不放,朝下拉,一样可以拉动网页。
- javascript根据字段查询表单数据,并在html中输出显示
<table>
<tr>
<td>
<%
dim scriptname
scriptname=Request.ServerVariables ("script_name")
Set fso = CreateObject("Scripting.FileSystemObject")
Set emotFolder=fso.GetFolder(文件夹的目录)
Set emotFiles=emotFolder.Files
dim countnum
countnum=emotfiles.count '获取文件的数量
dim aa(37) 定义一个数组,我用了一个足够大的数组,你可以试着用一个动态数组来解决
dim i
i=0
用数组记录文件名
For Each emotname In emotFiles
aa(i)=emotname.name
i=i+1
next
set emotFolder=nothing
Set emotFiles=nothing
dim pages,pagenum,recordnum
recordnum=10
pages=(countnum-1)\recordnum+1
pagenum=cint(request.querystring("pagenum"))
if pagenum=0 then pagenum=trim(request.form("pagenum"))
if pagenum="" then pagenum=1
pagenum=cint(pagenum)
if pagenum>pages then pagenum=pages
'response.write(pages & ":" & pagenum)
'response.end
'start num
num=(pagenum-1)*recordnum
for i=1 to recordnum step 1
if (num+i)<=countnum then
%>
’取出相应的文件名,我这里是显示图片
<img src="emot/<%=aa(num+i-1)%>">
<%
end if
next
%>
</td>
<tr>
<td height="25" colspan="5">【<a href="<%=scriptname%>?pagenum=1" class="menu">首页</a>】【<a href="<%=scriptname%>?pagenum=<%=pagenum-1%>" class="menu">上一页</a>】【<a href="<%=scriptname%>?pagenum=<%=pagenum+1%>" class="menu">下一页</a>】【<a href="<%=scriptname%>?pagenum=<%=pages%>" class="menu">末页</a>】<%=pagenum%>/<%=pages%>页
共<%=countnum%>条记录</td>
</tr>
</table>