主頁 > 知識庫 > Wrance的圖片系統(tǒng)目錄直讀版1.0

Wrance的圖片系統(tǒng)目錄直讀版1.0

熱門標(biāo)簽:沈陽電話機器人公司 虛擬電話外呼系統(tǒng) 云南便宜外呼系統(tǒng)平臺 鄭州智能外呼電銷機器人廠家 廣東語音外呼系統(tǒng)公司 沈陽三五防封電銷卡 長春公司外呼系統(tǒng)中心 成都ai外呼系統(tǒng)線路 鄢陵學(xué)校如何做地圖標(biāo)注
復(fù)制代碼 代碼如下:

%@language=vbscript codepage=936 %>

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++Wrance的圖片系統(tǒng)目錄直讀版1.0+++++++++++++++++++++++
'++++++演示:http://www.cnecg.com/pic.asp++++++++++++++++++
'++++++此為免費程序,您可以任意修改,歡迎發(fā)表建議++++++++++
'++++++Email:cnecg@yahoo.com.cn,QQ:74028+++++++++++++++++++

'以下為修改內(nèi)容
Const UploadDir="/ecg/upload/news/"        '存放文件的目錄
Const MaxPerPage=30                      '每頁顯示數(shù)量
const title="+++__Wrance的圖片系統(tǒng)目錄直讀版_ "   '標(biāo)題


'檢查組件是否已經(jīng)安裝
Function IsObjInstalled(strClassString)    
    IsObjInstalled = False
    Err = 0
    Dim xTestObj
    Set xTestObj = Server.CreateObject(strClassString)
    If 0 = Err Then IsObjInstalled = True
    Set xTestObj = Nothing
    Err = 0
End Function
dim strFileName
dim totalPut,CurrentPage,TotalPages
dim TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize
strFileName="?"

if request("page")>"" then
    currentPage=cint(request("page"))
else
    currentPage=1
end if

TruePath=Server.MapPath(UploadDir)
If not IsObjInstalled("Scripting.FileSystemObject") Then
    Response.Write "b>font color=red>你的服務(wù)器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能/font>/b>"
Else
    set fso=CreateObject("Scripting.FileSystemObject")    

%>
html>
head>
title>%=title%>/title>
meta http-equiv="Content-Type" content="text/html; charset=gb2312">
style type="text/css">
!--
.font {
    font-size: 12px;
    color: #000000;
    text-decoration: none;
    text-align: center;
    vertical-align: middle;
    line-height: 140%;
}
a:link {
    font-size: 12px;
    color: #000000;
    text-decoration: underline;
}
a:hover {
    font-size: 12px;
    color: #999999;
    text-decoration: none;
}
a:visited {
    font-size: 12px;
    color: #0088B5;
    text-decoration: underline;
}
-->
/style>
/head>
body>
div align=center>
%=title%>br>
  table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
    tr>      
      td width="100%" align="center" valign="top">      

      %
  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 currentpage1 then
           currentpage=1
       end if
       if (currentpage-1)*MaxPerPage>totalput then
        if (totalPut mod MaxPerPage)=0 then
              currentpage= totalPut \&;MaxPerPage
          else
              currentpage= totalPut \&;MaxPerPage + 1
        end if

    end if
    if currentPage=1 then
        showContent         
        showpage2 strFileName,totalput,MaxPerPage
        response.write "br>div align='center'>本頁共顯示 b>"  FileCount-1  "/b> 個文件,占用 b>"  TotleSize\1024  "/b> K/div>"
       else
              if (currentPage-1)*MaxPerPagetotalPut then
            showContent         
            showpage2 strFileName,totalput,MaxPerPage
            response.write "br>div align='center'>本頁共顯示 b>"  FileCount-1  "/b> 個文件,占用 b>"  TotleSize\1024  "/b> K/div>"
           else
            currentPage=1
            showContent         
            showpage2 strFileName,totalput,MaxPerPage
            response.write "br>div align='center'>本頁共顯示 b>"  FileCount-1  "/b> 個文件,占用 b>"  TotleSize\1024  "/b> K/div>"
        end if
    end if
  else
    response.write "找不到文件夾!可能是配置有誤!"
  end if
