[原创]asp截取字符串的两种应用,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=th">

原创]asp截取字符串的两种应用" target="_blank">[原创]asp截取字符串的两种应用


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=" "
strbuall=strbuall&strbu
next
thev=thestr&strbuall
strbu=""
strbuall=""
end if
next
cutstr=thev
end function



相关阅读:
javascript类继承机制的原理分析
FormValid0.5版本发布,带ajax自定义验证例子
SQL SERVER 2008 CTE生成结点的FullPath
点击网页超级链接虚线怎么去除?
js报错 Object doesn''t support this property or method的原因分析
IIS7.0 设置技巧 (如何支持asp?)
一些PHP Coding Tips(php小技巧)[2011/04/02最后更新]
网络惊现激活Vista SP1工具与详细步骤
JavaScript函数、方法、对象代码
Weblogic在Linux和Unix下的后台启动脚本
在Linux 桌面里安装Google 小工具
第四节--构造函数和析构函数
HTML5 标准将把互联网视频扔回到黑暗时代
编码为GB2312网站让AJAX接收的数据显示支持中文
快速导航

Copyright © 2016 phpStudy |