Este artículo presenta principalmente la implementación asp de la función de cadena de interceptación. El código es muy conciso y muy práctico. Lo compartiré aquí para que los amigos que lo necesiten lo consulten.
Si el título es demasiado largo, debido a restricciones de diseño de página, solo se pueden enumerar 10 caracteres. Esta función le ayudará a lograrlo.
Copie el código de código de la siguiente manera:
'Interceptar cadena strvalue (título, recuento de palabras)
función valor_cadena(cadena,lennum)
p_num tenue
oscuro yo
si strlen(str)<=lennum entonces
valor_cadena=cadena
demás
número_p=0
x=0
hacer mientras no sea p_num > lennum-2
x=x+1
si asc(mid(str,x,1))<0 entonces
p_núm=int(p_núm) + 2
demás
p_núm=int(p_núm) + 1
terminar si
valor_cadena=izquierda(recortar(cadena),x)&…
bucle
terminar si
función final
función strlen(cadena)
página tenue_len
página_len=0
strlen=0
si recortar(cadena)<> entonces
page_len=len(recortar(cadena))
para xx=1 a page_len
si asc(mid(str,xx,1))<0 entonces
cadena=int(cadena) + 2
demás
cadena=int(cadena) + 1
terminar si
próximo
terminar si
función final
Cómo utilizar:
Copie el código de código de la siguiente manera:
<%=strvalue (lenguaje de programación preciso, puede colorear correctamente la sintaxis del código, ingrese una descripción de fragmento de código simple, 10)%>
Lo anterior es el contenido completo de este artículo, espero que les guste a todos.