In diesem Artikel wird hauptsächlich die ASP-Implementierung der Interception-String-Funktion vorgestellt. Der Code ist sehr prägnant und sehr praktisch. Ich werde ihn hier als Referenz für Freunde mitteilen.
Wenn der Titel aufgrund von Einschränkungen im Seitenlayout zu lang ist, können nur 10 Zeichen aufgeführt werden. Diese Funktion hilft Ihnen dabei.
Kopieren Sie den Codecode wie folgt:
'String-Wert abfangen (Titel, Wortanzahl)
Funktion strvalue(str,lennum)
dim p_num
dim ich
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=left(trim(str),x)&…
Schleife
Ende wenn
Endfunktion
Funktion strlen(str)
dim page_len
page_len=0
strlen=0
if trim(str)<> then
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
Anwendung:
Kopieren Sie den Codecode wie folgt:
<%=strvalue (genaue Programmiersprache, kann die Code-Syntax korrekt färben, eine einfache Code-Snippet-Beschreibung eingeben, 10)%>
Das Obige ist der gesamte Inhalt dieses Artikels. Ich hoffe, er gefällt Ihnen allen.