Scripts de ASP
Cobac:
Contar longitud de un texto
Este se emplea para mi web en noticias informatica, te cuenta las palabras que hay, y si hubiera menos de 350 carácteres, entonces no te saldria lo de leer mas...
Osea te cuenta las palabras, y si el texto tiene menos de 350 carácteres no te sale para leer mas, si tiene más de 350 carácteres te muestra los 300 primeros y lo demas no
Código:
<%
noticia = rs("noticia")
palabras = 0
espacio = 0
if len(noticia) > 350 then
contenido = mid(noticia,1,300)
response.write contenido&"..."
for x = 0 to len(noticia) Step 1
espacio = mid(noticia,x+1,1)
if espacio = " " then
palabras = palabras + 1
end if
next
else
response.write noticia
end if
%>
luego donde quieras que te aparezca lo de leer mas...
Código:
<%if len(noticia) > 350 then%>
<%="Leer mas...("& palabras &" palabras)"%>
<%end if%>
salu2
Cobac:
Quiero que cuando añada un elink me ponga automaticamente el tamaño de este
Bueno esto es algo que he descubierto hoy (no sabia que el tamaño se encontraba en el mismo elink xD)
Código:
<%
Dim edk, mb, mb2, elink
elink = "ed2k://|file|dev-ut45.X-Gamers.www!OSIOLEK!com.bin|764868048|909EB1BA30E06B9FF4D129D4CA52F6DE|/"
edk = Split(elink,"|",5)
%><br>
<%
mb = edk(3)/1048576
mb2 = Split(mb,",")
elink = mb2(1)
elink = mid(elink,1,2)
response.write "<br>Tamaño del archivo: "&mb2(0)&","&elink&" MB"
%>
este es con un ejemplo de un juego (el ut2004 XD)
pero si los elinks los sacais de una base de datos (lo mas normal ;)):
Código:
<%
Dim edk, mb, mb2, elink
elink = rs("ed2k")
edk = Split(elink,"|",5)
mb = edk(3)/1048576
mb2 = Split(mb,",")
elink = mb2(1)
elink = mid(elink,1,2)
response.write "<br>Tamaño del archivo: "&mb2(0)&","&elink&" MB"
%>
bueno he puesto para que solo muestre dos decimales (casualmente como en el eMule)
salu2
Morris:
Este sirve para indexar carpetas con ASP
Código:
<HTML>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#000000" VLINK="#000000">
<BR>
<B>Juegos a descargar</B><BR><BR>
<TABLE BORDER=0 CELLPADDING=3 CELLSPACING=0>
<TR BGCOLOR="#000000">
<TD><FONT COLOR="#FFFFFF"><B>Nombre del archivo:</B></FONT></TD>
<TD><FONT COLOR="#FFFFFF"><B>Tamaño:</B></FONT></TD>
<TD><FONT COLOR="#FFFFFF"><B>Tipo de archivo</B></FONT></TD>
<TD><FONT COLOR="#FFFFFF"><B>Fecha de creación</B></FONT></TD>
<%
' Crea una instancia del FileSystemObject
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
' Crea el objeto folder
Set MyFolder=MyFileObject.GetFolder(Server.MapPath("shared"))
' Hace un loop entre todos los archivos
FOR EACH thing in MyFolder.Files
%>
<TR BGCOLOR="#F7F7E7">
<TD><A HREF="shared/<%=thing.Name%>"><%=thing.Name%></A></TD>
<TD ALIGN=RIGHT><%=thing.Size%>bytes</TD>
<TD><%=thing.Type%></TD>
<TD><%=thing.DateCreated%></TD>
<%
NEXT
%>
</TABLE>
</BODY>
</HTML>
Morris:
¿Cómo conectarse a mySQL con ASP?
Tienes que instalar el driver más nuevo de mySQL ODBC, esta conexión no usa DSN.
Código:
<%@ LANGUAGE="VBSCRIPT" %>
<%
strConnection = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=USERNA,E;pwd=PASSWORD;database=BASEDEDATOS;option=3"
Set adoDataConn = Server.CreateObject("ADODB.Connection")
adoDataConn.Open strConnection
strQuery = "SELECT * FROM TABLA"
Set rs = adoDataConn.Execute(strQuery)
r_COLUMNA = rs("COLUMNA")
r_COLUMNA = rs("COLUMNA")
%>
alkonweb:
Disculpa si mi comentario no te agrada ...pero lamento decirte que en mi opinion,muy personal ESTA WEB ES MUY BUENA.....PERO, ;-)el bendito pero...deberian colocar la información de manera que sea facil bajarla y poder leerla sin necesidad de estar conectado todo EL TIEMPO...aqui en venezuela la INTERNET ...NO ES GRATIS.
Gracias, alkonweb. ;D
Navegación
[*] Página Anterior