How to make Mappath Asp Classic

Asked

Viewed 335 times

0

How to do Mappath Asp classic, use normal "/" or inverted bar " ", I can use methods and variables to include in the object address?

3 answers

0


<%
' Para ajudar desmembre seu código pois fica fácil verificar o que está dando errado.

'@@@@@@@@@@@@@@@ ANTES
ind = ind & "<span><b><a href='"&vStrParametro7&"/Busca/"&rsQuery("ID_CURSO")&"/"&Server.UrlEncode(TirarAcento(rsQuery("DESCR")))&"' target='blank'>"&rsQuery("SIGLA")&" - "&rsQuery("DESCR")&"</a></b><span>"
if fso.FileExists(Server.MapPath("/" & Application("pathAdm") & "/" &vStrParametro6& "/cursos/" & vStrPDF2(z))) then
    objCDOSYSMail.AddAttachment(Server.MapPath("/" & Application("pathAdm") & "/" &vStrParametro6& "/cursos/" & vStrPDF2(z)))
end if
'@@@@@@@@@@@@@@@ ANTES - FIM 

'@@@@@@@@@@@@@@@ DEPOIS - Melhor tratado para debugar e saber o que está ocorrendo
'Declaro as variáveis assim posso utilizá-las em todo o restante do código de forma mais curta e irá facilitar meu debug manual
Dim cursoID         : cursoID = rsQuery("ID_CURSO")
Dim SIGLA           : SIGLA = rsQuery("SIGLA")
Dim DESCR           : DESCR = rsQuery("DESCR")
Dim DESCR_TRATADO   : DESCR_TRATADO = Server.UrlEncode(TirarAcento(DESCR))
Dim url             : url = vStrParametro7 & "/Busca/" & cursoID & "/" & DESCR_TRATADO
Dim pathAdm         : pathAdm = Application("pathAdm")
Dim vStrPDF2        : vStrPDF2 = vStrPDF2(z)
Dim Endereco        : Endereco = Server.MapPath( "/" & pathAdm & "/" & vStrParametro6 & "/cursos/" & vStrPDF2 )
Dim sHTML           : sHTML = "<span><b><a href='"& url &"' target='blank'>"& SIGLA &" - "& DESCR &"</a></b><span>"

'@@@@@@@@@@@@@@@ DEBUG MANUAL PARA SABER EXATAMENTE O QUE CADA VARIÁVEL ESTÁ RECEBENDO PARA SER TRATADO
'@@ para utilizar o debug, basta descomentar o item necessário e o último response.end(), ou descomente todos
' Dica: Já deixei descomentado para você analisar uns itens, porém creio ser melhor depois você analisar um a um dos objetos ok

response.write "<hr><br><br>"
'response.write "cursoID: " & cursoID & "<br>"
'response.write "SIGLA: " & SIGLA & "<br>"
'response.write "DESCR: " & DESCR & "<br>"
'response.write "DESCR_TRATADO: " & DESCR_TRATADO & "<br>"
'response.write "url: " & url & "<br>"
response.write "pathAdm: " & pathAdm & "<br>"
response.write "vStrParametro6: " & vStrParametro6 & "<br>"
response.write "vStrPDF2: " & vStrPDF2 & "<br>"
response.write "Endereco: " & Endereco & "<br>"
'response.write "sHTML: " & sHTML & "<br>"
response.write "<br><hr>"
response.end()

'Obs Application() deve estar sendo utilizado no arquivo Global.asa para ser utilizado em páginas *.asp
'Referência http://www.w3schools.com/asp/asp_applications.asp

ind = ind & sHTML

if fso.FileExists(Endereco) then
    objCDOSYSMail.AddAttachment(Endereco)
end if

'@@@@@@@@@@@@@@@ DEPOIS - FIM

'Segue um exemplo de como utilizar o Server.MapPath(path)
response.write(Server.MapPath("test.asp") & "<br>")
response.write(Server.MapPath("script/test.asp") & "<br>")
response.write(Server.MapPath("/script/test.asp") & "<br>")
response.write(Server.MapPath("\script") & "<br>")
response.write(Server.MapPath("/") & "<br>")
response.write(Server.MapPath("\") & "<br>")

'Saída:
'c:\inetpub\wwwroot\script\test.asp
'c:\inetpub\wwwroot\script\script\test.asp
'c:\inetpub\wwwroot\script\test.asp
'c:\inetpub\wwwroot\script
'c:\inetpub\wwwroot
'c:\inetpub\wwwroot

'Referência: http://www.w3schools.com/asp/met_mappath.asp
%>
  • What makes this code?

0

You can use mappath by assigning its value to a variable, or even within the object.

The shape of the bars depends, I’ve had to change them to work with the components.

Ex: I can use directly with the object.

Set fs1=Server.CreateObject("Scripting.FileSystemObject")
if fs1.FileExists(Server.MapPath("\admin\minha_foto.jpg")) then
    fs1.DeleteFile(Server.MapPath("\admin\minha_foto.jpg"))
end if

or assign to a variable and use it:

foto=Server.MapPath("\admin\minha_foto.jpg")
Set fs1=Server.CreateObject("Scripting.FileSystemObject")
if fs1.FileExists(foto) then
    fs1.DeleteFile(foto))
end if

Depends on your application.

-1

I do so:

endereco = Server.MapPath("./") & "\banco.mdb"

Browser other questions tagged

You are not signed in. Login or sign up in order to post.