Ted k’ É assim que tem que ser! Programando em ASP, ASP.NET, PHP, CSS, dentre outras…


25
Jul/082


Criando XML pelo ASP

Script simples de criação de arquivos .XML, todo comentado

<%
ArquivoXML = "criado.xml" 'adicionando um nome no arquivo
Set FSO = CreateObject("Scripting.FileSystemObject") 'criando o objeto FSO
Set Linhas = FSO.CreateTextFile(Server.MapPath(ArquivoXML), True) 'salvando o arquivo no servidor através do método "CreateTextFile"
'gerando linas
	Linhas.WriteLine("<?xml version=""1.0""?>")
	Linhas.WriteLine("<container>")
	Linhas.WriteLine("<tag_01>TEXTO DA TAG 01</tag_01>" )
	Linhas.WriteLine("<tag_02>TEXTO DA TAG 02</tag_02>" )
	Linhas.WriteLine("<tag_03>TEXTO DA TAG 03</tag_03>" )
	Linhas.WriteLine("</container>")
'destruíndo os objetos
Linhas.Close
Set Linhas = Nothing
%>

Pode ser adicionado um LOOP ou simplismente adicionar com o banco de dados!

Tagged as: , , , , , ,
2 Comentários
25
Feb/080


Imagens Aleatórias : Randomize

Mais um randomize de Imagens adaptado para as necessidade básicas

  1.  
  2. <%@ Language="VBScript" %>
  3. <% Option Explicit %>
  4.  
  5. <%
  6. Function RandomDeImagens(strPath,strDefault)
  7. On Error Resume Next
  8. Randomize Timer
  9.  
  10. Dim ObjDeFSO, objFolder, ObjDaPasta, ObjPasta02
  11. Dim StrPastas, StrImagens, StrBase, StrPasta
  12. Const strValid = ".gif.jpg.png"
  13.  
  14. If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)
  15.  
  16. StrBase = Server.MapPath(strPath)
  17. Set ObjDeFSO = Server.CreateObject("Scripting.FileSystemObject")
  18.  
  19. Set objFolder = ObjDeFSO.GetFolder(StrBase)
  20. Set ObjDaPasta = objFolder.Files
  21.  
  22. For Each ObjPasta02 In ObjDaPasta
  23. StrPasta = LCase(ObjPasta02.Name)If Instr(strValid,Right(StrPasta,4)) Then
  24. StrPastas = StrPastas & StrPasta & VbTab
  25. End If
  26. Next
  27.  
  28. StrImagens = Split(StrPastas,VbTab)
  29.  
  30. If UBound(StrImagens) > 1 Then
  31. RandomDeImagens = strPath & StrImagens(Int(Rnd(1)*UBound(StrImagens)))
  32. Else
  33. RandomDeImagens = strDefault
  34. End If
  35.  
  36. End Function
  37. %>
  38. <p align="center"> </p>
  39.  
  40. <center>
  41. <table border="1" bordercolor="#000000"><tbody>
  42. <tr>
  43. <td bgcolor="#ffffff">
  44. <!-- a pasta developercenter é relacionanda a sua pasta principal -->
  45. <img src="<%=RandomDeImagens%>" />
  46. </td>
  47. </tr>
  48. </tbody></table>
  49. </center>
Tagged as: , , ,
Não há Comentários

Página 1 de 11



Portfólio Ted k'

Atualize seu Navegador

Categorias





Os Melhores da WEB



Delicious