ASP importação EXCEL – problemas campos numéricos com alfa-numéricos

Não esquecer de colocar ASPAS DUPLAS depois de “Extended Properties=”

“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=”"Excel 8.0;HDR=Yes;IMEX=1″”"

“HDR=Yes;” indicates that the first row contains columnnames, not data. “HDR=No;” indicates the opposite.

“IMEX=1;” tells the driver to always read “intermixed” data columns as text. Note that this option might affect excel sheet write access negative.

TIP! SQL syntax: “SELECT * FROM [sheet1$]” – i.e. worksheet name followed by a “$” and wrapped in “[" "]” brackets.

TIP! Check out the [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel] located registry REG_DWORD “TypeGuessRows”. That’s the key to not letting Excel use only the first 8 rows to guess the columns data type. Set this value to 0 to scan all rows. This might hurt performance.

Important note! The two double quota (“”) in the string are escaped quotas (VB syntax), you may have to change this to your language specific escape syntax (ex. \”) or maybe single quota (‘).

Auto-Link String

Achei essa ótima função em ASP para criar AUTO-LINKS em strings…. muito usado agora em sites como Twitter:

<%
'*********************************************
'* @TITLE: Regexp Autolink Function
'* @PACKAGE: Simple Classic ASP Twitter API
'* @AUTHOR: Ariel G. Saputra <webmaster@asp.web.id>
'* @DESCRIPTION: function to search and replace url in a text into clickable url
'* @DATE: May 15 2009
'*********************************************
function aspTwitterAutolink(strHtml)
Dim objRegex,strReturn
set objRegex = new regexp
objRegex.Pattern = "(\b(?:(?:https?|ftp|file)://|www\.|ftp\.)(?:\([-A-Z0-9+&@#/%=~_|$?!:,.]*\)|[-A-Z0-9+&@#/%=~_|$?!:,.])*(?:\([-A-Z0-9+&@#/%=~_|$?!:,.]*\)|[A-Z0-9+&@#/%=~_|$]))"
objRegex.IgnoreCase = true
objRegex.Global = true
strReturn = objRegex.Replace(strHtml, "<a href=""$1"" rel = ""nofollow"" target = ""_blank"">$1</a>")
set objRegex = nothing
aspTwitterAutolink = strReturn
end function
%>
<%
Dim strHtml
strHtml = "Just a test HTML text http://www.asp.web.id with valid url, https://php.web.id, regexp turn these links on!"
Response.Write aspTwitterAutolink(strHtml)
%>

<%'*********************************************'* @TITLE: Regexp Autolink Function'* @PACKAGE: Simple Classic ASP Twitter API'* @AUTHOR: Ariel G. Saputra <webmaster@asp.web.id>'* @DESCRIPTION: function to search and replace url in a text into clickable url'* @DATE: May 15 2009'*********************************************function aspTwitterAutolink(strHtml)Dim objRegex,strReturnset objRegex = new regexpobjRegex.Pattern = "(\b(?:(?:https?|ftp|file)://|www\.|ftp\.)(?:\([-A-Z0-9+&@#/%=~_|$?!:,.]*\)|[-A-Z0-9+&@#/%=~_|$?!:,.])*(?:\([-A-Z0-9+&@#/%=~_|$?!:,.]*\)|[A-Z0-9+&@#/%=~_|$]))"objRegex.IgnoreCase = trueobjRegex.Global = truestrReturn = objRegex.Replace(strHtml, "<a href=""$1"" rel = ""nofollow"" target = ""_blank"">$1</a>")set objRegex = nothingaspTwitterAutolink = strReturnend function%>

<%Dim strHtmlstrHtml = "Just a test HTML text http://www.asp.web.id with valid url, https://php.web.id, regexp turn these links on!"Response.Write aspTwitterAutolink(strHtml)%>

Comparando DATAS em ASP – comando: “cdate”

