Si queremos Saber como se llama la pagina que actualmente estamos ejecutando en asp lo podemos hacer con la siguiente funcion de asp
<%
Function NombrePagina()
ruta = Request.ServerVariables("URL") 'recoge la ruta completa
ruta = Split(ruta,"/") 'convierte cada separación señalada por / en un elemento de un vector
nombre = ruta(UBound(ruta)) 'recogemos el último elemento de ese vector...
NombrePagina = nombre
end function
%>
Public Class Form1
Public Function DevolverDiaJuliano(ByVal dtFecha As Date) As Integer
Dim dtPrimeroEnero As Date
Dim dtDiaActual As Date
dtPrimeroEnero = DateSerial(Year(dtFecha), 1, 1)
dtDiaActual = dtFecha
Return CInt(DateDiff(DateInterval.Day, dtPrimeroEnero, dtDiaActual)) + 1
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MessageBox.Show(DevolverDiaJuliano(Now.Date))
End Sub
End Class
@longitud as integer
set @password=''
set @longitud =10
select @password=@password+char(n) from
(select top @longitud number as n from master..spt_values
where type='p' and ((number between 48 and 57)or
(number between 65 and 89)
or (number between 97 and 122) )
order by newid()
) as t