久久久久久久毛片,国产女人18毛片水真多成人如厕,日韩精品视频中文字幕

asp 字符串截取函數(shù)
'*********************************************************
'函數(shù)：cutStr[str(strlen)]
'參數(shù)：str，待處理的字符串,strlen，截取的長度
'作者：木木
'日期：2007/7/12
'描述：截取指定長度的字符串
'示例：%=cutStr("歡迎光臨阿里西西",5)%>

'*********************************************************

function cutStr(str,strlen)
If str = "" Then
cutStr = "cutStr函數(shù)異常：字符串為空"
exit function
End If
'------------來源長度檢查
If  strlen = "" Then
cutStr = "cutStr函數(shù)異常：長度未指定"
exit function
End If

If  CInt(strlen) = 0 Then
cutStr = "cutStr函數(shù)異常：長度為0"
exit function
End If
'----------檢測(cè)來源字符長度
dim l,t,c,i
l=len(str)
t=0
'----------循環(huán)截取字符
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
'------判斷是否漢字
if c>255 then
t=t+2
else
t=t+1
end If
'------判斷是否到達(dá)指定長度
if t>=strlen then
cutStr=left(str,i)".."
exit for
else
cutStr=str
end if
next
cutStr=replace(cutStr,chr(10),"")
end function
''*********************************************************
'函數(shù)：strlen[str]
'參數(shù)：str，待處理的字符串
'作者：木木
'日期：2007/7/12
'描述：判斷字符串長度，漢字長度為2
'示例：%=strlen("歡迎光臨阿里西西")%>
'*********************************************************
Function strlen(str)
dim p_len
p_len=0
strlen=0
if trim(str)>"" then
p_len=len(trim(str))
for xx=1 to p_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
截取左邊的n個(gè)字符'*********************************************************
'函數(shù)：LeftTrue(str,n)
'參數(shù)：str，待處理的字符串，n，截取的長度
'作者：木木
'日期：2007/7/12
'描述：顯示左邊的n個(gè)字符(自動(dòng)識(shí)別漢字)函數(shù)
'示例：%=LeftTrue("歡迎光臨阿里西西",6)%>
'*********************************************************

Function LeftTrue(str,n)
If len(str)=n/2 Then
LeftTrue=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
t=l
TStr=""
t=0
for i=1 to l
  c=asc(mid(str,i,1))
  If c0 then c=c+65536
  If c>255 then
  t=t+2
  Else
  t=t+1
  End If
  If t>n Then exit for
  TStr=TStr(mid(str,i,1))
next
LeftTrue = TStr
End If
End Function

您可能感興趣的文章:

asp截取字符串的兩種應(yīng)用
asp下實(shí)現(xiàn)截取字符串特定部分內(nèi)容函數(shù)
GetBody asp實(shí)現(xiàn)截取字符串的代碼
用asp實(shí)現(xiàn)的截取指定格式字符串的代碼
asp從字符串里截取N個(gè)帶HTML的字符的函數(shù)
asp截取指定英漢混合字符串_支持中文
ASP.NET 字符串截取
asp CutStrX字符串截取函數(shù)(過濾全部HTML標(biāo)記)
asp實(shí)現(xiàn)截取字符串函數(shù)

標(biāo)簽：電商邀評(píng) 銅川那曲蘇州新鄉(xiāng) 河池延邊優(yōu)質(zhì)小號(hào)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp 字符串截取函數(shù)》，本文關(guān)鍵詞 asp,字符串,截取,函數(shù),asp,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。