sábado, 24 de maio de 2003

0

Abrir Nova Janela (centralizada)

<A HREF="javascript:void(0)" OnClick="janelacentralizada('pagina.htm','nome','500','300');return false;">
Abrir nova janela centralizada
</A>


<SCRIPT LANGUAGE=javascript>


function janelacentralizada(pagina, nomedajanela, w, h) {


 var winl = (screen.width - w) / 2;
 var wint = (screen.height - h) / 2;
 winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',status=no,scrollbars=no,resizable=no,menubar=no'
 
 win = window.open(pagina, nomedajanela, winprops)
     
 if (parseInt(navigator.appVersion) >= 4) {
         win.window.focus();
     }


}


</SCRIPT>


 



Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...

sexta-feira, 9 de maio de 2003

0

Tutoriais Online

Tutoriais online

Inclusive tutoriais relacionados à programação, banco de dados, engenharia, analise, modelagem.


www.tol.pro.br


Muito bom mesmo



Esta matéria foi postada originalmente no ASP4Developers por Thiago Machado Souza (site), que na época era "Programador Desbravador, buscando quebrar todas as fronteiras além do horizonte da arte de programar !
www.thiagomachado.com.br". Hoje, vai saber...

0

Paginar ARQUIVOS usando FSO

<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit


Response.Expires = 0 
Response.Buffer  = True


'PAGINAÇÃO DE ARQUIVOS USANDO ARRAY x FSO
Dim iLoop, limite, pagina, totalarq, i
Dim vlMaximo, vlMinimo, anterior
Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta


Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")
Set ObjPasta = ObjFso.GetFolder(server.MapPath("avatar"))


limite  = 10       ' limite de registros por página
totalarq = ObjPasta.files.count   ' total de arquivos encontrados


 ReDim arrAvatar((totalarq-1))
 Dim y
 y = 0


 ' guardamos cada arquivo dentro de um array
 For Each ObjArq in ObjPasta.Files  
  arrAvatar(y) = objArq.Name
  y = y + 1 
 Next
  
 Set ObjPasta = Nothing
 Set ObjArq = Nothing
 Set ObjFso = Nothing


 pagina = Request("pag")
 IF pagina = "" Then
  IF limite < UBound(arrAvatar) Then
   vlMinimo = 0
   vlMaximo = (limite-1)
  Else
   vlMinimo = LBound(arrAvatar)
   vlMaximo = UBound(arrAvatar)
  End IF
  pagina = 1
  anterior = ""
 Else
  vlMinimo = (pagina*(limite-1))+(pagina)
  vlMaximo = ((limite-1)*(pagina+1))+((pagina)*1)
  IF vlMaximo > UBound(arrAvatar) Then vlMaximo = UBound(arrAvatar)
  pagina = pagina + 1
  anterior = pagina - 2
  IF anterior = 0 Then anterior = ""
 End IF


 IF vlMinimo = 0 Then
  IF Not (vlMaximo >= (y-1)) Then
   response.write "<a href='paginarArq.asp?pag="& pagina &"'>próxima</a><br>"
  End IF
 Else
  IF Not (vlMaximo >= (y-1)) Then
   response.write "<a href='paginarArq.asp?pag="& pagina &"'>próxima</a><br>"
  End IF
  response.write "<a href='paginarArq.asp?pag="& anterior &"'>anterior</a>"
 End IF


 response.write "<br><br>"
 For i = vlMinimo to vlMaximo
  response.write (i+1) &") "
  response.write arrAvatar(i) &"<br>"
 Next
%>



Esta matéria foi postada originalmente no ASP4Developers por Marcio Lima (Guardião) (site), que na época era "Programador ASP e VBA, apaixonado por Design, futurismo e ficção.
". Hoje, vai saber...

quinta-feira, 8 de maio de 2003

0

Quebra texto após um determinado número de caracteres

