asp截取字符串的两种应用 原创

编程学习 2021-07-05 10:57www.dzhlxh.cn编程入门

1、纯粹的截取字符串

代码如下:

function cutstr(thestr1,strlen)
dim l,t,c
l=len(thestr1)
if l<1 then exit function
t=0
for dxy1=1 to l
c=Abs(asc(Mid(thestr1,dxy1,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
thev=mid(thestr1,1,dxy1)
exit for
else
thev=thestr1
end if
next
cutstr=thev
end function

2、截取字符串，不足用空格补上

代码如下:

function cutstr(thestr,strlen)
dim l,t,c
l=len(thestr)
t=0
for dxy=1 to l
c=Abs(asc(Mid(thestr,dxy,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
thev=left(thestr,dxy)
exit for
else
bu=strlen-t
for bui=1 to bu
strbu="&nbsp;"
strbuall=strbuall&strbu
next
thev=thestr&strbuall
strbu=""
strbuall=""
end if
next
cutstr=thev
end function

上一篇：蓝色空间 天气小偷 下一篇：用ASP应用程序实现自己的UrlDeCode

编程语言

• 服务器系统下载:服务器系统的安装
• 学习编程先学什么
• 数控机床编程与操作
• 什么是少儿编程？小孩子学编程忽悠人
• 孩子学编程一年要多少钱
• 孩子学编程的十大好处
• 学编程的最佳年龄
• 初学编程100个代码大全
• 让孩子学编程真是害了孩子
• 学编程：究竟要学什么编程
• 编程主要是学哪些东西
• 零基础了解编程和编程语言
• 电脑编程基础知识入门
• css样式列表有什么用
• css是脚本吗
• 什么是CSS语法？CSS使用方法及规则