国产午夜精品一区二区三区不-国产午夜精品一区二区三区不卡-国产午夜精品一区二区三区极品-国产午夜精品一区二区三区老-国产午夜精品一区二区三区漫-国产午夜精品一区二区三区嫩草

聊城網(wǎng)站制作公司,聊城網(wǎng)站建設(shè),聊城網(wǎng)站優(yōu)化,聊城網(wǎng)絡(luò)公司,聊城網(wǎng)站推廣,聊城網(wǎng)站運營,聊城網(wǎng)絡(luò)運營,聊城搜索引擎優(yōu)化,聊城網(wǎng)頁設(shè)計,聊城網(wǎng)站制作
 
 
公司擁有五年的網(wǎng)站建設(shè)經(jīng)驗,專業(yè)網(wǎng)站制作,推廣及網(wǎng)站優(yōu)化,有大量優(yōu)秀客戶案例
網(wǎng)站建設(shè) | 設(shè)為首頁 | 加入收藏 | 聯(lián)系我們  
公告:熱烈慶祝聊城精英網(wǎng)絡(luò)2010版官方網(wǎng)站改版成功!
當前位置 :首頁 > 網(wǎng)頁知識  

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

http://m.zjgjyh.cn   2010-12-23   人氣:

復制代碼 代碼如下:

<%@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)目錄直讀版_ " '標題

'檢查組件是否已經(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 currentpage<1 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)*MaxPerPage<totalPut 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> 個文件 "
if CurrentPage<2 then
strTemp=strTemp & "首頁 上一頁 "
else
strTemp=strTemp & "<a href='" & sfilename & "page=1'>首頁</a> "
strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage-1) & "'>上一頁</a> "
end if
if n-currentpage<1 then
strTemp=strTemp & "下一頁 尾頁"
else
strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage+1) & "'>下一頁</a> "
strTemp=strTemp & "<a href='" & sfilename & "page=" & n & "'>尾頁</a>"
end if
strTemp=strTemp & " 頁次:<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>頁 "
strTemp=strTemp & " <b>" & maxperpage & "</b>" & "個文件/頁"
strTemp=strTemp & " 轉(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.0<br>"
strTemp=strTemp & "設(shè)計制作:Wrance Email:cnecg@yahoo.com.cn QQ:74028</font>"
response.write strTemp
end sub
%>

專業(yè)設(shè)計團隊
滿足您的各種設(shè)計要求
實力程序開發(fā)團隊
為您定制各種程序模塊
后臺管理高效安全
方便更新上傳網(wǎng)站資料
全球高速訪問
無盲區(qū)、定制異地備份
專業(yè)客服團隊
解決一切使用難題
贈送大容量空間郵箱
免費優(yōu)化推廣
   
關(guān)于我們 | 工作機會 | 付款方式 | 網(wǎng)站制作 | 網(wǎng)頁制作 | 網(wǎng)頁設(shè)計 | 網(wǎng)絡(luò)公司 | 聯(lián)系我們 | 網(wǎng)站地圖
版權(quán)所有:聊城精英網(wǎng)絡(luò)科技有限公司 © 2005-2010 All Rights Reserved.
咨詢專線:0635-6950368 技術(shù)專線:15192175820 在線QQ:312817927 1485871644
地址:聊城市閘口科技市場 郵編:252000 蘇ICP備10112026號
主站蜘蛛池模板: 国产在线无码视频一区二区三区 | 制服丝袜中文字幕av | 国产福利一区二区三区在线观 | 免费看成人国产一区二区三区 | 亚洲嫩草影院 | 精品久久极品人妻蜜臀色欲av | 欧美成年黄网站色高清视 | 精品视频一区二区三区中 | 精品欧美一区二区精品久久 | 亚洲欧美另类久久久精品能播放的 | 在线国产播放 | 亚洲中文无码线在线观看 | 无码精品va在线观看蜜桃 | 最新国产视热频国精品 | 国产三级黄片一区二区三区 | 国产女人的高潮大叫毛片 | 真实国产乱子伦对白视频37P | 亚洲欧美一区二区三区在线播放 | 日韩精品人妻中文字幕有码 | 精品一区二区三区高清免费观看 | 无码aⅴ精品一区二区三区浪广 | 国产免费播放一区二区 | 亚洲区区图片区qvod伊 | 无码av人妻一| 俺也去在线观看视频 | 综合偷自拍亚洲乱中文字幕 | 亚洲无线码一区二区三区 | 亚洲熟女少妇一区二区 | 日本高清色倩视频在线观看 | 国产69精品久久久久观看软件 | 成年女性特黄午夜视频免费看 | 亚洲一区国产精品另类专区 | 国产白丝精品爽爽久久久久久蜜臀 | 毛片免费全部免费观看 | 国产精品欧美韩国日本久久 | 老熟妇乱子伦牲交视频 | 亚洲国产av无码精品无广告 | 成在人线av无码免费 | 制服丝袜长腿无码专区第一页 | 成熟妇女A片高潮免费看 | 国产人妻XXXX精品HD |