[Resolvido] Migração de ASP para ASP.NET (vb)

LogName · Agosto 3, 2008

Meninos,

Trabalho atualmente com ASP, mas com a migração dos servidores daqui da empresa estão querendo que migre os sistemas para ASP.NET, tanto os sistemas em Web quanto os em vb 6, então para não perder o emprego queria muito a ajuda de vocês para entender de vez como migrar para .NET (vb). http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Assim, já tentei encontrar tópicos sobre Migrar Asp para Asp.NET, todos bons, mas nenhum direcional a minha dificuldade. Baixei o Visual Studio 2008 e também uma ferramenta de migração do site asp.net mas não funcionou, acho que ela foi feita para Visual Studio 2003. http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

Tentei fazer manualmente e também outra dificuldade pois o topicos que encontro ficam mesclando entra .net 1.0, 2.0 e outros 3.5, agora me perdi toda. http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

E eu não sou loira! ;)

Alguem poderia me ajudar por exemplo com este código (simples em asp), mas que contem toda base que preciso (acredito):

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
 Option Explicit
 Response.AddHeader "Pragma", "no-cache"
 Response.Buffer = True
 Response.CacheControl = "no-cache"
 Response.Expires = -1500
 Response.ExpiresAbsolute = now()
 Session.LCID = 1046
 Session.Timeout = 20

'Caracter
 %><!--#include file="funcoes/inc/caracter.inc"--><%

'Configuracoes
 Dim vDomain, vHead
 vDomain = "localhost" 'meudominio.com.br

'Links
 Dim vServer, vLink, vPagina, vTitle
 vTitle = "Migrando de Asp para Asp.NET"
 vServer = "http://"& Request.ServerVariables("SERVER_NAME")
 vLink = "http://"& Request.ServerVariables("SERVER_NAME")  & request.ServerVariables("URL")
 if request.ServerVariables("QUERY_STRING") <> empty then vLink = vLink &"?"& request.ServerVariables("QUERY_STRING")
 vPagina = Replace(Request.ServerVariables("URL"),".asp",Empty)

'Links Funcoes
 Dim vFuncoes, vAsp, vCss, vJs, vSwf
 vFuncoes = vServer &"funcoes/"
 vAsp = vFuncoes &"asp/"
 vCss = vFuncoes &"css/"
 vJs = vFuncoes &"js/"
 vSwf = vFuncoes &"swf/"

'Links Imagens
 Dim vImagens, vGif, vJpg, vIco, vPng
 vImagens = vServer &"imagens/"
 vGif = vImagens &"gif/"
 vJpg = vImagens &"jpg/"
 vIco = vImagens &"ico/"
 vPng = vImagens &"png/"

'Informacoes da Pagina
 Dim vCopyright, vDescription, vKeywords
 vCopyright = "Aqui vai as descrições de Copyright para facilitar no RSS e SEO"
 vDescription = "Aqui vai as descrições de Copyright para facilitar no RSS e SEO"
 vKeywords = "Aqui vai as descrições de Copyright para facilitar no RSS e SEO"

'Descarrega a medida que constroi
 Response.Flush()
 