<%
'--------------------------------------------------
' Função: Quebra texto após o limite de caracteres
' Autor: Régis Soares
' E-mail: regis_soares@hotmail.com
' Para Usar:
' texto = String
' limite = Num. de caracteres por linha
' Exemplo: QuebraTexto("Active Server Pages",5)
' Última Atualização: 19/07/2003
'--------------------------------------------------
Function QuebraTexto(texto,limite)
 aTexto = Split(texto, " ")
 For i = LBound(aTexto) To UBound(aTexto)
  If Len(aTexto(i)) > 0 Then nTexto = nTexto & " " & aTexto(i)
 Next
 texto = Trim(nTexto)
 pos = 1
 For I = pos To Len(texto) Step limite
  nTexto = Mid(texto,pos,limite) & "<br>" & vbcrlf
  QuebraTexto = QuebraTexto & nTexto
  pos = pos + limite
 Next
End Function
%>
<%= QuebraTexto("Active Server Pages",5)%>



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

Paginação

<%
'----------------------------------
' Script: Paginação Simples
' Autor: Régis Soares
' E-mail: regis_soares@hotmail.com
' ICQ: 161916543
'----------------------------------


' Definindo o caminho do banco de dados
caminho = "paginacao.mdb"


' Fazendo a conexão com o banco de dados (paginacao.mdb)
set conn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho)
conn.Open DSN


' String SQL para consulta
SQL = "SELECT * FROM nomes ORDER BY nome"


' Abrindo o registro
SET RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL,conn,3


' Se não encontrar nada escreve a mensagem
' Senão lista os registros
If RS.EOF Then
 Response.Write("Nenhum registro foi encontrado")
Else
 ' Definindo o número de registros por página
 RS.PageSize = 2
 
 ' Recupera o valor da variável pagina
 pagina = Request.QueryString("pagina")
 
 ' Se a variável pagina for vazio, indica que a página sera a primeira
 ' Senão a variável pagina recebe o valor da página corrente, definida acima
 If pagina = "" Then
  RS.AbsolutePage = 1
  pagina = 1
 Else
  RS.AbsolutePage = pagina
 End If
 
 ' Imprime o número de registros, o total de páginas e a página atual
 Response.Write("<p align='center'>Foram encontrados <b>" & RS.RecordCount & "</b> registros" & vbcrlf )
 Response.Write("<br>Mostrando página <b>" & pagina & "</b> de <b>" & RS.PageCount & "</b></p>" & vbcrlf )
 
 While Not RS.EOF AND cont < RS.PageSize
  Response.Write( rs("nome") & "<br>" & vbcrlf )
  cont = cont + 1
  RS.MoveNext
 Wend
 
 ' Criando a barra de navegação
 
 ' Se a variável pagina for maior que 1 então imprime o botão Anterior com link
 ' Senão imprime sem link
 If CInt(pagina) > 1 Then
  Response.Write("<p align='center'><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ")
 Else
  Response.Write("<p align='center'>Anterior")
 End If
 
 ' Lista todas as páginas encontradas
 For i = 1 To rs.PageCount
  response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")
 Next
 
 ' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link
 ' Senão imprime sem link
 If CInt(pagina) < rs.PageCount Then
  Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></p>")
 Else
  Response.Write("Próxima</p>")
 End If
End If


' Fecha e destroi os objetos RS e conn
RS.Close : conn.Close
Set RS = Nothing : Set conn = Nothing
%>



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

Colocar X palavras do texto em negrito

<%
'----------------------------------
' Função: X Palavras Em Destaque
' Autor: Régis Soares
' E-mail: regis_soares@hotmail.com
' Para Usar:
' texto = String
' xPalavras = Num. de palavras
'   em destaque
' Exemplo:
' Destaca("Active Server Pages",1)
' Última Atualização: 19/07/2003
'----------------------------------
Function Destaca(texto,xPalavras)
 aTexto = Split(texto, " ")
 For i = LBound(aTexto) To UBound(aTexto)
  If Len(aTexto(i)) > 0 Then nTexto = nTexto & " " & aTexto(i)
 Next
 texto = Trim(nTexto)
 x = 1
 For i = 1 To xPalavras
  busca = InStr(x,Trim(texto)," ")
  If busca > 0 Then y = y + 1
  x = busca + 1
 Next
 If y < xPalavras Then
  Destaca = "<b>" & texto & "</b>"
 Else
  Destaca = "<b>" & Mid(texto,1,x-1) & "</b>" & Mid(texto, x)
 End If
End Function
%>
<%= Destaca("Active Server Pages",1)%>



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...