网上客房预订系统(ASP+Access+系统功能结构图+文件架构图+源代码) 第10页

   <td width="30%" valign=top> 脚本超时时间 </td>

      <td width="70%"><%=Server.ScriptTimeout%>秒</td>

    </tr>

    <tr>

      <td width="30%" valign=top> 服务器CPU数量 </td>

      <td width="70%"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>个</td>

    </tr>

    <tr>

      <td width="30%" valign=top> 服务器解译引擎 </td>

      <td width="70%"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>

    </tr>

  </table>

6.5  图片管理模块设计

图片管理模块的主要功能包括图片大小、类型、修改时间、删除、文件预览5部分，图片管理页面的设计效果如图17所示。

图17 图片管理页面设计效果

图片管理页面中获取上传图片的相关信息所涉及到的程序代码如下：

<%

             Const PageCount=7  '定义常量

      if request("page")<>"" then  '判断是否接收到表单值

                   requestpage=cint(request("page"))   '返回表达式值为整数

      else

            requestpage=1

      end if

      MaxPage=PageCount

      UploadPath = "eWebEditor/UploadFile"          '图片存放的文件夹地址

      strFileName="adminpic.asp"

             TruePath=Server.MapPath(UploadPath)'转换为实际路径

      If not objstr("Scripting.FileSystemObject") Then

            Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)!

不能使用本功能</font></b>"

      Else

            set fso=CreateObject("Scripting.FileSystemObject")'创建fso对象

            if request("Action")="Del" then   '如果Action不为空，进入删除模块

                  call DelFile()

            end if

                    if fso.FolderExists(TruePath)then  '检查路径是否存在

            FileCount=0

            TotleSize=0

                   Set theFolder=fso.GetFolder(TruePath)  '读取文件

                   For Each theFile In theFolder.Files

                  FileCount=FileCount+1'利用循环得出总的文件数

                  TotleSize=TotleSize+theFile.Size '利用循环得出文件的总体大小

            next

            totalPut=FileCount   '获取总文件数

            '分页显示

            if requestpage<1 then '在当前页码为小于1的值时，使其值等于1

                  requestpage=1

            end if

            if (requestpage-1)*MaxPage>totalput then

                  if (totalPut mod MaxPage)=0 then

                        requestpage= totalPut \ MaxPage

                  else

                        requestpage= totalPut \ MaxPage + 1

end if

                  end if

            if requestpage=1 then'在当前页码等于1时，调用显示模块

                  showContent       

                  showpage2 strFileName,totalput,MaxPage

              else'在当前页码不等于1时，调用相应显示模块

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>