end if

sub showContent()
       dim c
    FileCount=1
    TotleSize=0
%>
      table width="100%" border="0" align="center" cellpadding="5" cellspacing="5">
                  tr class="tdbg"> 
        % For Each theFile In theFolder.Files
    c=c+1
    if FileCount>MaxPerPage then
        exit for
    elseif c>MaxPerPage*(CurrentPage-1) then %>
          td>a href="%=(UploadDir  theFile.Name)%>" target="_blank">
img src=%=(UploadDir  theFile.Name)%> border=0 width=120 height=150>/a>/td>
% if FileCount mod 5 =0 then%>
              /TR>
              tr> 
                %end if%>
        %    FileCount=FileCount+1
        TotleSize=TotleSize+theFile.Size
    end if
Next
%>                /tr>
      /table>
      %
end sub
%>
    /td>
  /tr>
/table>
%
sub showpage2(sfilename,totalnumber,maxperpage)
    dim n, i,strTemp
    if totalnumber mod maxperpage=0 then
        n= totalnumber \&;maxperpage
      else
        n= totalnumber \&;maxperpage+1
      end if
      strTemp= "table align='center'>form name='showpages' method='Post' action='"  sfilename  "'>tr>td>"
    strTemp=strTemp  "共 b>"  totalnumber  "/b> 個文件nbsp;nbsp;"
      if CurrentPage2 then
            strTemp=strTemp  "首頁 上一頁nbsp;"
      else
            strTemp=strTemp  "a href='"  sfilename  "page=1'>首頁/a>nbsp;"
            strTemp=strTemp  "a href='"  sfilename  "page="  (CurrentPage-1)  "'>上一頁/a>nbsp;"
      end if

      if n-currentpage1 then
            strTemp=strTemp  "下一頁 尾頁"
      else
            strTemp=strTemp  "a href='"  sfilename  "page="  (CurrentPage+1)  "'>下一頁/a>nbsp;"
            strTemp=strTemp  "a href='"  sfilename  "page="  n  "'>尾頁/a>"
      end if
       strTemp=strTemp  "nbsp;頁次:strong>font color=red>"  CurrentPage  "/font>/"  n  "/strong>頁 "
    strTemp=strTemp  "nbsp;b>"  maxperpage  "/b>"  "個文件/頁"
    strTemp=strTemp  "nbsp;轉(zhuǎn)到:select name='page' size='1' onchange='javascript:submit()'>"   
    for i = 1 to n   
           strTemp=strTemp  "option value='"  i  "'"
        if cint(CurrentPage)=cint(i) then strTemp=strTemp  " selected "
        strTemp=strTemp  ">第"  i  "頁/option>"   
    next
    strTemp=strTemp  "/select>"
    strTemp=strTemp  "/td>/tr>/form>/table>"
    strTemp=strTemp  "font color='#0083AE'> "
    strTemp=strTemp  "Copyright 2004 CnEcg.com All Rights Reserved 版權(quán)所有 +++__Wrance的圖片系統(tǒng)目錄直讀版_  1.0br>"
    strTemp=strTemp  "設(shè)計制作:Wrance Email:cnecg@yahoo.com.cn QQ:74028/font>"
    response.write strTemp
end sub
%>

標(biāo)簽:孝感 遼陽 朝陽 四平 平頂山 馬鞍山 防城港 湖北

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《Wrance的圖片系統(tǒng)目錄直讀版1.0》,本文關(guān)鍵詞  Wrance,的,圖片,系統(tǒng),目錄,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《Wrance的圖片系統(tǒng)目錄直讀版1.0》相關(guān)的同類信息!
  • 本頁收集關(guān)于Wrance的圖片系統(tǒng)目錄直讀版1.0的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章