Метод реализации ASP перехватывает строковую функцию

Как ASP может реализовать функцию перехвата строки? Я считаю, что многим людям будет любопытно эту проблему. Итак, давайте посмотрим на метод реализации ASP, перехватывающие строковые функции. Друзья, которые не знают, давайте посмотрим.

Если заголовок слишком длинный из -за ограничения макета страницы, вы можете перечислить только 10 символов, эта функция поможет вам достичь ее

'Intercept String Strvalue (заголовок, количество слов)

Функция strvalue (str, lennum)

Dim P_NUM

DIM I.

Если strlen (str) <= lennum тогда

strvalue = str

еще

p_num = 0

x = 0

делать, пока не p_num> lennum-2

x = x+1

Если ASC (Mid (str, x, 1)) <0 тогда

p_num = int (p_num) + 2

еще

p_num = int (p_num) + 1

конец, если

strvalue = left (trim (str), x) & "…"

петля

конец, если

конечная функция

Функция strlen (str)

Dim page_len

page_len = 0

strlen = 0

Если Trim (str) <> "" Тогда

page_len = len (trim (str))

для xx = 1 до page_len

Если ASC (Mid (str, xx, 1)) <0 тогда

strlen = int (strlen) + 2

еще

strlen = int (strlen) + 1

конец, если

следующий

конец, если

конечная функция

Как использовать:

<%= strValue («Точный язык программирования, может правильно синтаксис цветового кода, введите несколько простых слов описания фрагмента кода», 10)%>

Выше приведено метод реализации ASP, перехватывающие строковые функции. Код очень краткий и практичный. Друзья, которые это нужно, могут ссылаться на это.