Wrance的圖片系統目錄直讀版1.0

2024-05-04 10:58:43

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

<%@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 "你的服務器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能"
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;
}

上一篇：ASP項目中的公共翻頁模塊

下一篇：ASP類的寫法

發表評論

共有條評論