快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

ASP中字符串函数的应用

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
%>

此检测函数并不充分,并没有检测".",如有爱好请补充。
返回类别: 教程
上一教程: 浅谈TEECHART组件在ASP中的应用
下一教程: 在ASP中轻松实现记录集分页显示

您可以阅读与"ASP中字符串函数的应用"相关的教程:
· ASP字符串函数大全
· ASP应用中的应用函数
· ASP的随机数的应用技术
· 改进 ASP 应用程序中的字符串处理性能
· ASP中正则表达式的应用-2
    微笑服务 优质保证 索取样品