asp截取字符串的兩種應(yīng)用 原創(chuàng)
原創(chuàng) 更新時(shí)間：2006年08月30日 00:00:00 原創(chuàng) 作者：
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、截取字符串，不足用空格補(bǔ)上
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
復(fù)制代碼 代碼如下:
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、截取字符串，不足用空格補(bǔ)上
復(fù)制代碼 代碼如下:
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
相關(guān)文章
asp教程中g(shù)et post提交表單有5點(diǎn)區(qū)別
asp教程中g(shù)et post提交表單有5點(diǎn)區(qū)別分別以HTTP請求,表單兩者分別介紹，需要的朋友可以了解下2012-12-12
收集整理的ASP的常用內(nèi)置函數(shù)...2007-03-03
asp下實(shí)現(xiàn)批量插入數(shù)據(jù)的方法
asp下實(shí)現(xiàn)批量插入數(shù)據(jù)的方法...2007-08-08
ASP生成靜態(tài)文件編碼為UTF-8格式的HTML文件
ASP生成靜態(tài)文件編碼為UTF-8格式的HTML文件...2007-10-10
這篇文章主要介紹了ASP緩存技術(shù)詳解,本文詳細(xì)介紹了ASP緩存技術(shù)、ASP緩存的分類、ASP緩存的實(shí)現(xiàn)方法和使用方法等,需要的朋友可以參考下2014-07-07
ASP連接數(shù)據(jù)庫的全能代碼...2007-03-03
這篇文章主要內(nèi)容是利用ASP輸出excel文件實(shí)例講解，感興趣的小伙伴們可以參考一下2015-09-09
one.asp多項(xiàng)目、函數(shù)庫、類庫 統(tǒng)一為一個(gè)版本的方法
前幾天 寫的博客 多項(xiàng)目 函數(shù)庫、類庫 統(tǒng)一為一個(gè)版本的方法中提到 使用 one.php 將整個(gè)項(xiàng)目打包成 一個(gè) php 文件，有網(wǎng)友 讓我 整個(gè)asp版本的，今天下午抽空寫了個(gè) one.asp，使用方式基本一致，這次 增加了路徑計(jì)算的功能，可以引用不同路徑2020-08-08
asp cint clng的范圍與防止cint和clng的溢出解決方法大全
首先我們需要了解的是cint范圍 -32,768 到 32,767。 clng范圍 -2,147,483,648 到 2,147,483,647。2008-01-01
取得表單提交的所有數(shù)據(jù)...2006-08-08