Deambulando

Bueno he recopilado unas cuantas funciones que tengo por aquí que considero útiles para ASP y que simplifican la vida, algunas no son 100% mías, otras si, pero no recuerdo de donde han salido la verdad, tantos años …. :S

Function printtable(sql)’se le pasa un string sql, e imprime la tabla

‘Para usarlo <%=printtable(”select * from tabla”)%>

‘aquí tu cadena de conexión

if not rs.eof then
response.write “<table align=center border=1><tr>”
for i = 0 to rs.fields.Count - 1
response.write “<th>”
response.write rs.fields(i).name
response.write “</th>”
next
response.write “</tr>”

‘ahora, para cada registro
while not rs.EOF
response.write “<tr>”
‘muestro todos los campos que tiene
for i = 0 to rs.fields.Count - 1
response.write “<td>” & rs.fields(i) & “</td>”
next
response.write “</tr>”
rs.movenext
wend
response.write “</table>”
end if
rs.close:set rs=nothing
con.Close:set con=nothing
end function

function printtableLink(sql,link,campo)’se le pasa un string sql, e imprime la tabla con un link sobre el campo dado

’sql=”select * from tabla”
‘link=”/default.asp&id=”
‘call printTableLink(sql,link,”id”)
‘cadena conexion

if not rs.eof then
response.write “<table align=center border=1><tr>”
for i = 0 to rs.fields.Count - 1
response.write “<th>”
response.write rs.fields(i).name
response.write “</th>”
next
response.write “</tr>”

‘ahora, para cada registro
while not rs.EOF
response.write “<tr>”
‘muestro todos los campos que tiene
for i = 0 to rs.fields.Count - 1
response.write “<td><a target=’_blank’
href=’”&link&rs(campo)&”‘>” & rs.fields(i) & “</a></td>”
next
response.write “</tr>”
rs.movenext
wend
response.write “</table>”
end if
rs.close:set rs=nothing
con.Close:set con=nothing
end function

function limpia(t,encode)‘limpia un string para el sqlinjection

dim tt
tt=t
tt=replace(tt,”"”",”")
tt=replace(tt,”‘”,”")
tt=replace(tt,”&”,” AND “)
tt=replace(tt,”–”,”")
if encode then
tt=server.htmlencode(tt)
end if
limpia=tt
end function

function capit(str)‘pone la primera letra como mayuscula
capit = ucase(left(str,1)) & mid(str,2)
end function
‘—————————————————————–

function esmail(mail2)‘verificación sencilla de un email
Dim arroba
Dim punto
esmail = false
arroba = InStr(mail2, “@”)
punto = InStr(mail2, “.”)

If arroba > 0 And Len(mail2) > arroba And Len(mail2) > punto Then
esmail = true
End If
end function

Y aquí unos cuantos links muy interesantes con funciones:

• Funciones de ASP nativas bueno de VB
• 92 rutinas útiles de ASP
• Funciones varias
• Funciones para formularios y sus variables (MUY ÚTIL)