Ir para conteúdo
Fórum CódigoFonte.net

Lu_ciana

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

  1. Pessoal consegui... segue abaixo como fiz e deu Ok. se alguem tiver o mesmo problema que eu, segue a dica: UPDATE TABELA SET CAMPO = REPLACE(CONVERT(VARCHAR(8000),CAMPO),'< script src=http://www.adw95.com/b.js>','') Obrigada
  2. Ola pessoal.. Houve uma invasão no meu bd SQL Server, e praticamente em todas as minhas tabelas do banco(campo varchar e text), foi incluída essa linha de código. < script src=http://www.adw95.com/b.js > </ script > Alguém sabe como tiro somente esses caracteres inseridos a mais no meu banco???? Por ex: - Saída e regresso: Best Western Beach Resort 8:30am / retorno 4:30pm.< script src=http://www.adw95.com/b.js > </ script > Nesse exemplo teria que ficar no meu banco somente o que esta em negrito: Saída e regresso: Best Western Beach Resort 8:30am / retorno 4:30pm. Existe como fazer? Que função posso usar? OBS: essa linha de codigo foi inserida sempre no final de cada campo. Muito obrigada Luciana
  3. Lu_ciana

    XML com ASP

    Bom dia! Estou precisando de ajuda, nao sei mais o que fazer. Abaixo vai uma descricao do problema. O Desenvolvimento do sistema é em asp e tenho que fazer o seguinte: buscar conteúdo que está em outro servidor. Onde irá ler o conteúdo do XML de um outro site https://test.miki.co.uk/interface/XMLRequest . Abaixo segue os códigos: - Criei um arquivo de conexăo e outro arquivo com as funçőes que vou utilizar... 1) Funcoes sub SU_BuscaMiki_DET( ) set xmlhttp = server.CreateObject("Microsoft.XMLHTTP") 'Essas tags xml estou deixando fixa pra ver ser traz o resultado depois vou colocar variaveis de dados vindo do sistema. SoapText = "" SoapText = SoapText & " <searchCriteria> " SoapText = SoapText & " <bookingCriteria> " SoapText = SoapText & " <productType>3</productType> " SoapText = SoapText & " <cityNumber>9037</cityNumber> " SoapText = SoapText & " <bookingDate>" & dia &"</bookingDate> " SoapText = SoapText & " <serviceDate>2007-11-01</serviceDate> " SoapText = SoapText & " <numberOfNights>1</numberOfNights> " SoapText = SoapText & " <subProducts> " SoapText = SoapText & " <subProduct> " SoapText = SoapText & " <subProductCode>00001</subProductCode> " SoapText = SoapText & " <subProductQuantity>1</subProductQuantity> " SoapText = SoapText & " </subProduct> " SoapText = SoapText & " </subProducts> " SoapText = SoapText & " </bookingCriteria> " SoapText = SoapText & " </searchCriteria> " tipo = "citySearchRequest" call FU_ExecutaXML_Miki(xmlhttp, tipo, SoapText)'Esse chama a conexao com o outro site da uma olhada la '*************************Validando problemas********************************* if xmlhttp.Status = 200 then 'Se năo ocorre problema na consulta set xmldom = server.CreateObject("Microsoft.XMLDOM") Set xmldom = xmlhttp.responseXML Aqui ta o problema quando eu tenho que tratar com os dados retornados do XML, tipo quando faco a seguinte funcao objXMLDOM_Results.load(xmlhttp.responseXML) ele para no erro nesse if (objXMLDOM_Results.parseError.errorCode <> 0) then e da esses erros que năo sei o que pode ser e se eu utilizo o essa funcao objXMLDOM_Results.LoadXML( xmlhttp.responseXML), ou seja troco o LOAD por LOADXML ele retorna no else do erro ou seja năo da erro, so que năo hora de caputar os resultados ou seja pegar o resultado criado pela petiocion XML, retorna 0, ou seja como se năo tivesse criado o XML ou algum erro outro. Será que alguem sabe o que pode estar acontecendo? '******Trabalhando com dados retornados da consulta ao webservice***************************** Set objXMLDOM_Results = Server.CreateObject ("Microsoft.XMLDOM") objXMLDOM_Results.async = false '*****Troquei aqui por que estava dando erro************* 'objXMLDOM_Results.load(xmlhttp.responseXML) '**********O método loadXML carrega parte do código, sem ter o documento XML********** objXMLDOM_Results.LoadXML(xmlhttp.responseXML) if (objXMLDOM_Results.parseError.errorCode <> 0) then response.write "Código do erro: " & objXMLDOM_Results.parseError.errorCode & "<br>" response.write "Posiçăo no arquivo: " & objXMLDOM_Results.parseError.filepos & "<br>" response.write "Linha: " & objXMLDOM_Results.parseError.line & "<br>" response.write "Posiçăo na linha: " & objXMLDOM_Results.parseError.linepos & "<br>" response.write "Descriçăo: " & objXMLDOM_Results.parseError.reason & "<br>" response.write "Texto que causa o erro: " & objXMLDOM_Results.parseError.srcText & "<br>" response.write "Url do arquivo com problemas: " & objXMLDOM_Results.parseError.url & "<br>" else if (objXMLDOM_Results.selectNodes(xmlhttp.responseXML ).length > 0 ) then response.Write "ACHOU <br>" else response.Write "NAO <br>" end if Set oresponseAuditInfo = xmldom.getElementsByTagName ("responseAuditInfo") Response.Write "<br> => oresponseAuditInfo length " & oresponseAuditInfo.length for i = 0 to oresponseAuditInfo.length - 1 agentCode = oresponseAuditInfo(i).getElementsByTagName("agentCode" )(0).text Response.Write "<br> => Response: agentCode " & agentCode Next Set oCitySearch = xmldom.getElementsByTagName("citySearchResponse/products/product" ) Response.Write "<br> => oCitySearch length " & oCitySearch.length for i = 0 to oCitySearch.length - 1 cityName = oCitySearch(i).getElementsByTagName("cityName" )(0).text Response.Write "<br> => Response: cityName " & cityName Next End if Else Response.Write "<br>Problemas para buscar dados da MIKI<br>" end if End if set xmlhttp = nothing set xmldom = nothing end sub 2ş) Conexăo com o outro servidor. '***************************************************************************************************** 'Conexao com servidor MIKI '***************************************************************************************************** function FU_Conexao_Miki_Request(tipo, SoapText) data = date() dia = year(data) & "-" & month(data) & "-" & day(data) hora = time() dataReal = dia & "T" & hora '*********Para gerar um numero de RequestID aleatorio para cada busca************ randomize requestID = Int(Rnd * 999999999) + 1 '******************Buscar senha de acordo com o dia do request******************** mSQL = " Set dateformat dmy " mSQL = mSQL & " Select data, senha " mSQL = mSQL & " From Miki_SenhaAcesso " mSQL = mSQL & " Where (data = '"& data & "')" set RSSenha = conexao.execute(mSQL) str = " <citySearchRequest requestType=""" & tipo & """ versionNumber=""4.1.0"">" str = str & " <requestAuditInfo> " str = str & " <agentCode>SUD002</agentCode> " str = str & " <requestPassword>"& RSSenha( "senha") &"</requestPassword> " str = str & " <requestID>"& requestID & "</requestID> " str = str & " <requestTime>"& dataReal & "</requestTime> " str = str & " </requestAuditInfo> " str = str & SoapText str = str & " </citySearchRequest> " FU_Conexao_Miki_Request = str end function sub FU_ExecutaXML_Miki(xmlhttp, tipo, SoapText) xmlhttp.open "POST", "https://test.miki.co.uk/interface/XMLRequest" , false xmlhttp.setRequestHeader "Content-Type", "text/xml" xmlhttp.send(FU_Conexao_Miki_Request(tipo, SoapText)) end sub %> Valeu...obrigada.. Lu
×
×
  • Criar Novo...