The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
ok here goes....
1.) how hard is it to make the file library mod "unlimited amount" amount in the uploads? I wanna have it have unlimited size when I am trying to upload a file higher then a Kilobyte. Space ain't a problem for the moment (4TB). I have been racking my brain on this one. I tried all 9's, 0's and even nothing for size in ACP and notta any three would work. Any help on this one?
2.) Second one is actually an add-on. (here's the steps)
A.) go into your file library. B.) Click on a title that has something in it. C.) Right there next to the animated download image. How hard is it to code an image right there showing you a little bit about that file? Basically an image file that could be like 64x64 or even 100x100 or something like that? I have images in mine and would like a "thumb" showing up next to (to the left) of the title of the link to download.
Thanks,
shaggy073077
1.) how hard is it to make the file library mod "unlimited amount" amount in the uploads? I wanna have it have unlimited size when I am trying to upload a file higher then a Kilobyte. Space ain't a problem for the moment (4TB). I have been racking my brain on this one. I tried all 9's, 0's and even nothing for size in ACP and notta any three would work. Any help on this one?
2.) Second one is actually an add-on. (here's the steps)
A.) go into your file library. B.) Click on a title that has something in it. C.) Right there next to the animated download image. How hard is it to code an image right there showing you a little bit about that file? Basically an image file that could be like 64x64 or even 100x100 or something like that? I have images in mine and would like a "thumb" showing up next to (to the left) of the title of the link to download.
Thanks,
shaggy073077
نوشته شده در
The size of uploads has been covered in many topics here. Look at the last reply to this topic.
As for adding a thumbnail, that's fairly simple, but it sounds like your "file_lister_view.asp" file has been modified. Post a link to it in .txt format and I'll fix it for you.
As for adding a thumbnail, that's fairly simple, but it sounds like your "file_lister_view.asp" file has been modified. Post a link to it in .txt format and I'll fix it for you.
نوشته شده در
Code:
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#include file="inc_file_lister_functions.asp"-->
<%
on error resume next
Response.Write " <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
" function ChangePage(fnum){" & vbNewLine & _
" if (fnum == 1) {" & vbNewLine & _
" document.PageNum1.submit();" & vbNewLine & _
" }" & vbNewLine & _
" else {" & vbNewLine & _
" document.PageNum2.submit();" & vbNewLine & _
" }" & vbNewLine & _
" }" & vbNewLine & _
" </script>" & vbNewLine
'end javascript block
Set objFileSysObj = CreateObject("Scripting.FileSystemObject")
cname = request.QueryString("cname")
tMID = trim(cint(request.QueryString("mid")))
cid = trim(cint(request.QueryString("cid")))
strSql = "select * from "& strTablePrefix & "FILELISTER_CONFIG"
strConf = My_Conn.execute(strSql)
file_size = trim(strConf("file_size"))
bdir = trim(strConf("base_dir"))
single_filelister = cint(strConf("single_filelister"))
file_type = trim(strConf("file_type"))
doc = trim(left(file_type, 1))
txt = trim(right(left(file_type, 3),1))
pdf = trim(right(left(file_type, 5),1))
zip = trim(right(left(file_type, 7),1))
arj = trim(right(left(file_type, 9),1))
mode = trim(request.QueryString("mode"))
strMode = 0
if mode <> "" then
if mode = "search" then
strMode = 1
strFileName = trim(request.QueryString("FileName"))
strDescription = trim(request.QueryString("Description"))
strFileSearch = trim(request.QueryString("File_Search"))
response.write "search mode"&"<BR>"
' response.write strFileName&"<BR>"
' response.write strDescription&"<BR>"
' response.write strFileSearch&"<BR>"
' response.write sqldtl&"<BR>"
end if
end if
if strMode = 1 then
sqldtl = "select * from "& strMemberTablePrefix & "FILELISTER where file_status = 1 "
if strDescription = "1" and strFileName = "1" then
sqldtl = sqldtl &"and (file_desc LIKE '%" &strFileSearch&"%' or file_name LIKE '%" &strFileSearch&"%')"
else
if strFileName = "1" then
sqldtl = sqldtl &"and file_name LIKE '%" &strFileSearch&"%'"
else
if strDescription = "1" then
sqldtl = sqldtl &"and file_desc LIKE '%" &strFileSearch&"%'"
end if
end if
end if
else
if single_album = 0 then
sqldtl = "select * from "& strMemberTablePrefix & "FILELISTER where Member_Id ="&trim(cint(tMID))&" and File_Cat = "&trim(cint(cid))
else
sqldtl = "select * from "& strMemberTablePrefix & "FILELISTER where File_Cat = "&trim(cint(cid))&" and File_status = 1 order by File_Name"
end if
end if
set rs = My_Conn.Execute(sqldtl)
if rs.EOF or rs.BOF then
Dim aData(0,0)
aData(0,0) = 0
else
aData = rs.GetRows
end if
rs.close: set rs=nothing
if single_album = 0 then
strSql = "select * from "& strMemberTablePrefix & "FILELISTER_USERS where Member_id ="&tMID
end if
cmd_rt = My_Conn.execute(strSql)
m_name = cmd_rt("M_Name")
m_name = trim(m_name)
if strMode = 1 then
response.write"<table border=""0"" width=""100%"">"& vbNewLine & _
" <tr>"& vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face="""&strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">All Forums</a><br>"& vbNewLine & _
" " & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""File_Lister.asp"">File Sections</a><BR>"& vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Search Results</a><BR>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
"</table>"& vbNewLine
else
if single_filelister = 0 then
response.write"<table border=""0"" width=""100%"">"& vbNewLine & _
" <tr>"& vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face="""&strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">All Forums</a><br>"& vbNewLine & _
" " & getCurrentIcon(strIconbar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""File_Lister.asp"">File Sections</a><BR>"& vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""file_lister_cat.asp?sqldtl="&tMID&""">"&_
m_name&"'s Categories</a><BR>"& vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") &" "&m_name&"'s "&cname&"<br>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
"</table>"& vbNewLine
else
response.write"<table border=""0"" width=""100%"">"& vbNewLine & _
" <tr>"& vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face="""&strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">All Forums</a><br>"& vbNewLine & _
" " & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""File_Lister.asp"">File Sections</a><BR>"& vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Categories</a><BR>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
"</table>"& vbNewLine
end if
end if
mypage = request("page")
if ((Trim(mypage) = "") or (IsNumeric(mypage) = False)) then mypage = 1
mypage = cLng(mypage)
'set the mypage for the drop down
if Request.QueryString("page") <> "" then
intPage = cint(Request.QueryString("page"))
else
intPage = 1
end if
'check to see what page we are on if not set default it to the first page
intRecordsPerPage = 6 ' Records per page
response.write "<BR>"
if intFirstRecord + (intRecordsPerPage - 1) >= ubound(aData,2) then
else
if ((ubound(aData,2)+1) / intRecordsPerPage) > cint((ubound(aData,2)+1) / intRecordsPerPage) then
'check for any hangover records
maxpages = cint(((ubound(aData,2)+1) / intRecordsPerPage))
maxpages = maxpages + 1
'make sure we have enough pages to cover all the records
else
maxpages = cint(((ubound(aData,2)+1) / intRecordsPerPage))
end if
'needed for the dropdown navigation. Only likes Whole numbers no fractions!
end if
if aData(0,0) = 0 then
if strMode = 1 then
response.write "<div align = center>No files matched your search!</div>"&vbNewline
else
response.write "<div align = center>There are currently No Files in this category!</div><br>"&vbNewline
end if
else
intFirstRecord = (intPage - 1) * intRecordsPerPage 'The first record to display
'block to build the forward and back navigation
ref = "<div align = ""right"">"
if intPage > 1 then ' We're not on the 1st page, show a previous link
ref = ref & "<font face="""& strDefaultFontFace &""" size="""& strFooterFontSize &"""><a href=file_lister_view.asp?"
if strMode = 1 then
ref = ref &"mode="&mode
ref = ref &"&FileName="&strFileName
ref = ref &"&File_Search="&server.URLEncode(strFileSearch)
ref = ref &"&Description="&strDescription
else
ref = ref &"cname="&Server.URLEncode(cname)
ref = ref &"&mid="&tMID
ref = ref &"&cid="&cid
end if
ref = ref &"&page="&intPage - 1
ref = ref &">"&getCurrentIcon(strIconGoLeft,"","align=""absmiddle""")&"Previous</a></font> "
end if
if intFirstRecord + (intRecordsPerPage - 1) >= ubound(aData,2) then 'We're on the last page
intLastRecord = ubound(aData,2)
else 'There's more pages - show a next link
intLastRecord = intFirstRecord + (intRecordsPerPage - 1)
ref = ref &" <font face="""& strDefaultFontFace &""" size="""& strFooterFontSize &"""><a href=file_lister_view.asp?"
if strMode = 1 then
ref = ref &"mode="&mode
ref = ref &"&FileName="&strFileName
ref = ref &"&File_Search="&server.URLEncode(strFileSearch)
ref = ref &"&Description="&strDescription
else
ref = ref &"cname="&Server.URLEncode(cname)
ref = ref &"&mid="&tMID
ref = ref &"&cid="&cid
end if
ref = ref &"&page="&intPage + 1
ref = ref &">"&getCurrentIcon(strIconGoRight,"","align=""absmiddle""")&"Next</a></font>"
ref = pref & ref
end if
ref = ref &"</div>"
'end block
if strMode = 1 then
response.write "<div align = center><H4> File Lister Search Results</h4></div>"&vbNewline
else
if single_album = 0 then
response.write"<div align = center><H4> "& m_name &"'s "& cname &" </h4></div>"&vbNewline
else
response.write "<div align = center><H4> "&STRFORUMTITLE&" Files </h4></div>"&vbNewline
end if
end if
if maxpages > 1 then
response.write "<table border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"" align=""center"">"&VbnewLine&_
" <tr>"&VbnewLine&_
" <td width=""50%"" valign=""bottom""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &""">"
if strMode = 1 then
Call DropDownPaging(1,strMode,mode,strFileName,strFileSearch,strDescription)
else
Call DropDownPaging(1,0,0,0,0,0)
end if
response.write "</font></b></td>"&VbnewLine&_
" <td width=""50%"" align=""right""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &""">"&vbNewLine&_
ref & vbNewLine &_
"</font></b><BR></td>"&VbnewLine&_
" </tr>"&VbnewLine&_
" </table>"&VbnewLine
'if there are more than 1 page build and show the drop down nav
end if
Response.Write "<table border=""0"" width=""98%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=center bgColor="""& strHeadCellColor &"""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &""">File</font></b></td>"&VbnewLine&_
" <td align=center bgColor="""& strHeadCellColor &"""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &""">Description</font></b></td>"&VbnewLine&_
" <td align=center bgColor="""& strHeadCellColor &"""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &""">File</font></b></td>"&VbnewLine&_
" <td align=center bgColor="""& strHeadCellColor &"""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &""">Description</font></b></td>"&VbnewLine&_
" </tr>"&VbnewLine
reccnt = intLastRecord + 1
if intPage > 1 then
intRecordsPerPage = intRecordsPerPage + intFirstRecord
end if
i = intFirstRecord
do while not(i = intRecordsPerPage)
cntr = 0
Response.Write"<TR>"&vbNewline
do while cntr < 2 and not(i = intRecordsPerPage)
pstat = cint(aData(4,i))
if single_album = 1 or strMode = 1 then
strSql = "select * from "& strMemberTablePrefix & "FILELISTER_users where Member_Id = "&trim(cint(aData(1,i)))
strName = My_Conn.execute(strSql)
m_name = strName("m_name")
m_name = trim(m_name)
end if
strBasePath = bdir&"\"&m_name&"\"&clr_spaces(aData(2,i))
strBasePath = strBasePath
ref = "<A HREF="&strBasePath&">"
if i => reccnt then
response.write" <td align = ""center"" bgColor="""& strForumCellColor &""" width=""20%""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &"""> </td>"&VbnewLine
else
intFileType = instrrev(aData(2,i),".")
intStrLen = len(trim(aData(2,i)))
strFileType = right(trim(aData(2,i)),(intStrLen-intFileType))
strFileType = UCASE(strFileType)
Response.Write" <td align = ""center"" bgcolor="""& strForumCellColor &""" width=""20%""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"&VbnewLine
select case strFileType
case "ZIP","ARJ"
Response.Write ref&getCurrentIcon(strIconZip,"","align=""absmiddle""")&"<br>"&unclr_spaces(trim(aData(2,i)))&vbNewline
case "DOC"
Response.Write ref&getCurrentIcon(strIconWord,"","align=""absmiddle""")&"<br>"&unclr_spaces(trim(aData(2,i)))&vbNewline
case "PDF"
Response.Write ref&getCurrentIcon(strIconAdobe,"","align=""absmiddle""")&"<br>"&unclr_spaces(trim(aData(2,i)))&vbNewline
case "TXT"
Response.Write ref&getCurrentIcon(strIconNotePad,"","align=""absmiddle""")&"<br>"&unclr_spaces(trim(aData(2,i)))&vbNewline
end select
Response.Write "</a></font></td>"&vbNewline
end if
if i => reccnt then
response.write" <td align = ""center"" bgColor="""& strForumCellColor &""" width=""20%""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &"""> </td>"&VbnewLine
else
Response.Write " <td bgcolor="""& strForumCellColor &""" width=""20%""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" width = ""20%"">"&VbnewLine
Response.Write aData(3,i)
Response.Write "</a></font></td>"&vbNewline
end if
cntr = cntr + 1
i = i + 1
loop
Response.Write "</TR>"&vbNewline
loop
response.write" </table>"&VbnewLine&_
" </td>"&VbnewLine&_
" </tr>"&VbnewLine&_
"</table>"&VbnewLine
'rap up the table
end if
response.write"<br>"&vbNewline
Call WriteFooter
sub DropDownPaging(fnum,strMode,mode,strFileName,strFileSearch,strDescription)
'********************************************
'* ripped from topic.asp and modified to work
'* for our little purpose
'********************************************
if maxpages > 1 then
if mypage = "" then
pge = 1
else
pge = mypage
end if
scriptname = request.servervariables("script_name")
Response.Write("<form name=""PageNum" & fnum & """ action=""file_lister_view.asp"">" & vbNewLine)
if strMode = 1 then
response.write" <INPUT TYPE=""hidden"" NAME=""mode"" VALUE="""&mode&""">"
response.write" <INPUT TYPE=""hidden"" NAME=""FileName"" VALUE="""&strFileName&""">"
response.write" <INPUT TYPE=""hidden"" NAME=""File_Search"" VALUE="""&strFileSearch&""">"
response.write" <INPUT TYPE=""hidden"" NAME=""Description"" VALUE="""&strDescription&""">"
else
response.write" <INPUT TYPE=""hidden"" NAME=""cname"" VALUE="""&cname&""">"
response.write" <INPUT TYPE=""hidden"" NAME=""mid"" VALUE="""&tMID&""">"
response.write" <INPUT TYPE=""hidden"" NAME=""cid"" VALUE="""&cid&""">"
end if
Response.Write("<b>Page: </b><select name=""page"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
for counter = 1 to maxpages
if counter <> cLng(pge) then
Response.Write " <option value=""" & counter & """>" & counter & "</option>" & vbNewLine
else
Response.Write " <option selected value=""" & counter & """>" & counter & "</option>" & vbNewLine
end if
next
Response.Write("</select><b> of " & maxpages & "</b>" & vbNewLine)
Response.Write("</font>" & vbNewLine)
Response.Write("</form>" & vbNewLine)
end if
top = "0"
end sub
%>
نوشته شده در
Try this. It's untested, but should fix it.
Code:
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#include file="inc_file_lister_functions.asp"-->
<%
on error resume next
Response.Write " <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
" function ChangePage(fnum){" & vbNewLine & _
" if (fnum == 1) {" & vbNewLine & _
" document.PageNum1.submit();" & vbNewLine & _
" }" & vbNewLine & _
" else {" & vbNewLine & _
" document.PageNum2.submit();" & vbNewLine & _
" }" & vbNewLine & _
" }" & vbNewLine & _
" </script>" & vbNewLine
'end javascript block
Set objFileSysObj = CreateObject("Scripting.FileSystemObject")
cname = request.QueryString("cname")
tMID = trim(cint(request.QueryString("mid")))
cid = trim(cint(request.QueryString("cid")))
strSql = "select * from "& strTablePrefix & "FILELISTER_CONFIG"
strConf = My_Conn.execute(strSql)
file_size = trim(strConf("file_size"))
bdir = trim(strConf("base_dir"))
single_filelister = cint(strConf("single_filelister"))
file_type = trim(strConf("file_type"))
If Len(file_type) > 9 Then
doc = trim(left(file_type, 1))
txt = trim(right(left(file_type, 3),1))
pdf = trim(right(left(file_type, 5),1))
zip = trim(right(left(file_type, 7),1))
arj = trim(right(left(file_type, 9),1))
End If
mode = trim(request.QueryString("mode"))
strMode = 0
if mode <> "" then
if mode = "search" then
strMode = 1
strFileName = trim(request.QueryString("FileName"))
strDescription = trim(request.QueryString("Description"))
strFileSearch = trim(request.QueryString("File_Search"))
response.write "search mode"&"<BR>"
' response.write strFileName&"<BR>"
' response.write strDescription&"<BR>"
' response.write strFileSearch&"<BR>"
' response.write sqldtl&"<BR>"
end if
end if
if strMode = 1 then
sqldtl = "select * from "& strMemberTablePrefix & "FILELISTER where file_status = 1 "
if strDescription = "1" and strFileName = "1" then
sqldtl = sqldtl &"and (file_desc LIKE '%" &strFileSearch&"%' or file_name LIKE '%" &strFileSearch&"%')"
else
if strFileName = "1" then
sqldtl = sqldtl &"and file_name LIKE '%" &strFileSearch&"%'"
else
if strDescription = "1" then
sqldtl = sqldtl &"and file_desc LIKE '%" &strFileSearch&"%'"
end if
end if
end if
else
if single_album = 0 then
sqldtl = "select * from "& strMemberTablePrefix & "FILELISTER where Member_Id ="&trim(cint(tMID))&" and File_Cat = "&trim(cint(cid))
else
sqldtl = "select * from "& strMemberTablePrefix & "FILELISTER where File_Cat = "&trim(cint(cid))&" and File_status = 1 order by File_Name"
end if
end if
set rs = My_Conn.Execute(sqldtl)
if rs.EOF or rs.BOF then
Dim aData(0,0)
aData(0,0) = 0
else
aData = rs.GetRows
end if
rs.close: set rs=nothing
if single_album = 0 then
strSql = "select * from "& strMemberTablePrefix & "FILELISTER_USERS where Member_id ="&tMID
end if
cmd_rt = My_Conn.execute(strSql)
m_name = cmd_rt("M_Name")
m_name = trim(m_name)
if strMode = 1 then
response.write"<table border=""0"" width=""100%"">"& vbNewLine & _
" <tr>"& vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face="""&strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">All Forums</a><br>"& vbNewLine & _
" " & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""File_Lister.asp"">File Sections</a><BR>"& vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Search Results</a><BR>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
"</table>"& vbNewLine
else
if single_filelister = 0 then
response.write"<table border=""0"" width=""100%"">"& vbNewLine & _
" <tr>"& vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face="""&strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">All Forums</a><br>"& vbNewLine & _
" " & getCurrentIcon(strIconbar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""File_Lister.asp"">File Sections</a><BR>"& vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""file_lister_cat.asp?sqldtl="&tMID&""">"&_
m_name&"'s Categories</a><BR>"& vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") &" "&m_name&"'s "&cname&"<br>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
"</table>"& vbNewLine
else
response.write"<table border=""0"" width=""100%"">"& vbNewLine & _
" <tr>"& vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face="""&strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">All Forums</a><br>"& vbNewLine & _
" " & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""File_Lister.asp"">File Sections</a><BR>"& vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Categories</a><BR>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
"</table>"& vbNewLine
end if
end if
mypage = request("page")
if ((Trim(mypage) = "") or (IsNumeric(mypage) = False)) then mypage = 1
mypage = cLng(mypage)
'set the mypage for the drop down
if Request.QueryString("page") <> "" then
intPage = cint(Request.QueryString("page"))
else
intPage = 1
end if
'check to see what page we are on if not set default it to the first page
intRecordsPerPage = 6 ' Records per page
response.write "<BR>"
if intFirstRecord + (intRecordsPerPage - 1) >= ubound(aData,2) then
else
if ((ubound(aData,2)+1) / intRecordsPerPage) > cint((ubound(aData,2)+1) / intRecordsPerPage) then
'check for any hangover records
maxpages = cint(((ubound(aData,2)+1) / intRecordsPerPage))
maxpages = maxpages + 1
'make sure we have enough pages to cover all the records
else
maxpages = cint(((ubound(aData,2)+1) / intRecordsPerPage))
end if
'needed for the dropdown navigation. Only likes Whole numbers no fractions!
end if
if aData(0,0) = 0 then
if strMode = 1 then
response.write "<div align = center>No files matched your search!</div>"&vbNewline
else
response.write "<div align = center>There are currently No Files in this category!</div><br>"&vbNewline
end if
else
intFirstRecord = (intPage - 1) * intRecordsPerPage 'The first record to display
'block to build the forward and back navigation
ref = "<div align = ""right"">"
if intPage > 1 then ' We're not on the 1st page, show a previous link
ref = ref & "<font face="""& strDefaultFontFace &""" size="""& strFooterFontSize &"""><a href=file_lister_view.asp?"
if strMode = 1 then
ref = ref &"mode="&mode
ref = ref &"&FileName="&strFileName
ref = ref &"&File_Search="&server.URLEncode(strFileSearch)
ref = ref &"&Description="&strDescription
else
ref = ref &"cname="&Server.URLEncode(cname)
ref = ref &"&mid="&tMID
ref = ref &"&cid="&cid
end if
ref = ref &"&page="&intPage - 1
ref = ref &">"&getCurrentIcon(strIconGoLeft,"","align=""absmiddle""")&"Previous</a></font> "
end if
if intFirstRecord + (intRecordsPerPage - 1) >= ubound(aData,2) then 'We're on the last page
intLastRecord = ubound(aData,2)
else 'There's more pages - show a next link
intLastRecord = intFirstRecord + (intRecordsPerPage - 1)
ref = ref &" <font face="""& strDefaultFontFace &""" size="""& strFooterFontSize &"""><a href=file_lister_view.asp?"
if strMode = 1 then
ref = ref &"mode="&mode
ref = ref &"&FileName="&strFileName
ref = ref &"&File_Search="&server.URLEncode(strFileSearch)
ref = ref &"&Description="&strDescription
else
ref = ref &"cname="&Server.URLEncode(cname)
ref = ref &"&mid="&tMID
ref = ref &"&cid="&cid
end if
ref = ref &"&page="&intPage + 1
ref = ref &">"&getCurrentIcon(strIconGoRight,"","align=""absmiddle""")&"Next</a></font>"
ref = pref & ref
end if
ref = ref &"</div>"
'end block
if strMode = 1 then
response.write "<div align = center><H4> File Lister Search Results</h4></div>"&vbNewline
else
if single_album = 0 then
response.write"<div align = center><H4> "& m_name &"'s "& cname &" </h4></div>"&vbNewline
else
response.write "<div align = center><H4> "&STRFORUMTITLE&" Files </h4></div>"&vbNewline
end if
end if
if maxpages > 1 then
response.write "<table border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"" align=""center"">"&VbnewLine&_
" <tr>"&VbnewLine&_
" <td width=""50%"" valign=""bottom""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &""">"
if strMode = 1 then
Call DropDownPaging(1,strMode,mode,strFileName,strFileSearch,strDescription)
else
Call DropDownPaging(1,0,0,0,0,0)
end if
response.write "</font></b></td>"&VbnewLine&_
" <td width=""50%"" align=""right""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &""">"&vbNewLine&_
ref & vbNewLine &_
"</font></b><BR></td>"&VbnewLine&_
" </tr>"&VbnewLine&_
" </table>"&VbnewLine
'if there are more than 1 page build and show the drop down nav
end if
Response.Write "<table border=""0"" width=""98%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=center bgColor="""& strHeadCellColor &"""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &""">File</font></b></td>"&VbnewLine&_
" <td align=center bgColor="""& strHeadCellColor &"""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &""">Description</font></b></td>"&VbnewLine&_
" <td align=center bgColor="""& strHeadCellColor &"""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &""">File</font></b></td>"&VbnewLine&_
" <td align=center bgColor="""& strHeadCellColor &"""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &""">Description</font></b></td>"&VbnewLine&_
" </tr>"&VbnewLine
reccnt = intLastRecord + 1
if intPage > 1 then
intRecordsPerPage = intRecordsPerPage + intFirstRecord
end if
i = intFirstRecord
do while not(i = intRecordsPerPage)
cntr = 0
Response.Write"<TR>"&vbNewline
do while cntr < 2 and not(i = intRecordsPerPage)
pstat = cint(aData(4,i))
if single_album = 1 or strMode = 1 then
strSql = "select * from "& strMemberTablePrefix & "FILELISTER_users where Member_Id = "&trim(cint(aData(1,i)))
strName = My_Conn.execute(strSql)
m_name = strName("m_name")
m_name = trim(m_name)
end if
strBasePath = bdir&"\"&m_name&"\"&clr_spaces(aData(2,i))
strBasePath = strBasePath
ref = "<A HREF="&strBasePath&">"
if i => reccnt then
response.write" <td align = ""center"" bgColor="""& strForumCellColor &""" width=""20%""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &"""> </td>"&VbnewLine
else
intFileType = instrrev(aData(2,i),".")
intStrLen = len(trim(aData(2,i)))
strFileType = right(trim(aData(2,i)),(intStrLen-intFileType))
strFileType = UCASE(strFileType)
Response.Write" <td align = ""center"" bgcolor="""& strForumCellColor &""" width=""20%""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"&VbnewLine
If strFileType = "JPG" Or strFileType = "BMP" Or strFileType = "GIF" Then Response.Write "<img src = """ & strBasePath & """ height=""30"" />"
select case strFileType
case "ZIP","ARJ"
Response.Write ref&getCurrentIcon(strIconZip,"","align=""absmiddle""")&"<br>"&unclr_spaces(trim(aData(2,i)))&vbNewline
case "DOC"
Response.Write ref&getCurrentIcon(strIconWord,"","align=""absmiddle""")&"<br>"&unclr_spaces(trim(aData(2,i)))&vbNewline
case "PDF"
Response.Write ref&getCurrentIcon(strIconAdobe,"","align=""absmiddle""")&"<br>"&unclr_spaces(trim(aData(2,i)))&vbNewline
case "TXT"
Response.Write ref&getCurrentIcon(strIconNotePad,"","align=""absmiddle""")&"<br>"&unclr_spaces(trim(aData(2,i)))&vbNewline
Case "JPG"
Response.Write ref&"<br />"&trim(aData(2,i))&vbNewline
Case "BMP"
Response.Write ref&"<br />"&trim(aData(2,i))&vbNewline
Case "GIF"
Response.Write ref&"<br />"&trim(aData(2,i))&vbNewline
Case "MP3"
Response.Write ref&getCurrentIcon(strIconMP3,"","align=""absmiddle""")&"<br />"&unclr_spaces(trim(aData(2,i)))&vbNewline
case Else
Response.Write ref&" " & vbNewline
end select
Response.Write "</a></font></td>"&vbNewline
end if
if i => reccnt then
response.write" <td align = ""center"" bgColor="""& strForumCellColor &""" width=""20%""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &"""> </td>"&VbnewLine
else
Response.Write " <td bgcolor="""& strForumCellColor &""" width=""20%""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" width = ""20%"">"&VbnewLine
Response.Write aData(3,i)
Response.Write "</a></font></td>"&vbNewline
end if
cntr = cntr + 1
i = i + 1
loop
Response.Write "</TR>"&vbNewline
loop
response.write" </table>"&VbnewLine&_
" </td>"&VbnewLine&_
" </tr>"&VbnewLine&_
"</table>"&VbnewLine
'rap up the table
end if
response.write"<br>"&vbNewline
Call WriteFooter
sub DropDownPaging(fnum,strMode,mode,strFileName,strFileSearch,strDescription)
'********************************************
'* ripped from topic.asp and modified to work
'* for our little purpose
'********************************************
if maxpages > 1 then
if mypage = "" then
pge = 1
else
pge = mypage
end if
scriptname = request.servervariables("script_name")
Response.Write("<form name=""PageNum" & fnum & """ action=""file_lister_view.asp"">" & vbNewLine)
if strMode = 1 then
response.write" <INPUT TYPE=""hidden"" NAME=""mode"" VALUE="""&mode&""">"
response.write" <INPUT TYPE=""hidden"" NAME=""FileName"" VALUE="""&strFileName&""">"
response.write" <INPUT TYPE=""hidden"" NAME=""File_Search"" VALUE="""&strFileSearch&""">"
response.write" <INPUT TYPE=""hidden"" NAME=""Description"" VALUE="""&strDescription&""">"
else
response.write" <INPUT TYPE=""hidden"" NAME=""cname"" VALUE="""&cname&""">"
response.write" <INPUT TYPE=""hidden"" NAME=""mid"" VALUE="""&tMID&""">"
response.write" <INPUT TYPE=""hidden"" NAME=""cid"" VALUE="""&cid&""">"
end if
Response.Write("<b>Page: </b><select name=""page"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
for counter = 1 to maxpages
if counter <> cLng(pge) then
Response.Write " <option value=""" & counter & """>" & counter & "</option>" & vbNewLine
else
Response.Write " <option selected value=""" & counter & """>" & counter & "</option>" & vbNewLine
end if
next
Response.Write("</select><b> of " & maxpages & "</b>" & vbNewLine)
Response.Write("</font>" & vbNewLine)
Response.Write("</form>" & vbNewLine)
end if
top = "0"
end sub
%>