Este artigo apresenta principalmente a implementação asp da função de string de interceptação. O código é muito conciso e muito prático. Vou compartilhá-lo com vocês aqui para referência de amigos necessitados.
Se o título for muito longo, devido a restrições de layout da página, apenas 10 caracteres poderão ser listados. Esta função o ajudará a conseguir isso.
Copie o código do código da seguinte forma:
'Intercepta string strvalue (título, contagem de palavras)
função strvalor(str,lennum)
dim p_num
escurecer eu
se strlen(str)<=lennum então
strvalor=str
outro
núm_p=0
x=0
faça enquanto não p_num > lennum-2
x=x+1
se asc(mid(str,x,1))<0 então
p_num=int(p_num) + 2
outro
p_num=int(p_num) + 1
terminar se
strvalor=esquerda(trim(str),x)&…
laço
terminar se
função final
função strlen(str)
escurecer página_len
page_len=0
strlen=0
se trim(str)<> então
page_len=len(trim(str))
para xx=1 para page_len
se asc(mid(str,xx,1))<0 então
strlen=int(strlen) + 2
outro
strlen=int(strlen) + 1
terminar se
próximo
terminar se
função final
Como usar:
Copie o código do código da seguinte forma:
<%=strvalue (linguagem de programação precisa, pode colorir corretamente a sintaxe do código, inserir uma descrição simples de trecho de código, 10)%>
O texto acima é todo o conteúdo deste artigo, espero que todos gostem.