📄 admin_uploadfile_main.asp
字号:
Response.Write "<a href='Admin_UploadFile_Style.asp?ShowFileStyle=2'>切换到缩略图方式 </a>" & vbCrLf
Else
Response.Write "<a href='Admin_UploadFile_Style.asp?ShowFileStyle=1'>切换到详细信息方式</a>" & vbCrLf
End If
Response.Write " </td></tr></table>"
Response.Write " </td>"
Response.Write "<td height='30'>"
Response.Write " <table width='100%' border='0' align='center' cellpadding='1' cellspacing='1'><tr><td height='22' align='right'>"
Response.Write " 搜索当前目录文件：</td><td height='22'><input type='text' name='SearchKeyword' id='SearchKeyword' size='18' value=''> </td><td height='22'><input type='submit' name='submit1' value=' 搜索 '>"
Response.Write " </td></tr></table></td>"
Response.Write " </tr>"
Response.Write "</table>" & vbCrLf
If ObjInstalled_FSO = False Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>"
Response.End
End If
Select Case Action
Case "Del"
Call DelFiles
Case "DelThisFolder"
Call DelThisFolder
Case "DelCurrentDir"
Call DelCurrentDir
Case "DelAll"
Call DelAll
Case "DoAddWatermark"
Call DoAddWatermark
Case "DoAddWatermark_CurrentDir"
Call DoAddWatermark_CurrentDir
Case Else
Call main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
If currentSlot > -1 And FoundErr = False Then
Response.Write "<Script Language=""JavaScript"">" & vbCrLf
Response.Write "setTimeout('Change()',1000);"
Response.Write "function Change(){"
Response.Write "var Sort=document.getElementById(""Sort" & sortBy & """);" & vbCrLf
If reverse Then
Response.Write " Sort.src=""Images/Calendar_Down.gif"";" & vbCrLf
Else
Response.Write " Sort.src=""Images/Calendar_Up.gif"";" & vbCrLf
End If
Response.Write " Sort.style.display=""""; " & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</Script>" & vbCrLf
End If
Response.Write "</body></html>"
Call CloseConn
Sub main()
Dim Add2Array
If fso.FolderExists(TruePath) = False Then
FoundErr = True
ErrMsg = ErrMsg & "<li>找不到文件夹！请上传文件后再进行管理！</li>"
Exit Sub
End If
Response.Write "<Script Language=""JavaScript"">" & vbCrLf
Response.Write "function reSort(which)" & vbCrLf
Response.Write "{" & vbCrLf
If SearchKeyword <> "" Then
Response.Write "document.myform.SearchKeyword.value = '" & SearchKeyword & "';" & vbCrLf
End If
Response.Write "document.myform.sortby.value = which;" & vbCrLf
Response.Write "document.myform.submit();" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</Script>" & vbCrLf
'Dim FolderCount
req = Trim(Request("sortBy"))
If Len(req) < 1 Or req = "-1" Then
sortBy = 0
Else
sortBy = CInt(req)
End If
req = Request("priorSort")
If Len(req) < 1 Or req = "-1" Then
priorSort = -1
Else
priorSort = CInt(req)
End If
'设置倒序
If sortBy = priorSort Then
reverse = True
priorSort = -1
Else
reverse = False
priorSort = sortBy
End If
Set theFolder = fso.GetFolder(TruePath)
Set curFiles = theFolder.Files
ReDim theFiles(500)
currentSlot = -1
For Each fileItem In curFiles
Add2Array = False
fname = fileItem.name
If SearchKeyword <> "" Then
If InStr(LCase(fname), LCase(SearchKeyword)) > 0 Then
Add2Array = True
End If
Else
Add2Array = True
End If
If Add2Array = True Then
fext = InStrRev(fname, ".")
If fext < 1 Then fext = "" Else fext = Mid(fname, fext + 1)
ftype = fileItem.Type
fsize = fileItem.size
fcreate = fileItem.DateCreated
fmod = fileItem.DateLastModified
faccess = fileItem.DateLastAccessed
currentSlot = currentSlot + 1
If currentSlot > UBound(theFiles) Then
ReDim Preserve theFiles(currentSlot + 99)
End If
theFiles(currentSlot) = Array(fname, fext, fsize, ftype, fcreate, fmod, faccess)
End If
Next
If currentSlot > -1 Then
FileCount = currentSlot ' 文件数量
ReDim Preserve theFiles(currentSlot)
If VarType(theFiles(0)(sortBy)) = 8 Then
If reverse Then kind = 1 Else kind = 2
Else
If reverse Then kind = 3 Else kind = 4
End If
For i = FileCount To 0 Step -1
minmax = theFiles(0)(sortBy)
minmaxSlot = 0
For j = 1 To i
Select Case kind
Case 1
mark = (StrComp(theFiles(j)(sortBy), minmax, vbTextCompare) < 0)
Case 2
mark = (StrComp(theFiles(j)(sortBy), minmax, vbTextCompare) > 0)
Case 3
mark = (theFiles(j)(sortBy) < minmax)
Case 4
mark = (theFiles(j)(sortBy) > minmax)
End Select
If mark Then
minmax = theFiles(j)(sortBy)
minmaxSlot = j
End If
Next
If minmaxSlot <> i Then
temp = theFiles(minmaxSlot)
theFiles(minmaxSlot) = theFiles(i)
theFiles(i) = temp
End If
Next
Else
FileCount = 0
End If
If ShowFileStyle = 1 Then
Call ShowFileDetail
Else
Call ShowFileThumb
End If
End Sub
Sub ShowFileThumb()
If SearchKeyword = "" Then
Response.Write "<br><table width='100%' cellpadding='2' cellspacing='1'><tr height='22'><td align='left'>当前目录：" & RootDir
If ParentDir <> "" Then
Response.Write "/" & ParentDir
End If
If CurrentDir <> "" Then
Response.Write "/" & CurrentDir
End If
Response.Write "</td>" & vbCrLf
Response.Write " <td align='right'>" & vbCrLf
If CurrentDir <> "" Then
If ParentDir <> "" Then
If InStrRev(ParentDir, "/") > 0 Then
Response.Write "<a href='" & strFileName & "&ParentDir=" & Left(ParentDir, InStrRev(ParentDir, "/") - 1)
Response.Write "&CurrentDir=" & Mid(ParentDir, InStrRev(ParentDir, "/") + 1)
Else
Response.Write "<a href='" & strFileName & "&ParentDir=&CurrentDir=" & ParentDir
End If
Else
Response.Write "<a href='" & strFileName
End If
Response.Write "'>↑返回上级目录</a>"
End If
Response.Write "</td></tr></table>" & vbCrLf
Response.Write "<table width='100%' cellpadding='2' cellspacing='1' class='border'><tr class='title' height='22'><td colspan='20'><b>子目录导航</b>" & vbCrLf
Response.Write "</td></tr><tr class='tdbg'>"
Dim FolderCount
Set theFolder = fso.GetFolder(TruePath)
For Each theSubFolder In theFolder.SubFolders
If ParentDir <> "" Then
Response.Write "<td><a href='" & strFileName & "&ParentDir=" & ParentDir & "/" & CurrentDir & "&CurrentDir=" & theSubFolder.name & "'>" & theSubFolder.name & "</a></td>"
Else
Response.Write "<td><a href='" & strFileName & "&ParentDir=" & CurrentDir & "&CurrentDir=" & theSubFolder.name & "'>" & theSubFolder.name & "</a></td>"
End If
FolderCount = FolderCount + 1
If FolderCount Mod 10 = 0 Then Response.Write "</td><tr class='tdbg'>"
Next
Response.Write "</tr></table><br>" & vbCrLf
Else
Response.Write "<br>>> 当前目录文件名中含有的 <font color='red'>" & SearchKeyword & "</font> 文件"
End If
Response.Write " <table width='100%' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
If currentSlot > -1 Then
Response.Write " <td height='18'>排序方式： <a href=""javascript:reSort(0);"">文件名 <img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort0'></a>" & vbCrLf
'Response.Write " <a href=""javascript:reSort(1);"">扩展名</a>" & vbCrLf
Response.Write " <a href=""javascript:reSort(2);"">大小 <img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort2'></a>" & vbCrLf
Response.Write " <a href=""javascript:reSort(3);"">类型 <img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort3'></a>" & vbCrLf
'Response.Write " <a href=""javascript:reSort(4);"">建立时间</a>" & vbCrLf
Response.Write " <a href=""javascript:reSort(5);"">上次修改时间 <img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort5'></a></td>" & vbCrLf
Else
Response.Write " <td height='18'></td>" & vbCrLf
End If
Response.Write " <td align='right'>" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
If currentSlot = -1 Then
Response.Write "<tr class='tdbg'><td align='center' colspan='2'><br><br>当前目录下没有任何文件！<br><br></td>"
Response.Write " </tr>"
Response.Write "</table>" & vbCrLf
Else
strFileName = strFileName & "&ParentDir=" & ParentDir & "&CurrentDir=" & CurrentDir
TotalSize = 0
TotalUnit = 1
For Each theFile In theFolder.Files
If TotalUnit = 1 Then
TotalSize = TotalSize + theFile.size / 1024
ElseIf TotalUnit = 2 Then
TotalSize = TotalSize + theFile.size / 1024 / 1024
ElseIf TotalUnit = 3 Then
TotalSize = TotalSize + theFile.size / 1024 / 1024 / 1024
End If
If TotalSize > 1024 Then
TotalSize = TotalSize / 1024
TotalUnit = TotalUnit + 1
End If
If TotalUnit = 1 Then
strTotalUnit = "KB"
ElseIf TotalUnit = 2 Then
strTotalUnit = "MB"
ElseIf TotalUnit = 3 Then
strTotalUnit = "GB"
End If
Next
TotalSize = Round(TotalSize, 2)
totalPut = FileCount + 1
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
If (CurrentPage - 1) * MaxPerPage >= totalPut Then
CurrentPage = 1
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -