📄 admin_uploadfile_main.asp
字号:
End If
Dim c
Dim theFileName, tUsed, FileNum
FileNum = 0
TotalSize_Page = 0
PageUnit = 1
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td colspan='2'><table width='100%' border='0' align='center' cellpadding='0' cellspacing='3' class='border'>"
Response.Write " <tr class='tdbg'>" & vbCrLf
For i = 0 To FileCount
c = c + 1
If FileNum >= MaxPerPage Then
Exit For
ElseIf c > MaxPerPage * (CurrentPage - 1) Then
Response.Write " <td>"
Response.Write " <table width='100%' height='100%' border='0' cellpadding='0' cellspacing='2'>"
Response.Write " <tr>"
Response.Write " <td colspan='2' align='center'>"
theFileName = strPath & "/" & theFiles(i)(0)
Response.Write "<a href='" & theFileName & "'>"
'StrFileType = LCase(Mid(theFile.Name, InStrRev(theFile.Name, ".") + 1))
'Select Case StrFileType
Select Case LCase(theFiles(i)(1))
Case "gif", "jpg", "jpeg", "jpe", "bmp", "png"
Response.Write "<img src='" & theFileName & "'"
Case "swf"
Response.Write "<img src='images/filetype_flash.gif'"
Case "wmv", "avi", "asf", "mpg"
Response.Write "<img src='images/filetype_media.gif'"
Case "rm", "ra", "ram"
Response.Write "<img src='images/filetype_rm.gif'"
Case "rar", "zip", "exe"
Response.Write "<img src='images/filetype_" & theFiles(i)(1) & ".gif'"
Case Else
Response.Write "<img src='images/filetype_other.gif'"
End Select
Response.Write " width='130' height='90'"
If InStr(strFiles, LCase(theFiles(i)(0))) > 0 Then
tUsed = True
Else
tUsed = False
End If
If tUsed = True Then
Response.Write " border='0' Title='文 件 名：" & theFiles(i)(0) & vbCrLf & "文件大小：" & Round(theFiles(i)(2) / 1024) & " KB" & vbCrLf & "文件类型：" & theFiles(i)(3) & vbCrLf & "修改时间：" & theFiles(i)(5) & "'>"
Else
Response.Write " border='2' Title='无用的上传文件" & vbCrLf & "文 件 名：" & theFiles(i)(0) & vbCrLf & "文件大小：" & Round(theFiles(i)(2) / 1024) & " KB" & vbCrLf & "文件类型：" & theFiles(i)(3) & vbCrLf & "修改时间：" & theFiles(i)(5) & "'>"
End If
Response.Write "</a>"
Response.Write " </td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>"
'Response.Write " <td align='right'>文件名：</td>"
Response.Write " <td align='center'>"
If tUsed = True Then
Response.Write "<a href='" & theFileName & "' target='_blank'>" & CutStr(theFiles(i)(0)) & "</a>"
Else
Response.Write "<a href='" & theFileName & "' target='_blank' title='无用的上传文件'><font color=red>" & CutStr(theFiles(i)(0)) & "</font></a>"
End If
Response.Write " </td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>"
'Response.Write " <td align='right'>操作：</td>"
Response.Write " <td align='center'><input name='FileName' type='checkbox' id='FileName' value='" & theFiles(i)(0) & "' onclick='unselectall()'"
If tUsed = False Then Response.Write " checked"
Response.Write "> 选中 <a href='" & strFileName & "&Action=Del&FileName=" & theFiles(i)(0) & "' onclick=""return confirm('你真的要删除此文件吗!');"">删除</a></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " </table>"
Response.Write " </td>" & vbCrLf
FileNum = FileNum + 1
If FileNum Mod 4 = 0 Then Response.Write "</td><tr class='tdbg'>"
If PageUnit = 1 Then
TotalSize_Page = TotalSize_Page + theFiles(i)(2) / 1024
ElseIf PageUnit = 2 Then
TotalSize_Page = TotalSize_Page + theFiles(i)(2) / 1024 / 1024
ElseIf PageUnit = 3 Then
TotalSize_Page = TotalSize_Page + theFiles(i)(2) / 1024 / 1024 / 1024
End If
If TotalSize_Page > 1024 Then
TotalSize_Page = TotalSize_Page / 1024
PageUnit = PageUnit + 1
End If
If PageUnit = 1 Then
strPageUnit = "KB"
ElseIf PageUnit = 2 Then
strPageUnit = "MB"
ElseIf PageUnit = 3 Then
strPageUnit = "GB"
End If
End If
Next
TotalSize_Page = Round(TotalSize_Page, 2)
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td width='200' height='30'><input name='chkAll' type='checkbox' id='chkAll' onclick='CheckAll(this.form);' value='checkbox'> 选中本页所有文件</td><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
Response.Write " <td><input name='Action' type='hidden' id='Action' value=''><input name='UploadDir' type='hidden' value='" & UploadDir & "'><input name='CurrentDir' type='hidden' value='" & CurrentDir & "'>"
Response.Write " <input type='submit' name='Submit' value='删除选中的文件' onclick=""document.myform.Action.value='Del';return confirm('确定要删除选中的文件吗？');""> <input type='submit' name='Submit2' value='删除当前目录的所有文件' onClick=""document.myform.Action.value='DelCurrentDir';return confirm('确定要删除当前目录下的所有文件吗？')"">"
If ParentDir = "" And CurrentDir = "" Then
Response.Write " <input type='submit' name='Submit2' value='删除所有文件和子目录' onClick=""document.myform.Action.value='DelAll';return confirm('确定要删除所有文件和子目录吗？')"">"
End If
If IsObjInstalled("Persits.Jpeg") = True Then
Response.Write " <br><input type='submit' name='Submit3' onClick=""document.myform.Action.value='DoAddWatermark'"" value='给选中的图片添加水印' > <input type='submit' name='Submit4' onClick=""document.myform.Action.value='DoAddWatermark_CurrentDir'"" value='给当前目录添加图片水印' >"
End If
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>" & vbCrLf
Response.Write "<input type='hidden' name='priorsort' value='" & priorSort & "'>" & vbCrLf
Response.Write "<input type='hidden' name='sortby' value='-1'>" & vbCrLf
Response.Write "</td></form></tr></table>" & vbCrLf
Response.Write showpage2(strFileName, totalPut, MaxPerPage)
Response.Write "<br><div align='center'>本页共显示 <b>" & FileNum & "</b> 个文件，占用 <b>" & TotalSize_Page & "</b> " & strPageUnit & "</div>"
End If
End Sub
Sub ShowFileDetail()
If SearchKeyword <> "" Then
Response.Write "<br>>> 当前目录文件名中含有的 <font color='red'>" & SearchKeyword & "</font> 文件"
Else
Response.Write "<br>"
End If
Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0' ><tr><td>当前目录：" & RootDir
If ParentDir <> "" Then
Response.Write "/" & ParentDir
End If
If CurrentDir <> "" Then
Response.Write "/" & CurrentDir & "</td><td align='right'>"
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%' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height='18' class='title0' onmouseout=""this.className='title0'"" onmouseover=""this.className='tdbgmouseover1'""> <a href=""javascript:reSort(0);"">文件名 <img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort0'></a></td>" & vbCrLf
'Response.Write " <a href=""javascript:reSort(1);"">扩展名</a>" & vbCrLf
Response.Write " <td width='80' align=""right"" class='title0' onmouseout=""this.className='title0'"" onmouseover=""this.className='tdbgmouseover1'""><a href=""javascript:reSort(2);"">大小 <img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort2'></a> </td>" & vbCrLf
Response.Write " <td width='180' class='title0' onmouseout=""this.className='title0'"" onmouseover=""this.className='tdbgmouseover1'""> <a href=""javascript:reSort(3);"">类型 <img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort3'></a></td>" & vbCrLf
'Response.Write " <a href=""javascript:reSort(4);"">建立时间</a>" & vbCrLf
Response.Write " <td width='140' class='title0' onmouseout=""this.className='title0'"" onmouseover=""this.className='tdbgmouseover1'""><a href=""javascript:reSort(5);"">上次修改时间 <img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort5'></a></td>" & vbCrLf
Response.Write " <td width='30' align='center' class='title0'>操作 </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
If sortBy <> 0 Then
Call ShowFileDetail_Fil
If SearchKeyword = "" Then
Response.Write "<tr><td height=1></td></tr>" & vbCrLf
Call ShowFileDetail_fol
End If
Else
If SearchKeyword = "" Then
Call ShowFileDetail_fol
Response.Write "<tr><td height=1></td></tr>" & vbCrLf
End If
Call ShowFileDetail_Fil
End If
Response.Write " </table>" & vbCrLf
Response.Write "<input type='hidden' name='priorsort' value='" & priorSort & "'>" & vbCrLf
Response.Write "<input type='hidden' name='sortby' value='-1'>" & vbCrLf
If currentSlot > -1 Then
Call ShowJS_Tooltip
Response.Write "<br><table width='100%' border='0' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td width='200' height='30'><input name='chkAll' type='checkbox' id='chkAll' onclick='CheckAll(this.form);' value='checkbox'> 选中本页所有文件</td><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
Response.Write " <td><input name='Action' type='hidden' id='Action' value=''><input name='UploadDir' type='hidden' value='" & UploadDir & "'><input name='CurrentDir' type='hidden' value='" & CurrentDir & "'>"
Response.Write " <input type='submit' name='Submit' value='删除选中的文件' onclick=""document.myform.Action.value='Del';return confirm('确定要删除选中的文件吗？');""> <input type='submit' name='Submit2' value='删除当前目录的所有文件' onClick=""document.myform.Action.value='DelCurrentDir';return confirm('确定要删除当前目录下的所有文件吗？')"">"
If ParentDir = "" And CurrentDir = "" Then
Response.Write " <input type='submit' name='Submit2' value='删除所有文件和子目录' onClick=""document.myform.Action.value='DelAll';return confirm('确定要删除所有文件和子目录吗？')"">"
End If
If IsObjInstalled("Persits.Jpeg") = True Then
Response.Write " <br><input type='submit' name='Submit3' onClick=""document.myform.Action.value='DoAddWatermark'"" value='给选中的图片添加水印' > <input type='submit' name='Submit4' onClick=""document.myform.Action.value='DoAddWatermark_CurrentDir'"" value='给当前目录添加图片水印' >"
End If
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>" & vbCrLf
End If
Response.Write " </form>" & vbCrLf
End Sub
Function GetUploadFileStyle()
ShowFileStyle = Request.Cookies("ShowFileStyle")
If ShowFileStyle = "" Or Not IsNumeric(ShowFileStyle) Then
ShowFileStyle = 1
Else
ShowFileStyle = Int(ShowFileStyle)
End If
GetUploadFileStyle = ShowFileStyle
End Function
Sub ShowFileDetail_Fil()
If currentSlot > -1 Then
For i = 0 To FileCount
Response.Write "<tr onmouseout=""this.className='tdbgmouseout1'"" onmouseover=""this.className='tdbg1'"">" & vbCrLf
If InStr(strFiles, LCase(theFiles(i)(0))) > 0 Then
'Response.Write " Title='文 件 名：" & theFiles(i)(0) & vbCrLf & "文件大小：" & Round(theFiles(i)(2) / 1024) & " K" & vbCrLf & "文件类型：" & theFiles(i)(3) & vbCrLf & "修改时间：" & theFiles(i)(5) & "'>"
Response.Write " <td align='left'><input name='FileName' type='checkbox' id='FileName' value='" & theFiles(i)(0) & "' onclick='unselectall()'"
Response.Write ">"
Else
'Response.Write " Title='无用的上传文件" & vbCrLf & "文 件 名：" & theFiles(i)(0) & vbCrLf & "文件大小：" & Round(theFiles(i)(2) / 1024) & " K" & vbCrLf & "文件类型：" & theFiles(i)(3) & vbCrLf & "修改时间：" & theFiles(i)(5) & "'>"
Response.Write " <td align='left'><input name='FileName' type='checkbox' id='FileName' value='" & theFiles(i)(0) & "' onclick='unselectall()'"
Response.Write " checked"
Response.Write ">"
End If
Select Case LCase(theFiles(i)(1))
Case "jpeg", "jpe", "bmp", "png"
Response.Write "<img src='images/Folder/img.gif'>"
Case "swf"
Response.Write "<img src='images/Folder/Ftype_flash.gif'>"
Case "dll", "vbp"
Response.Write "<img src='images/Folder/sys.gif'>"
Case "wmv", "avi", "asf", "mpg"
Response.Write "<img src='images/Folder/Ftype_media.gif'>"
Case "rm", "ra", "ram"
Response.Write "<img src='images/Folder/Ftype_rm.gif'>"
Case "rar", "zip"
Response.Write "<img src='images/Folder/zip.gif'>"
Case "xml", "txt", "exe", "doc", "html", "htm", "jpg", "gif", "xls", "asp"
Response.Write "<img src='images/Folder/" & theFiles(i)(1) & ".gif'>"
Case Else
Response.Write "<img src='images/Folder/other.gif'>"
End Select
Response.Write "<a href='" & strPath & "/" & theFiles(i)(0) & "'><span onmouseover=""ShowADPreview('" & FixJs(GetFileContent(strPath & "/" & theFiles(i)(0), theFiles(i)(1))) & "')"" onmouseout=""hideTooltip('dHTMLADPreview')"">" & vbCrLf
Response.Write theFiles(i)(0) & "</span></a></td>" & vbCrLf
Response.Write " <td width='80' align='right'>" & FormatNumber(theFiles(i)(2) / 1024, 0, vbTrue, vbFalse, vbTrue) & " KB</td>" & vbCrLf
Response.Write " <td width='180'> " & CutStr(theFiles(i)(3)) & "</td>" & vbCrLf
Response.Write " <td width='140'>" & theFiles(i)(5) & "</td>" & vbCrLf
Response.Write "<td width='30' align='center'><a href='" & strFileName & "&ParentDir=" & ParentDir & "&CurrentDir=" & CurrentDir & "&Action=Del&FileName=" & theFiles(i)(0) & "' onclick=""return confirm('你真的要删除此文件吗!');"">删除</a> "
Response.Write "</td></tr>" & vbCrLf
Next
End If
End Sub
Function GetFileContent(ByVal sPath, sType)
If IsNull(sPath) Or sPath = "" Then
GetFileContent = " 此文件非图片或动画，无预览 "
Exit Function
End If
If IsNull(sType) Or sType = "" Then
GetFileContent = " 此文件非图片或动画，无预览 "
Exit Function
End If
If Not fso.FileExists(Server.MapPath(sPath)) Then
GetFileContent = " 此文件不存在 "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -