图片分页的一些问题
每张图片显示在一页里面，上一张，下一张，当前第几张图片应该如何实现，请提供哈思路！！
[解决办法]
[code=HTML][/code]代码比较乱，你自己组织一下！
<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>