'Cabecalho pagina
 Response.Write("<?xml version=""1.0"" encoding=""iso-8859-1""?>"& vbcrlf)
 Response.Write("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"& vbcrlf)
 Response.Write("<html xmlns=""http://www.w3.org/1999/xhtml"" xml:lang=""pt"" lang=""pt"">"& vbcrlf)
 Response.Write(" <head>"& vbcrlf)
 Response.Write("  <title>"& fncCharOut(vTitle) &"</title>"& vbcrlf)
 Response.Write("  <meta http-equiv=""charset"" content=""ISO-8859-1""/>"& vbcrlf)
 Response.Write("  <meta http-equiv=""conteudo-language"" content=""Portuguese""/>"& vbcrlf)
 Response.Write("  <meta http-equiv=""conteudo-type"" content=""application/xhtml+xml; charset=iso-8859-1""/>"& vbcrlf)
 Response.Write("  <meta http-equiv=""expires"" content=""never""/>"& vbcrlf)
 Response.Write("  <meta http-equiv=""imagetoolbar"" content=""no""/>"& vbcrlf)
 Response.Write("  <meta http-equiv=""pragma"" content=""no-cache""/>"& vbcrlf)
 Response.Write("  <meta http-equiv=""revisit-after"" content=""3 days""/>"& vbcrlf)
 Response.Write("  <meta name=""author"" content=""Lois Oliveira Gonzaga""/>"& vbcrlf)
 Response.Write("  <meta name=""copyright"" content="""& fncCharOut(vCopyright) &"""/>"& vbcrlf)
 Response.Write("  <meta name=""dc.language"" content=""pt-br""/>"& vbcrlf)
 Response.Write("  <meta name=""description"" content="""& fncCharOut(vDescription) &"""/>"& vbcrlf)
 Response.Write("  <meta name=""distribution"" content=""global""/>"& vbcrlf)
 Response.Write("  <meta name=""expires"" content=""never""/>"& vbcrlf)
 Response.Write("  <meta name=""generator"" content="""& fncCharOut(vTitle) &" - v.9""/>"& vbcrlf)
 Response.Write("  <meta name=""googlebot"" content=""all""/>"& vbcrlf)
 Response.Write("  <meta name=""language"" content=""pt-br""/>"& vbcrlf)
 Response.Write("  <meta name=""keywords"" content="""& fncCharOut(vKeywords) &"""/>"& vbcrlf)
 Response.Write("  <meta name=""MSSmartTagsPreventParsing"" content=""true""/>"& vbcrlf)
 Response.Write("  <meta name=""rating"" content=""general""/>"& vbcrlf)
 Response.Write("  <meta name=""revisit-after"" content=""3 days""/>"& vbcrlf)
 Response.Write("  <meta name=""robots"" content=""all""/>"& vbcrlf)
 Response.Write("  <meta name=""title"" content="""& fncCharOut(vTitle) &"""/>"& vbcrlf)
 Response.Write("  <meta name=""url"" content="""& vDomain &"""/>"& vbcrlf)
 Response.Write("  <link rel=""shortcut icon"" href="""& vIco &"favicon.ico""/>"& vbcrlf)
 Response.Write("  <link rel=""stylesheet"" href="""& vCss &"tela.css"" type=""text/css""/>"& vbcrlf)
 Response.Write(vHead)
 Response.Write(" </head>"& vbcrlf)
 Response.Write(" <body>"& vbcrlf)
 Response.Write("  <div id=""estrutura"">"& vbcrlf)
 Response.Write("   <div id=""superior"">Aqui viria cabecalho</div>"& vbcrlf)
 Response.Write("   <div id=""conteudo"">Aqui vem o conteudo somente desta pagina dentro do fncCharOut</div>"& vbcrlf)
 Response.Write("   <div id=""rodape"">"& vbcrlf)
 Response.Write("	<a href=""http://validator.w3.org/check?uri=referer"" target=""_blank"" title=""Validação desta página conforme o padrão W3C/XHTML"">Validação XHTML</a> | "& vbcrlf)
 Response.Write("	<a href=""http://jigsaw.w3.org/css-validator/check/referer"" target=""_blank"" title=""Validação desta página conforme o padrão W3C/CSS"">Validação CSS</a>"& vbcrlf)
 Response.Write("   </div>"& vbcrlf)
 Response.Write("  </div>"& vbcrlf)
 Response.Write("  <noscript>O Browser não suporta o script escrito, atualize para Microsoft Internet Explorer 7, Mozilla Firefox 1.3, Opera 8.1, Safari 2.5 ou Flock 1.0, todos nestas versões ou superiores</noscript>"& vbcrlf)
 Response.Write(" </body>"& vbcrlf)
 Response.Write("</html>"& vbcrlf)
%>

Arquivo de include (caracter.inc):