<%@ Language="VBScript" %>

<form name="form" method="post" action="?data=ok">
Data da Ocorrência: <input type="text" name="dataoco" value="" /><br />
Data Informada: <input type="text" name="datainformada" value="<%=Date%>">
<input type=submit value="botao" >
</form>

<%
if (request.QueryString("data") = "ok") then

        dataoco = Day(request.Form("dataoco")) & "/" & Month(request.Form("dataoco")) & "/" & Year(request.Form("dataoco"))
        datainformada = Day(request.Form("datainformada")) & "/" & Month(request.Form("datainformada")) & "/" & Year(request.Form("datainformada"))

        if cdate(dataoco) <= cdate(datainformada) then
                response.write "data menor, está OK"
        Else
                response.Write "data maior, está ERRADO"
        end if

end if
%>

Tirar Acentuação em ASP

Function TiraAcento(ByVal Palavra)
        cacento = “àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ^~´`’”
        sacento = “aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN”
        texto = “”
        If Palavra <> “” Then
            For x = 1 To Len(Palavra)
                letra = Mid(Palavra, x, 1)
                pos_acento = InStr(cacento, letra)
                If pos_acento > 0 Then
                    letra = Mid(sacento, pos_acento, 1)
                End If
                texto = texto & letra
            Next
            TiraAcento = texto
        End If
    End Function

————————————————————————————
chamando a função

CODEresponse.write(TiraAcento(“fórum Imasters.Programação é tudo”))

Gerando senha aleatórias

‘Nesta constante eu determino que letras e números serão utilizados para gerar a senha aleatória.
Const szDefault = “abcdefghijklmnopqrstuvxz0123456789″

‘Aqui eu chamo o comando Randozime do ASP para gerar um valor randômico para a nossa senha 
Randomize

‘Passa para a variavel os caracteres da seguencia szDefault e pego o tamanho da string para a variável nLenght 
sValidChars = szDefault 
nLength = Len( sValidChars ) 

‘Agora é a hora onde o script vai fazer um loop de 1 até 6 para gerar uma senha com 6 dígitos, caso necessite de uma senha com mais dígitos troque o valor 6 
For nCount = 1 To 6

‘Nesta linha o Script pega um número aleatório para buscar a posição dentro da constante trazendo o caracter correspondente a esta posição 
nNumber = Int((nLength * Rnd) + 1)

‘Acrescento a variável sRet o valor dela adicionado com o caracter encontrado dentro da constante
sRet = sRet & Mid( sValidChars, nNumber, 1 )

Passo para o próximo loop 
Next

Utilize Server.Transfer ao invés de Response.Redirect

Vocês certamente já utilizam a instrução Response.Redirect, que faz o desvio da execução para uma determinada página. Porém o Response.Redirect tem sérios problemas de performance: 

Quando vocês utilizam o Response.Redirect é enviado um pacote HTTP para o browser do usuário. Esse pacote contém uma instrução de redirecionamento. 

O Browser, então, solicita ao servidor o endereço recebido na instrução de redirecionamento, gerando o efeito desejado. 

Toda essa comunicação entre servidor e client pode ser evitada. O ASP 3.0 (Windows 2000) possui um método no objeto Server chamado Transfer. O método Transfer transfere a execução para uma outra página, assim como o Response.Redirect. 

A diferença do Transfer é que ele faz a transferência da execução dentro do servidor, sem transmitir pacotes para o browser do usuário. Isso torna a aplicação bem mais ágil. 

Veja : 

Server.Transfer(“home.asp”) 

By: http://www.bufaloinfo.com.br/dicas.asp?cod=106

Server.HTMLEncode

Server.HTMLEncode é uma função que serve para codificar uma string em HTML. Ah está tudo bem. E pra que raios serve isso? Bem aqui vai um exemplo prático:

Suponha que você tenha um site que permita o usuário cadastrar-se à vontade. Então, um engraçadinho resolve cadastrar o nome dele da seguinte maneira:

<font color=”red” style=”font-size: 30pt”>Adriano Nântua</font>

Pronto. De agora em diante, toda vez que o nome dele for escrito no site estará vermelho e bem grande, diferente das outras pessoas (isso se o palhaço não resolver botar tamanho 800 e esculhambar de vez o seu site).

Para evitar isso, na hora de escrever o nome, ao invés de fazer o usual:

<%=nome%>

faça o funcional:

<%=Server.HtmlEncode(nome)%>

Desta maneira, nome do espertinho, será escrito da mesma maneira que ele informou, pois a função codifica a string em HTML, escrevendo &lt; ao invés de <.

Obviamente, a função não serve somente para se proteger de usuários humoristas. Em geral serve para que os caracteres cadastrados sejam escritos fielmente.
Imagine que você vá jogar a string O filme “A Rocha” ganhou 20 prêmios no value de um input de texto. Só vai dar O Filme, pois o browser vai ler o ” como fim do value, e o resto da string vai ficar fazendo sujeira na Tag. Um desmantelo.
Basta usar, então, o Server.HTMLEncode para consertar as coisas.

Fonte: ASP4DEVELOPERS 

Transferir resultados de uma janela secundária para a principal

Arquivo: pagina1.asp

<!DOCTYPE HTML PUBLIC “-//W3C//DTD HTML 4.0 Transitional//EN”>
<html>
<head>
<title> Janela Principal </title>
</head>
<script>
function nome()
{
window.name=’pagina1′;
}

function AbrirJanela()
{
var DialogWidth  = 400;
var DialogHeight = 325;
window.showModalDialog(‘pagina2.asp’,”",”dialogHeight:” + DialogHeight + “px; dialogWidth:” + DialogWidth + “px; dialogTop: px; dialogLeft: px; edge: Raised; center: Yes; help: No; resizable: Yes; scroll: Yes; status: No; unadorned: Yes; “);
}
</script>
<body>
<%
response.write “Nome: ” & session(“nome”) & “<br>”
response.write “E-mail: ” & session(“email”) & “<br>”
response.write “Senha: ” & session(“senha”)
%>
<hr>
<a href=”javascript:nome(),AbrirJanela()”>Abrir Janela</a>

</body>
</html>

Arquivo: pagina2.asp
<%
if request(“cmd”) = “verifica” then
session(“nome”)  = request(“nome”)
session(“email”) = request(“email”)
session(“senha”) = request(“senha”)
response.redirect “pagina1.asp”
end if
%>
<html>

<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=windows-1252″>
<meta name=”GENERATOR” content=”Microsoft FrontPage 4.0″>
<meta name=”ProgId” content=”FrontPage.Editor.Document”>
<title>Página 2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</title>
<script type=”text/javascript”>
function toupper(campo)
{
campo.value = campo.value.toUpperCase();
}

function Insere (digito)
{
// alert(digito.value);
document.form.senha.value=document.form.senha.value+digito.value;

}

function CheckForm ()
{
if (document.form.nome.value==”")
{
alert(“Informe o nome!”);
document.form.nome.focus();
return false;
}
else if (document.form.email.value==”")
{
alert(“Informe o email!”);
document.form.email.focus();
return false;
}

window.close();
return true
}
</script>
</head>

<body scroll=”no” bgcolor=”#C0C0C0″ topmargin=”0″ leftmargin=”0″>
<form action=”pagina2.asp?cmd=verifica” method=”post” name=”form” target=”pagina1″ OnSubmit=”return CheckForm();”>
<table border=”0″ width=”100%” height=”325″ cellspacing=”0″ cellpadding=”0″>
  <tr>
    <td width=”100%” height=”19″ bgcolor=”#808080″ valign=”top”>&nbsp;</td>
  </tr>
  <tr>
    <td width=”100%” height=”220″ valign=”top”>
      <table border=”0″ width=”100%”>
        <tr>
          <td width=”100%”><font size=”2″ face=”Verdana”>Nome:</font></td>
        </tr>
        <tr>
          <td width=”100%”><font size=”2″ face=”Verdana”><input type=”text” name=”nome” size=”44″></font></td>
        </tr>
        <tr>
          <td width=”100%”><font size=”2″ face=”Verdana”>E-mail:</font></td>
        </tr>
        <tr>
          <td width=”100%”><font size=”2″ face=”Verdana”><input type=”text” name=”email” size=”44″></font></td>
        </tr>
        <tr>
          <td width=”100%”><font size=”2″ face=”Verdana”>Senha:</font></td>
        </tr>
        <tr>
          <td width=”100%”><font size=”2″ face=”Verdana”><input type=”text” name=”senha” size=”44″></font></td>
        </tr>
        <tr>
          <td width=”100%” align=”center”>
  <%for i = 0 to 9%>
  <input type=”button” name=”caracter<%=i%>” value=”<%=i%>” onclick=”Insere(this)”>
  <%next%>
  </td>
        </tr>
        <tr>
          <td width=”100%” align=”center”>
  <%for i = 65 to 77%>
  <input type=”button” name=”caracter<%=chr(i)%>” value=”<%=chr(i)%>” onclick=”javascript:Insere(this)”>
  <%next%>
  </td>
        </tr>
        <tr>
          <td width=”100%” align=”center”>
  <%for i = 78 to 90%>
  <input type=”button” name=”caracter<%=chr(i)%>” value=”<%=chr(i)%>” onclick=”javascript:Insere(this)”>
  <%next%>
  </td>
        </tr>
        <tr>
          <td width=”100%”>
            <p align=”center”><font size=”2″ face=”Verdana”><input type=”submit” value=”Enviar”>&nbsp;
            <input type=”reset” value=”Limpar”></font></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width=”100%” height=”1″ bgcolor=”#FFFFFF” valign=”top”></td>
  </tr>
  <tr>
    <td width=”100%” height=”68″ bgcolor=”#808080″ valign=”top”>&nbsp;</td>
  </tr>
</table>
</form>
</body>

</html>

Criando RSS Feed com banco de dados no Dreamweaver usando ASP

O RSS (Really Simple Syndication) é um ótimo recurso para a divulgação imediata das últimas atualizações de um determinado site (feed) através dos chamados “leitores de RSS”. Os arquivos RSS Feed são escritos em XML em possuem um formato padrão mundial. Obtenha maiores informações sobre RSS Feeds no endereço http://www.rssficado.com.br. Para criar um RSS Feed contendo as últimas manchetes publicadas em um site com o Macromedia Dreamweaver MX 2004 (em ASP) basta seguir os passos a seguir (esse procedimento também é válido para as versões Ultradev e MX do Dreamweaver).Supondo que o site já esteja devidamente definido no Dreamweaver, o próximo passo é montar um banco de dados que armazerá as notícias. Esse exemplo utiliza o Microsoft Access 2000 para esse armazemento. A estrutura do banco de dados a ser usada como exemplo é: Tabela ‘news’ Campo ‘new_code’ – Autonumeração Campo ‘new_date – Data Campo ‘new_title’ – Texto Campo ‘new_resume’ – Texto Campo ‘new_body’ – Texto longo O arquivo DB será salvo no diretório ‘root/data’. O banco deve ser alimentado com no mínimo quatro notícias para que esse exemplo torne-se funcional. É importante preencher o campo ‘new_date’ com datas alternadas para que se identifique as notícias mais recentes. Agora cria-se o arquivo ‘generate.asp’ que deve ser salvo na pasta root do site. Feito isso, define-se agora uma conexão do site com o banco de dados usando a aba ‘Database’ do painel ‘Application’. String para uma conexão do tipo ‘Custom Connection String’ usando OLEDB (melhor performance!): Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\site\data\data.mdb Cria-se agora no arquivo ‘generate.asp’ um recordset que irá apontar quais notícias deverão ser mostradas no arquivo RSS (as mais recentes!). A configuração do recordset usará o campo ‘new_date’ (ordem decrescente) para fazer essa definição. O diretório root do site deve possuir um subdiretório chamado ‘rss’ (‘root/rss’). Alternando o modo de edição do arquivo ‘generate.asp’ (botão ‘Show Code View’) insira o código ASP a seguir logo abaixo das linhas que definem o recordset da página: <% dim var_path, var_file, var_count var_path = server.mappath(“rss”) var_file = var_path & “\” & “news.xml” var_count = 0 set objfso = server.createobject(“scripting.filesystemobject”) set objtstream = objfso.createtextfile(var_file, true) objtstream.writeline “<?xml version=”&chr(34)&”1.0″&chr(34)&” encoding=”&chr(34)&”ISO-8859-1″&chr(34)&”?>” objtstream.writeline “<rss version=”&chr(34)&”2.0″&chr(34)&”>” objtstream.writeline “<channel>” objtstream.writeline “<title>titulo do site</title>” objtstream.writeline “<link>http://www.site.com</link>” objtstream.writeline “<description>descricao do site</description>” objtstream.writeline “<language>pt-br</language>” while (var_count < 3) and (not rs_news.eof) objtstream.writeline “<item>” objtstream.writeline “<title>”&rs_news.fields.item(“new_title”).value&”</title>” objtstream.writeline “<link>http://www.site.com/news.asp?code=”&rs_news.fields.item(“new_code”).value&”</link>” objtstream.writeline “<description>”&rs_news.fields.item(“new_resume”).value&”</description>” objtstream.writeline “</item>” var_count = var_count + 1 rs_news.movenext() wend objtstream.writeline “</channel>” objtstream.writeline “</rss>” objtstream.close Set objtstream = nothing Set objfso = nothing %>Explicação das partes do código inserido: dim var_path, var_file, var_count var_path = server.mappath(“rss”) var_file = var_path & “\” & “news.xml” var_count = 0- Declaração das variáveis a serem usadas no processo; ‘var_path’ retorna o caminho físico do diretório ‘rss’ que armazenará o arquivo XML a ser gerado, ‘var_file’ define qual vai ser o nome desse arquivo e ‘var_count’ será usado para orientar a função while do ASP que será usada logo adiante; set objfso = server.createobject(“scripting.filesystemobject”) set objtstream = objfso.createtextfile(var_file, true)- Inicia o objeto ASP FileSystemObject que irá criar o arquivo XML; objtstream.writeline “<?xml version=”&chr(34)&”1.0″&chr(34)&” encoding=”&chr(34)&”ISO-8859-1″&chr(34)&”?>” objtstream.writeline “<rss version=”&chr(34)&”2.0″&chr(34)&”>” objtstream.writeline “<channel>” objtstream.writeline “<title>titulo do site</title>” objtstream.writeline “<link>http://www.site.com</link>” objtstream.writeline “<description>descricao do site</description>” objtstream.writeline “<language>pt-br</language>” while (var_count < 3) and (not rs_news.eof) objtstream.writeline “<item>” objtstream.writeline “<title>”&rs_news.fields.item(“new_title”).value&”</title>” objtstream.writeline “<link>http://www.site.com/news.asp?code=”&rs_news.fields.item(“new_code”).value&”</link>” objtstream.writeline “<description>”&rs_news.fields.item(“new_resume”).value&”</description>” objtstream.writeline “</item>” var_count = var_count + 1 rs_news.movenext() wend objtstream.writeline “</channel>” objtstream.writeline “</rss>”- Instruções para e estruturação em XML (1.0) do novo arquivo no formato usado para RSS Feeds (2.0). A função while conta somente três registros do recordset (últimas notícias…) e torna o processo de restauração (atualização) do RSS automático. As informações acima do while são referentes ao site exemplo e devem ser substituídas por informações do site que utiliza esse recurso; objtstream.close Set objtstream = nothing Set objfso = nothing- Finaliza o objeto ASP FileSystemObject. OBSERVAÇÃO: Nesse exemplo leva-se em consideração que o site possui um arquivo chamado ‘news.asp’ que mostra as notícias do site utilizando a variável de url ‘code’. Sempre que o arquivo ‘generate.asp’ for executado no servidor cria-se um novo RSS Feed -XML (news.xml) automaticamente no diretório ‘rss’. Alternando o modo de edição do arquivo ‘generate.asp’ agora para ‘Show Design View’ (botão) insere-se na página um link apontando para ‘rss/news.xml’. O último passo é aplicar o recurso de RSS no site. Para tal, basta inserir o código a seguir dentro da tag head (<head>) do documento que irá oferecer esse recurso ao visitante: <link rel=”service.feed” type=”application/atom+xml” title=”RSS title” href=”rss/news.xml”>* Deve-se subtituir ‘RSS title’ pelo nome do RSS do site (Ex.: Últimas notícias do site em RSS). Esse código leva em consideração que o documento que recebeu essas linhas encontra-se no root do site (Ex.: http:www.site.com/INDEX.ASP). Veja a seguir como testar o RSS Feed usando o navegador Mozilla Firefox 1.0.4: Ao acessar páginas com esse recurso o navegador exibe automaticamente um ícone de RSS no canto inferior direito da janela, na barra de status. Para ver ler e acessar as notícias contidas no RSS basta adicionar o mesmo aos favoritos clicando em cima do ícone. OBSERVAÇÃO: Clicando no link criado em ‘generate.asp’ o navegador mostra o código XML gerado para o RSS Feed. Observe que o arquivo recebeu apenas as últimas três notícias pela ordem de data. James Clebio – http://www.linhadecodigo.com.br/Artigo.aspx?id=723

Request.ServerVariables

Sintaxe: Request.ServerVariables(variavel)

Variavel : especifica o nome das variáveis do ambiente do servidor a retornar

Path_info – Armazena a informação do caminho da URL requisitada pelo navegador.(Não armazena a raiz do diretório do endereço URL.) CONTENT_LENGHT – permite determinar a extensão do conteúdo da solicitação HTTP do cliente usando o método POST. Query_String – Contém os parâmetros passados como parte de uma requisição a uma URL . (Tudo depois de um “? ” é armazeando) SERVER_NAME – Fornece o nome do servidor contido na URL da página atual. HTTP_UA_COLOR – Indica o número de cores disponíveis na máquina do usuário. HTTP_UA_PIXELS – Contém a resolução da tela do navegador que fez a requisição. REMOTE _ADRR – O endereço IP do host remoto que esta solicitando o serviço. REMOTE _HOST – O nome do host que esta fazendo a solicitação do serviço. LOGON_USER – A conta no Windows NT no qual o usuário esta logado. HTTP_UA_OS – O nome e a versão do software servidor que está respondendo ao pedido. AUTH_TYPE - O método de autenticação que o servidor usa para validar usuários quando eles tentam acessar um script protegido. LOGON_USER - A conta no Windows NT do usuário. SERVER_PORT – O número da porta da qual a requisição foi enviada SERVER_PROTOCOL – O nome e a versão para o protocolo de informação. SERVER_SOFTWARE – O nome e a versão do software do servidor. SCRIPT_MAP – Informa a base da URL SCRIPT_NAME – Informa todo o caminho virtual para o roteiro presente. REQUEST_ADDR – Informa o endereço IP do host remoto que fez a requisição. REQUEST_METHOD – O método usado para fazer a requisição.(GET, POST, etc..)