Méthode d'implémentation pour l'interception de la fonction ASP

Comment ASP peut-il implémenter la fonction de chaîne d'interception? Je crois que beaucoup de gens seront curieux de ce problème. Jetons donc un coup d'œil à la méthode d'implémentation de l'interception des fonctions de chaîne ASP. Des amis qui ne savent pas, jetons un coup d'œil.

Si le titre est trop long, en raison de la limitation de mise en page, vous ne pouvez répertorier que 10 caractères, cette fonction vous aidera à y parvenir

'Intercept String Strvalue (titre, nombre de mots)

Fonction Strvalue (Str, Lennum)

DIM P_NUM

dim je

Si strlen (str) <= Lennum alors

strvalue = str

autre

p_num = 0

x = 0

faire tout en pas p_num> Lennum-2

x = x + 1

Si asc (mid (str, x, 1)) <0 alors

p_num = int (p_num) + 2

autre

p_num = int (p_num) + 1

terminer si

strvalue = gauche (garniture (str), x) et "…"

boucle

terminer si

fonction finale

fonction strlen (str)

Dim Page_Len

page_len = 0

strlen = 0

Si Trim (str) <> "" alors

Page_Len = Len (Trim (Str))

pour xx = 1 à page_len

Si ASC (mid (str, xx, 1)) <0 alors

strlen = int (strlen) + 2

autre

strlen = int (strlen) + 1

terminer si

suivant

terminer si

fonction finale

Comment utiliser:

<% = strValue ("Langage de programmation précis, peut correctement colorer la syntaxe du code, entrez quelques mots simples de code de code description", 10)%>

Ce qui précède est la méthode d'implémentation des fonctions de chaîne d'interception ASP. Le code est très concis et pratique. Les amis qui en ont besoin peuvent y faire référence.