<%
Function fncCharOut(vCharOut)
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"""""",""")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"·","·")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"&","&")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"´","´")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Á","Á")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"á","á")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Â","Â")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"â","â")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"À","À")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"à","à")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Ã","Ã")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ã","ã")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Ç","Ç")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ç","ç")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"É","É")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"é","é")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Ê","Ê")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ê","ê")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"È","È")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"è","è")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Í","Í")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"í","í")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Î","Î")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"î","î")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Ì","Ì")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ì","ì")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Ñ","Ñ")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ñ","ñ")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Ó","Ó")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ó","ó")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Ô","Ô")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ô","ô")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Ò","Ò")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ò","ò")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Õ","Õ")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"õ","õ")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Ú","Ú")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ú","ú")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Û","Û")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"û","û")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Ù","Ù")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ù","ù")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"Ý","Ý")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ý","ý")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"º","º")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ª","ª")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"ü","ü")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"–","–")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"©","ˆ")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[h1]","<h1>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/h1]","</h1>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[h2]","<h2>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/h2]","</h2>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[h3]","<h3>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/h3]","</h3>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[h4]","<h4>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/h4]","</h4>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[h5]","<h5>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/h5]","</h5>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[b]","<b>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/b]","</b>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[i]","<i>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/i]","</i>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[u]","<u>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/u]","</u>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[p]","<p>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/p]","</p>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[ul]","<ul>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/ul]","</ul>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[ol type=""A""]","<ol type=""A"">")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[ol type=""a""]","<ol type=""a"">")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[ol type=""I""]","<ol type=""I"">")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[ol type=""1""]","<ol type=""1"">")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[ol]","<ol>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/ol]","</ol>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[li]","<li>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/li]","</li>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[center]","<center>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/center]","</center>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[a href","<a href")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"""]",""">")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[/a]","</a>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[img","<img")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"src=""","src="""& vImagens)
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[br/]","<br/>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"[br /]","<br/>")
 if vCharOut <> empty then vCharOut = Replace(vCharOut,"/]","/>")
' if vCharOut <> empty then vCharOut = Replace(vCharOut,vbcr,vbcrlf)
' if vCharOut <> empty then vCharOut = Replace(vCharOut,vblf,vbcrlf)
 if vCharOut <> empty then vCharOut = Replace(vCharOut,vbcrlf,"<br/>")
 fncCharOut = vCharOut
End Function
%>

Response.Write

Include

Até hoje em ASP todas as minhas dúvidas somente o BUSCAR já resolvia http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif , este é meu primeiro post.

Bju, Deus abençoe!!!

Lois Oliveira Gonzaga

LogName

quintelab · Agosto 3, 2008

Movido Plataforma .NET http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .NET » Web Applications

LogName, Seja Bem Vindo ao Fórum Imasters, de uma olhada em nossas regras: Regras do Fórum iMasters

Eu sempre aconselho as pessoas a ir tentando converter e quando existir dúvidas específicas postar aqui, pois dificilmente alguém irá converter seu código inteiro.

Algumas coisas são padrões, e não mudaram como o replace e o respose.write!

No caso do include crie uma sub para escrever seu código.

Abraços...

LogName · Agosto 4, 2008

Obrigada pela resposta, não entendi o caso do INCLUDE e SUB, como eu poderia por exemplo utilizar no VS2008 um cabeçalho unico para todos os arquivos? Como você indicou para usar sub, esta sub poderia ser chamada em todos os arquivos, exemplo, contatos.aspx sobre.aspx

No caso este include veja que faz a funcao de corrigir acentuacao, para nao repetir nao entendi como colocar nas outras paginas.

quintelab · Agosto 4, 2008

Você pode criar uma classe pública e colocar essa sua função, ae basta em todos os seus formulário você instanciar uma variável chamando essa função.

Abraços...

LogName · Agosto 4, 2008

Quando crio um App_Code\Inclusao.vb

Imports Microsoft.VisualBasic

