六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

ASP中字符串函數的應用

[摘要]1. 字符串函數:Len(str):取得字符串的長度Instr(str1,str2):從字符串str1,尋找另一個字符串str2第一個出現的位置Left(str,n):從字符串str左起取n個字符Right(str,n):從字符串str右起取n個字符Mid(str1,n1,n2):從字符串第n1個...

1. 字符串函數:
Len(str):取得字符串的長度
Instr(str1,str2):從字符串str1,尋找另一個字符串str2第一個出現的位置
Left(str,n):從字符串str左起取n個字符
Right(str,n):從字符串str右起取n個字符
Mid(str1,n1,n2):從字符串第n1個字符開始,取出n2個字符。

2.字符串函數應用:
1)通過字符函數設計出一個字符串長度控制函數:
防止超過行寬字符串換行:

<%
 Function strleft(string,leng)
   Dim str1
   Dim i,j,k
   j = Len(string)
   k = 0
   For i = 1 To j
     str1 = Mid(string,i,1)
     If Asc(str1) > 0 Then
       k = k + 1
     Else
       k = k + 2
     End If
     If k > leng Then
       strLeft = Left(string,i) & "..."
       Exit For
     Else
       strLeft = string
     End If
   Next
  End Function
%>

2)通過字符串函數檢測輸出是否為電子郵件地址:

<%
 Function EMAIL(string)
   Dim str1
   Dim i,j,k,l
   j = Len(string)
   k = 0
   for i = 1 to j
     str1=Mid(string,i,1)
  if str1 = "@" then
  k = k + 1
  l = i
  end if
   next
   str2 = Mid(string,l+1,1)
   if (k=1) And ((str2>="a") And (str2<="z")) or ((str2>="A") And (str2<="Z")) then
   EMAIL = string
   else
   EMAIL = "miss!"
   end if
 End Function
%>

此檢測函數并不充分,并沒有檢測".",如有興趣請補充。





主站蜘蛛池模板: 欧美亚洲综合在线 | 青草视频网站在线观看 | 日韩看片网站 | 日韩一级大片 | 日本成人网址 | 午夜影院美女 | 视频在线亚洲 | 婷婷久久精品 | 天天摸天天做天天爽 | 青青青线在线观看 | 伊人精品影院 | 婷婷综合七月激情啪啪 | 亚洲福利视频网站 | 色综合久久综合中文小说 | 色悠久久久久综合网伊人男男 | 日韩黄色免费观看 | 色老成人精品视频在线观看 | 一级做性色a爰片久久毛片 一级做受视频免费是看美女 | 亚洲国产精品久久久久 | 在线综合亚洲欧美网站天堂 | 亚洲国产精品线在线观看 | 日韩 欧美 亚洲 国产 | 午夜天堂影院 | 亚洲男人在线天堂 | 欧美视频在线不卡 | 伊人久久大香线蕉观看 | 天天操天天摸天天曰天天干天天弄天天干 | 日韩大片免费观看视频播放 | 一二三四日本高清观看视频 | 婷婷久| 探花国产| 日韩毛片免费视频 | 亚洲欧美一区二区三区不卡 | 中文国产欧美在线观看 | 亚洲免费精品 | 在线欧美三级 | 色亚洲一区| 日本人亚洲人成人 | 青青草原在线视频 | 日韩黄色免费观看 | 亚洲国产精品成人综合色在线婷婷 |