asp 截取字符串函数
2016-06-02 13:08
489 查看
'截取字符串 strvalue(标题,字数)
function strvalue(str,lennum)
dim p_num
dim i
if
strlen(str)<=lennum then
strvalue=str
else
p_num=0
x=0
do while not p_num >
lennum-2
x=x+1
if
asc(mid(str,x,1))<0 then
p_num=int(p_num) + 2
else
p_num=int(p_num) + 1
end if
strvalue=left(trim(str),x)&"…"
loop
end if
end function
function strlen(str)
dim page_len
page_len=0
strlen=0
if
trim(str)<>"" then
page_len=len(trim(str))
for xx=1 to page_len
if
asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end if
end function
<%=strvalue("准确的编程语言,可正确对代码语法着色,输入简单几个字的代码片段说明",10)%>
function strvalue(str,lennum)
dim p_num
dim i
if
strlen(str)<=lennum then
strvalue=str
else
p_num=0
x=0
do while not p_num >
lennum-2
x=x+1
if
asc(mid(str,x,1))<0 then
p_num=int(p_num) + 2
else
p_num=int(p_num) + 1
end if
strvalue=left(trim(str),x)&"…"
loop
end if
end function
function strlen(str)
dim page_len
page_len=0
strlen=0
if
trim(str)<>"" then
page_len=len(trim(str))
for xx=1 to page_len
if
asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end if
end function
[代码]asp调用
<%=strvalue("准确的编程语言,可正确对代码语法着色,输入简单几个字的代码片段说明",10)%>
相关文章推荐
- php中asp mod相似的做法&nbsp…
- ASP读取不了数据(ACCESS) asp…
- 相当与ASP中的instr()函数 (s…
- asp函数split()对应php函数explode()
- asp中日期时间转换为日期的函数
- 一个asp文件如何同时读取两个数据…
- ASP 将EXCEL导入到ACCESS详细解读…
- ASP 将EXCEL导入到ACCESS详细解读…
- ASP access导出到Excel
- 详解 ASP.NET异步
- SWFUpload免费FLASH上传组件(ASP…
- asp查找数据库里日期在某段时间的…
- ASP二级联动菜单制作
- ASP中replace的相关用法
- Windows7下IIS7的安装及ASP配置方…
- 在html页面中调用asp网页
- 一个去掉HTML格式的ASP函数
- asp:将excel中的数据导入到access
- ASP 序号自动累加
- ASP双引号的使用