<%
'[!] ________________________________________________________________________________
call htmlFramework()
'[!] ________________________________________________________________________________
sub htmlBodyTitle_content()
%>
Acesso restrito
<%end sub
'[!] ________________________________________________________________________________
sub htmlBodyMain_content()
dim flsFileServerInstance
dim fsfCode
dim fsfName
fsfCode = guidValidate( request("fsfCode") )
fsfDescription = ""
if ( fsfCode <> guidZero ) then
set flsFileServerInstance = New flsFileServer
with flsFileServerInstance
.fsfCode = fsfCode
.getRecord()
fsfName = .fsfName
fsfSize = .fsfSize
fsfDescription = trim(.fsfDescription & "")
end with
set flsFileServerInstance = nothing
end if
%>
Para fazer o download deste arquivo você precisa se conectar com seu login e senha.
<%if ( fsfDescription <> "" ) then%>
<%=replace( fsfDescription, vbCrLf, "
")%>
<%end if%>
Arquivo solicitado: "<%=fsfName%>"
Tamanho: <%=formatNumber(fsfSize/1048576,2)%> MB
<%if ( guidValidate(session_keyCode) <> guidZero ) then%>
Fazer download
<%end if%>
<%end sub%>