|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP脚本是采用明文(plaintext)方式来编写的。vbscript|函数|汉字left()函数是VBScript的函数,VBScript将1个汉字看做1个字符,因而用left()不克不及失掉准确的字符长度。
我本人编写了以下3个函数,用来代替len()、left()、right(),但愿能办理您的成绩。
--------------------------------------------------------
Name:lenX
Argument:uStr
Return:
Description:前往字符串的长度,1其中笔墨符长度为2
--------------------------------------------------------
functionlenX(byvaluStr)
dimtheLen,x,testuStr
theLen=0
forx=1tolen(uStr)
testuStr=mid(uStr,x,1)
ifasc(testuStr)<0then
theLen=theLen+2
else
theLen=theLen+1
endif
next
lenX=theLen
endfunction
--------------------------------------------------------
Name:leftX
Argument:uStr待处置的字符串
uLen要截取的长度
Return:
Description:前往指定长度的字符串,1其中笔墨符长度为2
--------------------------------------------------------
functionleftX(byvaluStr,byvaluLen)
dimi,j,uTestStr,theStr
leftX=""
j=0
fori=1tolen(uStr)
uTestStr=mid(uStr,i,1)
theStr=theStr&uTestStr
ifasc(uTestStr)<0then
j=j+2
else
j=j+1
endif
ifj>=uLenthenexitfor
next
leftX=theStr
endfunction
--------------------------------------------------------
Name:rightX
Argument:uStr待处置的字符串
uLen要截取的长度
Return:
Description:前往指定长度的字符串,1其中笔墨符长度为2
--------------------------------------------------------
functionrightX(byvaluStr,byvaluLen)
dimi,j,uTestStr
rightX=""
j=0
fori=len(uStr)to1step-1
uTestStr=mid(uStr,i,1)
rightX=rightX&uTestStr
ifasc(uTestStr)<0then
j=j+2
else
j=j+1
endif
ifj>=uLenthenexitfor
next
endfunction
</p>asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 |
|