<=Volver

Códigos ASP

Escribe los IP de los visitantes en un archivo de texto
<% VisitorsIP=Request.ServerVariables ("REMOTE_ADDR") Set fs = CreateObject("Scripting.FileSystemObject") Set wfile = fs.OpenTextFile("c:\Mydir\mylog.txt", forappending) wfile.WriteLine (VisitorsIP) wfile.close Set wfile=nothing Set fs=nothing response.write("IP registered") %>

Obtener los valores ASCII de los caracteres
<% Response.Write "<table width='50%'border=5 align='center'>" for i=0 to 254 Response.Write "<tr><td>Chr("&i&")</td><td>"&chr(i)&"</td></tr>" next %>

Leer y escribir cookies
<!-- Escribiendo cookie --> <% Response.Cookies("name").Expires = Date + 7 'Response.Cookies("name").Expires = #January 01, 1999# 'Response.Cookies("name").Secure = True Response.Cookies("name").Path ="/ramesh" Response.Cookies("name").Domain ="ramesh.ourfamily.com" Response.Cookies("name") ="Ramesh Thiruchelvam" 'Response.Cookies("name")("first") ="Ramesh" 'Response.Cookies("name")("last") ="Thiruchelvam" %> <!-- Leyendo cookie --> <% Response.write request.Cookies("name") %>

Obtener un registro al azar
<% set objCON = Server.CreateObject("ADODB.Connection") objCON.open "" ' add your dsn here ie : objCON.open "myDSN" set objRS = Server.CreateObject("ADODB.Recordset") objRS.open "SELECT * FROM table", objCON, 3, 1 ' replace with your own SQL statement Dim rndMax rndMax = CInt(objRS.RecordCount) objRS.MoveFirst Dim rndNumber Randomize Timer rndNumber = Int(RND * rndMax) objRS.Move rndNumber ' carry out your action here, with the appropriate recordset index ' for example Response.Redirect(objRS("url")) (requires Response.Buffer = true ' or response.write("<img src=" & objRS("img") & ">") %>

SQL script que genera passwords al azar
DECLARE @Random int, @Pwd varchar(6), @ASCII varchar(1), @Chars varchar(62) Set @Pwd = '' Set @Chars = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789' While Len(@Pwd) < 6 Begin /*Get the a random place in the character string*/ SET @Random = cast((LEN(@Chars)+ 1 )*RAND() as int) /*Map the random number to a position in the string*/ Set @ASCII = SUBSTRING(@Chars, @Random, 1) /*Append the ascii value as a char*/ Set @Pwd = @Pwd + @ASCII End select @Pwd

Devuelve un registro al navegador
<% Set cn = Server.CreateObject("ADODB".Connection") cn.Open "Company" Set rs =cn.Execute "SELECT FirstName, LastName FROM Employees" rs.MoveFirst Do While Not rs.EOF Response.Write " First Name : " & rs("FirstName") & " Last Name: " & rs("LastName") & "<BR>" rs.Movenext Loop %>

Permite eliminar archivos del servidor
<% '|Author: Joaquim José Prates Ferreira '|Date Created: 13/01/2001 '|Last Update: 28/06/2001 '|How to call the function: '| Call Generic_FileDeletion(File path 'REQUIRED') '| Call Generic_FileDeletion("myfile.txt") '| Call Generic_FileDeletion("win95/myfile.txt") '| '|Please remember to specify a Path, otherwise an Error will occur... Function Generic_FileDeletion(byval strpath,byval intShowLabel) ' ERROR CHECKING!!!!... IF strpath ="" or isnull(strpath) then Response.Write("Sorry but a path is required when calling this function") Response.End End IF ' ERROR CHECKING!!!!... IF intShowLabel ="" or isnull(intShowLabel) then Response.Write("Sorry but the paramter <b>intShowLabel</b> is missing. PARAMETER IS REQUIRED") Response.End End IF Filename = Server.MapPath(strpath) Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(filename) Then fs.DeleteFile(filename) if intShowLabel = 1 then response.write "File" & " <b>(" & strpath & ")</b> " & " has Been Deleted with Success.<BR>" end if Else response.write "No path was found, or file does not exist to delete...<BR>" End If End Function %>

También te pueden interezar códigos en JAVA, PHP o Visual Basic