<%
'---------------------------------
' 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 ")%>
sábado, 26 de julho de 2003
Formata Nome Completo
Marcadores: ASP4Developers
sábado, 19 de julho de 2003
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")%>
Marcadores: ASP4Developers
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")%>
Marcadores: ASP4Developers
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"%>
Marcadores: ASP4Developers
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")%>
Marcadores: ASP4Developers
quinta-feira, 3 de julho de 2003
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.
Marcadores: ASP4Developers
quarta-feira, 2 de julho de 2003
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>
Marcadores: ASP4Developers