sábado, 26 de julho de 2003

0

Formata Nome Completo

<%
'---------------------------------
' Função: Formata Nome Completo
' Autor: Régis Soares
' E-mail: regis_soares@hotmail.com
' Data de Criação: 26/07/2003
'---------------------------------
Function FormataNome(Nome)
 aNome = Split(Nome)
 For i = LBound(aNome) To UBound(aNome)
  If Len(aNome(i)) > 0 Then
   nNome = nNome & " " & UCase(Mid(aNome(i),1,1)) & _
    LCase(Mid(aNome(i),2))
  End If
 Next
 FormataNome = Trim(nNome)
End Function
%>
<%= FormataNome("   aCtIvE    sErVeR     pAgEs    ")%>



Esta matéria foi postada originalmente no ASP4Developers por Régis da Silva Soares, que na época era "Programador ASP e PHP". Hoje, vai saber...

sábado, 19 de julho de 2003

1

Remove espaços desnecessários do texto

<%
'---------------------------------------
' Função: Remove Espaços Desnecessários
' Autor: Régis Soares
' E-mail:
regis_soares@hotmail.com
' Data De Criação: 19/07/2003
'---------------------------------------
Function PreparaTexto(texto)
 aTexto = Split(texto, " ")
 For i = LBound(aTexto) To UBound(aTexto)
  If Len(aTexto(i)) > 0 Then nTexto = nTexto & " " & aTexto(i)
 Next
 PreparaTexto = Trim(nTexto)
End Function
%>
<%= PreparaTexto("Active     Server    Pages")%>


Esta matéria foi postada originalmente no ASP4Developers por Régis da Silva Soares, que na época era "Programador ASP e PHP". Hoje, vai saber...

3

Pega extensão do arquivo II

<%
'-----------------------------------------
' Função: Verifica se a extensão é válida
' Autor: Régis Soares
' E-mail:
regis_soares@hotmail.com
' Data De Criação: 19/07/2003
' Para Usar:
' arquivo = Nome do arquivo
' extensoes = Extensões permitidas
'   separadas por vírgula
' Exemplo:
' IsExtension("figura.jpg","jpg,gif,bmp")
'-----------------------------------------
Function IsExtension(arquivo,extensoes)
 aExts = Split(extensoes,",")
 erro = True
 For i = LBound(aExts) To UBound(aExts)
  If Trim(LCase(aExts(i))) = LCase(Mid(arquivo, InStrRev(arquivo,".")+1)) Then
   erro = False
  End If
 Next
 If Not erro Then
  IsExtension = True
 Else
  IsExtension = False
 End If
End Function
%>
<%= IsExtension("figura.jpg","jpg,gif,bmp")%>
<%
'----------------------------------
' Função: Pega Extensão
' Autor: Régis Soares
' E-mail:
regis_soares@hotmail.com
' Data De Criação: 19/07/2003
'----------------------------------
Function GetExtension(arquivo)
 If Len(InStrRev(arquivo, ".")) > 0 Then
  If Len(Mid(arquivo, InStrRev(arquivo, "."))) > 1 Then
   GetExtension = Mid(arquivo, InStrRev(arquivo, "."))
  End If
 End If
End Function
%>
<%= GetExtension("figura.jpg")%>


Esta matéria foi postada originalmente no ASP4Developers por Régis da Silva Soares, que na época era "Programador ASP e PHP". Hoje, vai saber...

0

Função para enviar e-mail

<%
'---------------------------------
' Função: Enviar E-mail (CDONTS)
' Autor: Régis Soares
' E-mail:regis_soares@hotmail.com
'---------------------------------
Function Email(de, para, assunto, mensagem)
 Set mail = Server.CreateObject("CDONTS.NewMail")
 mail.From = de
 mail.To = para
 mail.Subject = assunto
 mail.Body = mensagem
 mail.BodyFormat = 0
 mail.MailFormat = 0
 mail.Send
 Set mail = Nothing
End Function
%>
<%Email "
de@email.com.br", "para@email.com.br", "Assunto", "Mensagem"%>

Esta matéria foi postada originalmente no ASP4Developers por Régis da Silva Soares, que na época era "Programador ASP e PHP". Hoje, vai saber...

1

Idade

<%
'----------------------------------
' Função: Verifica Idade
' Autor: Régis Soares
' E-mail: regis_soares@hotmail.com
' Data De Criação: 19/07/2003
'----------------------------------
Function Idade(Data)
 Session.LCID = 1046
 If IsDate(Data) Then
  Data = FormatDateTime(Data,2)
  aData = Split(Data,"/")
  Data = aData(0)&"/"&aData(1)&"/"&Year(Now)
  Idade = Year(Now) - aData(2)
  If DateDiff("d",Date(),Data) > 0 Then Idade = Idade - 1
 Else
  Idade = "Data Inválida"
 End If
End Function
%>
<%= Idade("27/07/1983")%>



Esta matéria foi postada originalmente no ASP4Developers por Régis da Silva Soares, que na época era "Programador ASP e PHP". Hoje, vai saber...

quinta-feira, 3 de julho de 2003

1

Verificando as Variáveis do servidor

Para verificar todas as variáveis do servidor, incluindo arquivo atual que está rodando, ip de quem está acessando entre outros, rode o seguinte script em seu servidor:


<HTML>
<BODY BGCOLOR="#FFFFFF">
<TABLE BORDER=0 WIDTH=100%>
<TR>
<TD BGCOLOR="#CCCCCC"><B>Nome do Campo</B></TD>
<TD><B>Valor do Campo</B></TD>
</TR>
<%
for each item in request.servervariables
%>
<TR><TD BGCOLOR="#CCCCCC"><%=item%></TD>
<TD><%=request.servervariables(item)%></TD><TR>
<%
next
%>
</TABLE>
</BODY>
</HTML>


Salve este script como um arquivo .asp e execute.



Esta matéria foi postada originalmente no ASP4Developers por Bernardo Heynemann (site), que na época era "Oracle Certified Professional em Oracle 8i, Certificado Oracle 9i New Features, Desenvolvedor VB (6 anos)/ ASP(5 anos) / VBScript(5 anos) / JavaScript(5 anos).". Hoje, vai saber...

quarta-feira, 2 de julho de 2003

0

Desmarcar todas as checks com um clique

<HTML>
<HEAD>
<SCRIPT LANGUAGE="JavaScript">
  var checkflag = "false";
  function check(field) {
   if (checkflag == "false") {
    for (i = 0; i < field.length; i++) {
     field[i].checked = true;}
     checkflag = "true";
    return "Uncheck All";}
   else {
    for (i = 0; i < field.length; i++) {
     field[i].checked = false;}
     checkflag = "false";
    return "Check All";}
  }
  </script>
</HEAD>


<BODY>
<FORM NAME="form1">
<INPUT TYPE="checkbox" name="teste" OnClick="check(document.form1.teste);">
<INPUT TYPE="checkbox" name="teste">
<INPUT TYPE="checkbox" name="teste">
<INPUT TYPE="checkbox" name="teste">
<INPUT TYPE="checkbox" name="teste">
</FORM>
</BODY>
</HTML>



Esta matéria foi postada originalmente no ASP4Developers por Bernardo Heynemann (site), que na época era "Oracle Certified Professional em Oracle 8i, Certificado Oracle 9i New Features, Desenvolvedor VB (6 anos)/ ASP(5 anos) / VBScript(5 anos) / JavaScript(5 anos).". Hoje, vai saber...