Implementierungsmethode der ASP -Abfangen -String -Funktion

Wie kann ASP die Abschluss -String -Funktion implementieren? Ich glaube, viele Menschen werden über dieses Problem neugierig sein. Schauen wir uns also die Implementierungsmethode an, um String -Funktionen abzusetzen. Freunde, die es nicht wissen, lasst uns einen Blick darauf werfen.

Wenn der Titel zu lang ist, können Sie aufgrund der Seitenlayout -Einschränkung nur 10 Zeichen auflisten, diese Funktion hilft Ihnen, dies zu erreichen

'Intercept String StrValue (Titel, Wortzahl)

Funktion StrValue (STR, Lennum)

Dim p_num

dim i

Wenn Strlen (str) <= lennum dann

StrValue = str

anders

p_num = 0

x = 0

tun, während nicht p_num> lennum-2

x = x+1

Wenn ASC (MID (STR, x, 1)) <0 dann

p_num = int (p_num) + 2

anders

p_num = int (p_num) + 1

Ende wenn

StrValue = links (trimm (str), x) & "..."

Schleife

Ende wenn

Endfunktion

Funktion Strlen (str)

Dim Page_len

page_len = 0

Strlen = 0

Wenn Trim (str) <> "" dann

page_len = len (trim (str))

für xx = 1 bis page_len

Wenn ASC (Mid (str, xx, 1)) <0 dann

strlen = int (strlen) + 2

anders

strlen = int (strlen) + 1

Ende wenn

nächste

Ende wenn

Endfunktion

Wie man verwendet:

<%= StrValue ("Genaue Programmiersprache, kann die CODE -Syntax korrekt farblich eingeben, ein paar einfache Wörter der Code -Snippet -Beschreibung eingeben", 10)%>

Das obige ist die Implementierungsmethode für die ASP -Abfangen -String -Funktionen. Der Code ist sehr prägnant und praktisch. Freunde, die es brauchen, können sich darauf beziehen.