24 giugno 2004 alle 13:25:01

' Display the last downloads (by Date)
' IN : iTop (int) : number of results wanted
' : sSortedField (string) : field sorted
' : bAscSort (boolean) : if true = ASC sort, else DESC
' OUT : -
Sub DisplayAdminTopDownloads(iTop, sSortedField, bAscSort)
Dim oCn, oRs, rSQL, iLine, sSortDesc

Dim TotalPages, NumPerPage, CurrentPage, Number, nummin, nummax, numdiff, num, count, numextra
set oCn=server.createobject("adodb.connection")
oCn.open = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/public/aspnuke/db/main.mdb")
Set oRs = Server.CreateObject("ADODB.Recordset")

If request("NumPerPage") <> 0 then
NumPerPage = Int(request("NumPerPage"))
else NumPerPage = 10
end if
If Request.QueryString("page") = "" then
CurrentPage = 1 'We are on the first page
Else
CurrentPage = CInt(Request.QueryString("page"))
End If

Select Case LCase(sSortedField)
Case "dtitle" :
sSortedField = sSortedField
sSortDesc = GetTranslation("LANG_TITLE")
Case "dhits" :
sSortedField = sSortedField
sSortDesc = GetTranslation("LANG_HITS")
Case "ddate" :
sSortedField = sSortedField
sSortDesc = GetTranslation("LANG_DATE")
Case Else :
' default value
sSortedField = "dDate"
bAscSort = False
sSortDesc = GetTranslation("LANG_DATE")
End Select

If iTop <> "" and iTop <> 0 Then
rSQL = "SELECT TOP " & iTop & " dId, dTitle, dDate, dHits FROM downloads ORDER BY " & sSortedField
Else
rSQL = "SELECT dId, dTitle, dDate, dHits FROM downloads ORDER BY " & sSortedField
End If

If Not bAscSort Then
rSQL = rSQL & " DESC"
sSortDesc = sSortDesc & " (DESC)"
Else
sSortDesc = sSortDesc & " (ASC)"
End If

oRs.Open rSQL, oCn,3,3


Number = oRs.RecordCount
If Not oRs.EOF Then
oRs.MoveFirst
oRs.PageSize = NumPerPage
TotalPages = oRs.PageCount
oRs.AbsolutePage = CurrentPage
End If
Dim ScriptName
ScriptName = request.servervariables("ScriptName")

numdiff = NumPerPage - 1
numextra = CurrentPage * NumPerPage
nummax = numextra
if nummax > number Then
nummax = number
end if
nummin = numextra - numdiff
num=0
if CurrentPage > 1 then
num=nummin-1
end if

CreateTopTable "TopDownloads", GetTranslation("LANG_TOP") & " " & iTop & " - " & GetTranslation("LANG_DOWNLOADS") & " | <span class=""small"">" & Replace(GetTranslation("LANG_SORT_BY"), "%1%", sSortDesc) & "</span>"

'Print the recent Data
response.write " <div align=""center"" style=""font-family: Verdana; font-size: 10px"">Pagina <b>" & CurrentPage & "</b> su un totale di <b>" & TotalPages & "</b> | Record <b>" & nummin & "</b> - <b>" & nummax & "</b> su un totale di <b>" & Number & "</b> <div>"

'Creating the paging numbers
Dim ini, fim, a
if CurrentPage > 5 and TotalPages > 10 then
Response.write("<a href=" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=1><font color=red><b>Inizio</b></a>  " )
end if
'Display PREV page link, if appropriate
If Not CurrentPage = 1 Then
Response.Write "<a href='" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=" & CurrentPage - 1 & "'><font color=666666><b>«</b></font></a>   "

if TotalPages > 10 then

if CurrentPage > 5 then
if TotalPages > (CurrentPage + 5) then
ini = (CurrentPage - 4)
fim = (CurrentPage + 5)
else
ini = (TotalPages - 9)
fim = TotalPages
end if
else
ini = 1
fim = 10
end if
else
ini=1
fim = TotalPages
end if
For a = ini to fim
If a = Cint(request("page")) then
Response.write( "<font color=red><b>" & a & "</b></font>  ")
Else
Response.write("<a href=" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=" & a &"><font color=666666><b>" & a & "</b></font></a>" & "  " )
End if
Next
Else
if TotalPages = 1 then
Response.write ""
Else
Response.Write "<font color=red ><b>1</b></font>  "
End if
if TotalPages > 10 then
fim = 10
else
fim = TotalPages
end if
For a = 2 to fim
If a = Cint(request("page")) then
Response.write( "<font color=red ><b>" & a & "</b></font>  ")
Else
Response.write("<a href=" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=" & a &"><font color=666666><b>" & a & "</b></font></a>" & "  " )
End if
Next
End If
'Display NEXT page link, if appropriate
If Not CurrentPage = TotalPages Then
Response.Write "  <a href='" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=" & CurrentPage + 1 & "'><font color=666666><b>»</b></font></a>"
Else
Response.Write ""
End If
if CurrentPage < TotalPages - 5 and TotalPages > 10 then
Response.write("  <a href=" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=" & TotalPages &"><font color=red><b>Fine</b></a>  " )
end if




Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td>"
SortMenu GetTranslation("LANG_TITLE"), "dTitle", sSortedField, bAscSort
Response.Write "</td>" & vbCRLF
Response.Write " <td width=""80"" align=""center"">"
SortMenu GetTranslation("LANG_DATE"), "dDate", sSortedField, bAscSort
Response.Write "</td>" & vbCRLF
Response.Write " <td width=""80"" align=""center"">"
SortMenu GetTranslation("LANG_HITS"), "dHits", sSortedField, bAscSort
Response.Write "</td>" & vbCRLF
Response.Write " <td width=""100"" align=""center"">" & GetTranslation("LANG_ACTIONS") & "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
If Not oRs.EOF Then
iLine = 1
While Not oRs.EOF and count < oRs.PageSize
count=count+1
num=num+1
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>" & Server.HTMLEncode(oRs("dTitle")) & "</td>" & vbCRLF
Response.Write " <td align=""center"">" & GetDateDDMMYY(StringToDate(oRs("dDate"))) & "</td>" & vbCRLF
Response.Write " <td align=""center"">" & oRs("dHits") & "</td>" & vbCRLF
Response.Write " <td align=""center"">" & vbCRLF
MenuAdmin(oRs("dID"))
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF

iLine = 1 + ((iLine-1) XOR 1)
oRs.MoveNext
WEnd
End If
Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td colspan=""4""><a href=""" & sURLPage & "?do=new"">" & GetTranslation("LANG_ADD") & " - " & GetTranslation("LANG_DOWNLOAD") & "</a></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write "</table>" & vbCRLF
CreateBottomTable ""

oCn.Close
Set oCn = Nothing
Set oRs = Nothing
End Sub