Public Class Caracter
	Function fncCharOut(ByVal vCharOut As String) As String
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, """""", """)
		fncCharOut = vCharOut
	End Function

End Class

Dentro do meu Default.aspx eu acesso direto a funcao ou tenho que fazer alguma outra coisa para puxar esta informacao? Não consegui puxar!

Se eu ainda estiver indo contra qualquer regra me avise, ta?

Obrigada, bju

Lois

quintelab · Agosto 4, 2008

É isso ae sua classe já esta criada, desta forma mesmo.

Agora para acessa-la em seu formulário basta instanciar uma variável que receba sua classe.

Da seguinte forma:

Dim vCaracter As New Caracter
Dim vRecebe As String
vRecebe = vCaracter.fncCharOut("SEU_PARAMETRO")

Abraços...

LogName · Agosto 4, 2008

Eu já falei que te amo!

kkk

Já ajudou muito, acho que agora consegui concluir a migraçao daquele código! Só um pouquinho que te falo se consegui.

LogName · Agosto 4, 2008

ESSE É O TEXTO QUE EU IA POSTANDO

--------------------------------------------------

La ta assim no app_code\include.vb

Imports Microsoft.VisualBasic

Public Class Caracter
	Function fncCharOut(ByVal vCharOut As String) As String
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "á", "á")
		fncCharOut = vCharOut
	End Function

End Class

dae no default.aspx

'Importando Class
	Dim vCaracter As New Caracter
	Dim vTitle As String
	vTitle = "Háaaaa"

....


	Response.Write("  <title>" & vCaracter.fncCharOut("vTitle") & "</title>" & vbCrLf)

Mas o resultado foi: <title>vTitle</title>

Ou seja, nao fez nada, mas também nao deu erro!

E agora? Como se não tivesse passado por dentro do vTitle

-----------------------------------------------------------------------

Na ultima linha percebi meu erro: " "

Coloquei vTitle dentro da aspa por isso nao funcionou.

Agora resolvido.

LogName · Agosto 4, 2008

Os principais ponto que vi na migracao deste código:

Empty vira Nothing

Include vira Class dentro de App_Code

Dim tem que ser informado a função (aqui usei tudo As String) a não ser sobre a inclusão da classe que o querido (quintelab) me ajudou

Ficou assim agora:

Default.aspx

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<%
	Response.AddHeader("Pragma", "no-cache")
	Response.Buffer = True
	Response.CacheControl = "no-cache"
	Response.Expires = -1500
	Response.ExpiresAbsolute = Now()
	Session.LCID = 1046
	Session.Timeout = 20

	'Importando Class
	Dim vCaracter As New Caracter
	
	'Configuracoes
	Dim vDomain, vHead As String
	vDomain = "localhost" 'meudominio.com.br
	vHead = nothing

	'Links
	Dim vServer, vLink, vPagina, vTitle As String
	vTitle = "Migrando de Asp para Asp.NET"
	vServer = "http://" & Request.ServerVariables("SERVER_NAME")
	vLink = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
	If Request.ServerVariables("QUERY_STRING") <> Nothing Then vLink = vLink & "?" & Request.ServerVariables("QUERY_STRING")
	vPagina = Replace(Request.ServerVariables("URL"), ".asp", Nothing)

	'Links Funcoes
	Dim vFuncoes, vAsp, vCss, vJs, vSwf As String
	vFuncoes = vServer & "funcoes/"
	vAsp = vFuncoes & "asp/"
	vCss = vFuncoes & "css/"
	vJs = vFuncoes & "js/"
	vSwf = vFuncoes & "swf/"

	'Links Imagens
	Dim vImagens, vGif, vJpg, vIco, vPng As String
	vImagens = vServer & "imagens/"
	vGif = vImagens & "gif/"
	vJpg = vImagens & "jpg/"
	vIco = vImagens & "ico/"
	vPng = vImagens & "png/"

	'Informacoes da Pagina
	Dim vCopyright, vDescription, vKeywords As String
	vCopyright = "Aqui vai as descrições de Copyright para facilitar no RSS e SEO"
	vDescription = "Aqui vai as descrições de Copyright para facilitar no RSS e SEO"
	vKeywords = "Aqui vai as descrições de Copyright para facilitar no RSS e SEO"

	'Descarrega a medida que constroi
	Response.Flush()

	'Cabecalho pagina
	Response.Write("<?xml version=""1.0"" encoding=""iso-8859-1""?>" & vbCrLf)
	Response.Write("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & vbCrLf)
	Response.Write("<html xmlns=""http://www.w3.org/1999/xhtml"" xml:lang=""pt"" lang=""pt"">" & vbCrLf)
	Response.Write(" <head>" & vbCrLf)
	Response.Write("  <title>" & vCaracter.fncCharOut(vTitle) & "</title>" & vbCrLf)
	Response.Write("  <meta http-equiv=""charset"" content=""ISO-8859-1""/>" & vbCrLf)
	Response.Write("  <meta http-equiv=""conteudo-language"" content=""Portuguese""/>" & vbCrLf)
	Response.Write("  <meta http-equiv=""conteudo-type"" content=""application/xhtml+xml; charset=iso-8859-1""/>" & vbCrLf)
	Response.Write("  <meta http-equiv=""expires"" content=""never""/>" & vbCrLf)
	Response.Write("  <meta http-equiv=""imagetoolbar"" content=""no""/>" & vbCrLf)
	Response.Write("  <meta http-equiv=""pragma"" content=""no-cache""/>" & vbCrLf)
	Response.Write("  <meta http-equiv=""revisit-after"" content=""3 days""/>" & vbCrLf)
	Response.Write("  <meta name=""author"" content=""Lois Oliveira Gonzaga""/>" & vbCrLf)
	Response.Write("  <meta name=""copyright"" content=""" & vCaracter.fncCharOut(vCopyright) & """/>" & vbCrLf)
	Response.Write("  <meta name=""dc.language"" content=""pt-br""/>" & vbCrLf)
	Response.Write("  <meta name=""description"" content=""" & vCaracter.fncCharOut(vDescription) & """/>" & vbCrLf)
	Response.Write("  <meta name=""distribution"" content=""global""/>" & vbCrLf)
	Response.Write("  <meta name=""expires"" content=""never""/>" & vbCrLf)
	Response.Write("  <meta name=""generator"" content=""" & vCaracter.fncCharOut(vTitle) & " - v.9""/>" & vbCrLf)
	Response.Write("  <meta name=""googlebot"" content=""all""/>" & vbCrLf)
	Response.Write("  <meta name=""language"" content=""pt-br""/>" & vbCrLf)
	Response.Write("  <meta name=""keywords"" content=""" & vCaracter.fncCharOut(vKeywords) & """/>" & vbCrLf)
	Response.Write("  <meta name=""MSSmartTagsPreventParsing"" content=""true""/>" & vbCrLf)
	Response.Write("  <meta name=""rating"" content=""general""/>" & vbCrLf)
	Response.Write("  <meta name=""revisit-after"" content=""3 days""/>" & vbCrLf)
	Response.Write("  <meta name=""robots"" content=""all""/>" & vbCrLf)
	Response.Write("  <meta name=""title"" content=""" & vCaracter.fncCharOut(vTitle) & """/>" & vbCrLf)
	Response.Write("  <meta name=""url"" content=""" & vDomain & """/>" & vbCrLf)
	Response.Write("  <link rel=""shortcut icon"" href=""" & vIco & "favicon.ico""/>" & vbCrLf)
	Response.Write("  <link rel=""stylesheet"" href=""" & vCss & "tela.css"" type=""text/css""/>" & vbCrLf)
	Response.Write(vHead)
	Response.Write(" </head>" & vbCrLf)
	Response.Write(" <body>" & vbCrLf)
	Response.Write("  <div id=""estrutura"">" & vbCrLf)
	Response.Write("   <div id=""superior"">Aqui viria cabecalho</div>" & vbCrLf)
	Response.Write("   <div id=""conteudo"">Aqui vem o conteudo somente desta pagina dentro do vCaracter.fncCharOut</div>" & vbCrLf)
	Response.Write("   <div id=""rodape"">" & vbCrLf)
	Response.Write("	<a href=""http://validator.w3.org/check?uri=referer"" target=""_blank"" title=""Validação desta página conforme o padrão W3C/XHTML"">Validação XHTML</a> | " & vbCrLf)
	Response.Write("	<a href=""http://jigsaw.w3.org/css-validator/check/referer"" target=""_blank"" title=""Validação desta página conforme o padrão W3C/CSS"">Validação CSS</a>" & vbCrLf)
	Response.Write("   </div>" & vbCrLf)
	Response.Write("  </div>" & vbCrLf)
	Response.Write("  <noscript>O Browser não suporta o script escrito, atualize para Microsoft Internet Explorer 7, Mozilla Firefox 1.3, Opera 8.1, Safari 2.5 ou Flock 1.0, todos nestas versões ou superiores</noscript>" & vbCrLf)
	Response.Write(" </body>" & vbCrLf)
	Response.Write("</html>" & vbCrLf)
