ASP如何计算中英文混合字符串长度和截取字符串
用ASP做网站的时候经常会碰到要截取字符串的情况。ASP中的Len函数不管是中文字符，还是英文字符，统统按一个单位来计算，由于一个中文字符的宽度是一个英文字符宽度的两倍，在中英文混合的情况下字符串实际占用的宽度就不好计算了，如果按照Len函数计算的长度来截取字符串截出来的效果也会长短不一，下面是按照一个汉字相当于两个英文字符来计算字符串长度和截取字符串的代码
计算中英文混合字符串的长度：
function getStringLen(str)
on error resume next
dim l,c,i,t
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c>=128 or c<0 then t=t+1
next
getStringLen=t
if err.number<>0 then err.clear
end function
截取字符串：
function getSubString(str,Length)
on error resume next
dim l,c,i,hz,en
l=len(str)
if l<length then
getSubString=str
else
hz=0
en=0
for i=1 to l
c=asc(mid(str,i,1))
if c>=128 or c<0 then
hz=hz+1
else
en=en+1
end if
if en\2+hz>=length then
exit for
end if
next
getSubString=left(str,i) & "…"
end if
if err.number<>0 then err.clear
end function
相关文档：
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false '不显示警告
'xlApp.Application = false ......
1 前言
2 简述三层架构
3 建立站点的大体结构
3.1 代码目录
3.2 首 ......
<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from 表”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(r ......
很多SOHOER都希望有个自己的网站,而对网站建设一无所知,或者一知半解.今天我先讲程序方面的区别,相信很多人碰到了有些公司说php比Asp,Asp.Net都要好,或者Asp比其他语言都要好。其实,程序的优略与网站开发人员的经验\技术水平相关，而语言本身并没有什么优略之分.经验多的程序员,不管使用的� ......
1.在我的电脑右键的”管理“中找到“本地用户和组”，然后单击”用户“，在右边会看到一个叫"IWAM_20020101-0024"的用户，这是iiis安装时自己创建的内置账户，点右键“设置密码”，点继续，然后输入“新密码”和“确认密码”。“IWAM_20020101-0024&rdqu ......
