Replace Barra Invertida

Replace Barra Invertida

 por Fagner de Leon Offline » Ter Jan 11, 2011 10:05 am

Galera bom dia, tenho o seguinte código Código: Selecionar todos       <%       Set SaFileUp = Server.CreateObject("SoftArtisans.FileUp")       Set Folder = Server.CreateObject("SoftArtisans.FileManager")              subdir = SaFileUp.Form("referencia")              Dim strFolder              strFolder = ("e:\home\giroimoveis\Web\imagens\referencia\" & subdir)                 If Not Folder.FolderExists(strFolder) Then             Folder.CreateFolder(strFolder)          End if          SaFileUp.Path = strFolder                    If SaFileUp.IsEmpty Then                response.write "<center>Por favor, indique um arquivo para upload.</center><br>"          Else                       SaFileUp.Form("foto").Save             SaFileUp.Form("foto_2").Save                       End if                              refencia = SaFileUp.Form("referencia")                    foto = replace(SaFileUp.Form("foto"),SaFileUp.Path, subdir)          foto_2 = replace(SaFileUp.Form("foto_2"),SaFileUp.Path, subdir)              dados="INSERT INTO imovel (referencia,foto_2,foto)"        dados=dados & " VALUES ('"    dados=dados & referencia & "','"    dados=dados & foto_2 & "','"    dados=dados & foto & "')"                      Set grava= db.Execute(dados)      Set grava = Nothing    Set SaFileUp = Nothing       response.write "<script>window.location.href ='../default.asp';alert('case cadastrado com sucesso.')</script>"       %> é um upload de fotos, funciona da seguinte maneira, no banco eu gravo somente o numero da referencia do imovel que o cliente digita em um input e o nome da imagem que ele seleciona, porem está salvando no banco da seguinte maneira " 231\teste.jpg " gostaria que essa barra viesse invertida "/" alguém poderia me ajudar ? Fagner de Leon MEMBRO Mensagens: 30 Registrado em: Ter Jun 08, 2010 12:34 pm

Replace Barra Invertida

 por web Offline » Ter Jan 11, 2011 10:22 am

Tem a função replace em Asp Código: Selecionar todos <% sMyString = "Who-was-that?" sMyString = Replace(sMyString, "-", " ") Response.Write sMyString %> http://www.aspdev.org/asp/asp-replace%28%29-vbscript/ web ADMIN Mensagens: 12454 Registrado em: Sáb Jan 20, 2007 6:08 pm Localização: RJ / RJ / Brasil Website