%>

App_Code\Caracter.vb

Imports Microsoft.VisualBasic

Public Class Caracter
	Function fncCharOut(ByVal vCharOut As String) As String
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, """""", """)
		' if vCharOut <> Nothing then vCharOut = Replace(vCharOut,"<","<")
		' if vCharOut <> Nothing then vCharOut = Replace(vCharOut,">",">")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "·", "·")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "&", "&")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "´", "´")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Á", "Á")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "á", "á")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Â", "Â")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "â", "â")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "À", "À")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "à", "à")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Ã", "Ã")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ã", "ã")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Ç", "Ç")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ç", "ç")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "É", "É")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "é", "é")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Ê", "Ê")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ê", "ê")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "È", "È")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "è", "è")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Í", "Í")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "í", "í")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Î", "Î")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "î", "î")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Ì", "Ì")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ì", "ì")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Ñ", "Ñ")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ñ", "ñ")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Ó", "Ó")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ó", "ó")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Ô", "Ô")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ô", "ô")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Ò", "Ò")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ò", "ò")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Õ", "Õ")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "õ", "õ")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Ú", "Ú")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ú", "ú")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Û", "Û")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "û", "û")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Ù", "Ù")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ù", "ù")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "Ý", "Ý")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ý", "ý")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "º", "º")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ª", "ª")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "ü", "ü")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "–", "–")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "©", "ˆ")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[h1]", "<h1>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/h1]", "</h1>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[h2]", "<h2>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/h2]", "</h2>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[h3]", "<h3>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/h3]", "</h3>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[h4]", "<h4>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/h4]", "</h4>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[h5]", "<h5>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/h5]", "</h5>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[b]", "<b>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/b]", "</b>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[i]", "<i>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/i]", "</i>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[u]", "<u>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/u]", "</u>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[p]", "<p>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/p]", "</p>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[ul]", "<ul>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/ul]", "</ul>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[ol type=""A""]", "<ol type=""A"">")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[ol type=""a""]", "<ol type=""a"">")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[ol type=""I""]", "<ol type=""I"">")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[ol type=""1""]", "<ol type=""1"">")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[ol]", "<ol>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/ol]", "</ol>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[li]", "<li>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/li]", "</li>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[center]", "<center>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/center]", "</center>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[a href", "<a href")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, """]", """>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[/a]", "</a>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[img", "<img")
		'If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "src=""", "src=""" & vImagens)
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[br/]", "<br/>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "[br /]", "<br/>")
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, "/]", "/>")
		' if vCharOut <> Nothing then vCharOut = Replace(vCharOut,vbcr,vbcrlf)
		' if vCharOut <> Nothing then vCharOut = Replace(vCharOut,vblf,vbcrlf)
		If vCharOut <> Nothing Then vCharOut = Replace(vCharOut, vbCrLf, "<br/>")
		fncCharOut = vCharOut
	End Function

End Class

Acho que é isso, agora quero aprender a conectar base de dados, access, mysql, mssql...

Bola pra frente

ALGUEM DEFINE COMO RESOLVIDO

Bju, Deus abençoe!!!

Lois Oliveira Gonzaga

LogName

quintelab · Agosto 4, 2008

Bom que deu certo!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Ja editei para RESOLVIDO!!

Abraços...

Arquivado

[Resolvido] Migração de ASP para ASP.NET (vb)

Recommended Posts

LogName 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

quintelab 91

Compartilhar este post

Link para o post

Compartilhar em outros sites

LogName 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

quintelab 91

Compartilhar este post

Link para o post

Compartilhar em outros sites

LogName 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

quintelab 91

Compartilhar este post

Link para o post

Compartilhar em outros sites

LogName 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

LogName 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

LogName 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

quintelab 91

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Implementar o Input CÓDIGO ou ID do Produto

recuperando parametros simplexml_load_file

PHP+Codeigniter - Adicionar Registro Plano de Contas

Fóruns

Tempo Real

Informação importante