Cet article présente principalement l'implémentation asp de la fonction de chaîne d'interception. Le code est très concis et très pratique. Je le partagerai avec vous ici pour référence par des amis dans le besoin.
Si le titre est trop long, en raison de restrictions de mise en page, seuls 10 caractères peuvent être répertoriés. Cette fonction vous aidera à y parvenir.
Copiez le code comme suit :
'Intercepter la chaîne strvalue (titre, nombre de mots)
fonction strvalue(str,lennum)
faible p_num
je suis faible
si strlen(str)<=lennum alors
valeur str=str
autre
p_num=0
x=0
faire sans 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
finir si
strvalue=gauche(trim(str),x)&…
boucle
finir si
fonction de fin
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
finir si
suivant
finir si
fonction de fin
Comment utiliser :
Copiez le code comme suit :
<%=strvalue (langage de programmation précis, peut colorer correctement la syntaxe du code, saisir une simple description d'extrait de code, 10)%>
Ce qui précède représente l’intégralité du contenu de cet article, j’espère que vous l’aimerez tous.