Wrance的圖片系統目錄直讀版1.0
2024-05-04 11:02:23
供稿：網友
復制代碼 代碼如下:
<%@language=vbscript codepage=936 %>
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++Wrance的圖片系統目錄直讀版1.0+++++++++++++++++++++++
'++++++演示：http://www.cnecg.com/pic.asp++++++++++++++++++
'++++++此為免費程序，您可以任意修改，歡迎發表建議++++++++++
'++++++Email:cnecg@yahoo.com.cn,QQ:74028+++++++++++++++++++
'以下為修改內容
Const UploadDir="/ecg/upload/news/" '存放文件的目錄
Const MaxPerPage=30 '每頁顯示數量
const title="+++＿＿Wrance的圖片系統目錄直讀版＿ " '標題
'檢查組件是否已經安裝
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>你的服務器不支持 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;
