Método de implementación de la función de cadena de interceptación de ASP

¿Cómo puede ASP implementar la función de cadena de interceptación? Creo que muchas personas sentirán curiosidad sobre este tema. Así que echemos un vistazo al método de implementación de ASP interceptando funciones de cadena. Amigos que no saben, echemos un vistazo.

Si el título es demasiado largo, debido a la limitación de diseño de página, solo puede enumerar 10 caracteres, esta función lo ayudará a lograrlo

'Intercept String strValue (título, recuento de palabras)

función strvalue (str, lennum)

dim p_num

Dim I

Si strlen (str) <= Lennum entonces

strvalue = str

demás

p_num = 0

x = 0

haz aunque no p_num> lennum-2

x = x+1

Si ASC (Mid (Str, X, 1)) <0 entonces

p_num = int (p_num) + 2

demás

p_num = int (p_num) + 1

final si

strValue = izquierda (trim (str), x) y "..."

bucle

final si

función final

función strlen (str)

dim page_len

Page_len = 0

strlen = 0

Si trid (str) <> "" entonces

Page_len = Len (TRIM (STR))

para xx = 1 a page_len

Si ASC (Mid (str, xx, 1)) <0 entonces

strlen = int (strlen) + 2

demás

strlen = int (strlen) + 1

final si

próximo

final si

función final

Cómo usar:

<%= StrValue ("Language de programación preciso, puede colorear correctamente la sintaxis del código, ingresar algunas palabras simples de descripción del fragmento de código", 10)%>

Lo anterior es el método de implementación de ASP Intercepting String Functions. El código es muy conciso y práctico. Los amigos que lo necesitan pueden referirse a él.