浏览文件夹下面所有图片(2)

i   =   i   +   1
Loop
response.Write   "[<FONT   COLOR=red><B>"   &   page   &   "</B></FONT>]"
i   =   pageMiddle
Do   while   i   <=   pageEnd
response.Write   "<A   HREF="&Request.ServerVariables("SCRIPT_NAME")&"?page="   &   i   &   "   title=""第   "   &   i   &   "   页"">["   &   i   &   "]</A> "
i   =   i   +   1
Loop
response.Write   "...<A   HREF="&Request.ServerVariables("SCRIPT_NAME")&"?page="   &   pageTotal   &   "   title=""第   "   &   pageTotal   &   "   页"">["   &   pageTotal   &   "]</A>"
response.Write   "   <A   HREF="&Request.ServerVariables("SCRIPT_NAME")&"?page="   &   pageTotal   &   "   title=尾页>>></A>"
response.Write   "[   <A   HREF="&Request.ServerVariables("SCRIPT_NAME")&"?page="   &   (page   +   1)   &   "   title=下一页>下一页</A>   ] 共   <B><FONT   COLOR=red>"   &   pageTotal   &   "</FONT></B>   页  当前所在第   <B><FONT   COLOR=red>"   &   page   &   "</FONT></B>   页   图片数   :   <B><FONT   COLOR=red>"   &   picTotal   &   "</FONT></B>"
End   Function
'+-----------------------------------+
'|     取图片尺寸类
'+-----------------------------------+
Class   possible
  dim   aso
  Private   Sub   Class_Initialize
    set   aso=CreateObject("Adodb.Stream")