admin_upfile.asp

电子商城代码

<!--#include file="Conn.asp"-->
<%
admintop()
Dim admin_flag
admin_flag=",44,"
if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
adminflag()	
else
Const MaxPerPage=20
dim strFileName
dim totalPut, CurrentPage, TotalPages
dim UploadDir, TruePath, fso, theFolder, theFile, whichfile, thisfile, FileCount, TotleSize
strFileName="Admin_upfile.asp?SaveUpFilesPath="&SaveUpFilesPath
If request("SaveUpFilesPath")="" Then
        SaveUpFilesPath="pic"
Else
        SaveUpFilesPath=request("SaveUpFilesPath")
End if
if request("page")<>"" then
        currentPage=cint(request("page"))
else
        currentPage=1
end if
if right(SaveUpFilesPath, 1)<>"/" then
        UploadDir="../" & SaveUpFilesPath & "/"
else
        UploadDir="../" & SaveUpFilesPath
end if
TruePath=Server.MapPath(UploadDir)
If not IsObjInstalled("Scripting.FileSystemObject")Then
Response.Write "<b><font color=red>浣犵殑鏈嶅姟鍣ㄤ笉鏀