主要原理就是用正则判断 <img> 的<src>属性。这在采集程序中将非常有用。

函数如下：

以下是引用片段：
Function ShowPic(str)
Set objRegExp = New Regexp'设置配置对象
objRegExp.IgnoreCase = True'忽略大小写
objRegExp.Global = True'设置为全文搜索
objRegExp.Pattern = "<img.+?>"
'为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的<img>标签，然后再取出里面的图片地址后面的getimgs函数就是实现后一个功能的。
strs=trim(str)
Set Matches =objRegExp.Execute(strs)'开始执行配置
For Each Match in Matches
RetStr = RetStr &getimgs( Match.Value )'执行第二轮的匹配
Next
ShowPic = RetStr
End Function
Function getimgs(str)
getimgs=""
Set objRegExp1 = New Regexp
objRegExp1.IgnoreCase = True
objRegExp1.Global = True
objRegExp1.Pattern = "http://.+?"""'取出里面的地址
set mm=objRegExp1.Execute(str)
For Each Match1 in mm
getimgs=getimgs&left(Match1.Value,len(Match1.Value)-1)&"||"'把里面的地址串起来备用
next
End Function
'取得图片内容
function getHTTPPage(url)
on error resume next
dim http
set http=server.createobject("MSXML2.XMLHTTP")'使用xmlhttp的方法来获得图片的内容
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
end function
'保存图片
function saveimage(from,tofile)
dim geturl,objStream,imgs
geturl=trim(from)
imgs=gethttppage(geturl)'取得图片的具休内容的过程
Set objStream = Server.CreateObject("ADODB.Stream")'建立ADODB.Stream对象，必须要ADO 2.5以上版本
objStream.Type =1'以二进制模式打开
objStream.Open
objstream.write imgs'将字符串内容写入缓冲
objstream.SaveToFile server.mappath(tofile),2'-将缓冲的内容写入文件
objstream.Close()'关闭对象
set objstream=nothing
end function

'调用实例
Dim strpic,i,fname
strpic = ShowPic("<DIV align=center><IMG src=""http://img.knowsky.com/img/knowskylogo.gif"" border=0></DIV>")
strpic = Split(strpic,"||")
If UBound(strpic) > 0 Then
For i = 0 To UBound(strpic) - 1
'保存图片
fname=cstr(i&mid(strpic(i),instrrev(strpic(i),".")))
saveimage(strpic(i),fname)
Next
Else
End If

如：在论坛中用户的性格有多重性格、乐天达观、成熟稳重、幼稚调皮、温柔体贴等等，他们分别对应的值为0、1、2、3、4，在存储这些数据时使用间隔字符串，将数据存储到一个文本字段中。数据存储格式为：0|2|3|4|。

而在使用间隔字符串分隔各项数据时，0|2|3|4|与0|2|3|4在使用Split函数对其进行分隔的时候产生的数组最大下标值是不同的，往往在不注意的时候会在最右侧多写一个间隔字符。这样在输出的时候就会多遍历一个数据，为了避免这种情况的发生，就要对字符串进行检测。

思路：

1.检测右侧是否存在间隔字符串，如果存在则需要将数组最大下标值减一

2.如果不存在则直接返回原数组最大下标

代码：

Dim TempStr,TempArr,TempItem
TempStr="第一项1|第二项1|第三项|"
TempArr=Split(TempStr,"|")
Response.Write TempStr&"<br />"
For TempItem=0 To UBoundStrToArr(TempStr,UBound(TempArr),"|")
Response.Write TempArr(TempItem)&"<br />"
Next
’*************************
’函数:UBoundStrToArr
’作用:检测原字符串转换为数组的最大下标值
’参数:cCheckStr(需要检测的字符串)
’ cUBoundArr(生成数组的最大下标值)
’ cSpaceStr(间隔字符串)
’返回:数组的最大下标值
’************************
Public Function UBoundStrToArr(ByVal cCheckStr,ByVal cUBoundArr,ByVal cSpaceStr)
If Instr(cCheckStr,cSpaceStr)=0 Then
UBoundStrToArr=cUBoundArr
Exit Function
End If
Dim TempSpaceStr,UBoundValue
TempSpaceStr=Mid(cCheckStr,Len(cCheckStr)-Len(cSpaceStr)+1) ’获取字符串右侧间隔字符
If TempSpaceStr=cSpaceStr Then ’如果字符串最右侧存在间隔字符,则下标值需要-1
UBoundValue=cUBoundArr-1
Else
UBoundValue=cUBoundArr
End If
UBoundStrToArr=UBoundValue
End Function

来源：http://blog.csdn.net/lingyun410

Function cutbadchar(str)
badstr="不文明字符列表，用|分开（因发表时不能含有那些字符，所以不能贴出。）"
badword=split(badstr,"|")
For i=0 to Ubound(badword)
If instr(str,badword(i)) > 0 then
str=Replace(str,badword(i),"×××")
End If
Next
cutbadchar=str
End Function
%>

大家碰到过想取一字符串里的某些值而无从下手？有没有觉得看书或教材对split的写法糊里糊涂……如果有此疑问的话，请看下面我对例子的解释，相信您会对这个有一定的了解。

我先介绍一下Split函数的用法:
返回值数组 = Split("字符串","分割符")

假设变量strURL保存着URL值，如strURL = "ftp://username:password@server"，这是我们在ＩＥ中登录到FTP上时的ＵＲＬ形式，如果我们想把其中的 username和password取出来的话，该怎么办呢？当然解决的方法有许多，在这里我们只介绍用Split来解决的方法。首先，我们找出分割符。我们发现在这个字符串中，username和password之间有个冒号把它们隔开了，所以我们就把这个冒号作为Split函数的"分割符"来分割整个字符串，最后达到取username和password的目的。代码如下：
strURL = "ftp://username:password@server"
aryReturn = Split(strURL,":")

这样我们就把字符串用冒号分割开了，分割后的结果保存在aryReturn中（aryReturn是一个数组）。

下面我们就来看看这个最终的结果吧，因为Split函数最终返回的是一个数组，所以我们主要就是显示数组中的元素了，就要涉及到一些跟数组有关的函数:IsArray()判断是否数组的函数,LBound()取数组的下标,UBound()取数组的上标。

Response.Write("返回值是否为数组:" & IsArray(aryReturn) & "<br>")
For i = LBound(aryReturn) To UBound(aryReturn)
Response.Write("返回值数组中的元素[" & i & "]：" & Right(aryReturn(i),Len(aryReturn(i))-2) & "<br>")
Next

通过上面的代码，我们看到字符串被分割成三个部分，即："ftp"、"//username"、"password@server"。我们要取username和password需要进一步的处理，我就不多说了，直接给出代码。
取username的代码：
strUsername = Right(aryReturn(1),Len(aryReturn(1))-2)
取password的代码：

'取password我们又用到Split函数了，不过这回的分割符是"@"
aryTemp = Split(aryReturn(2),"@")
strPassword = aryTemp(0)
'我们可以顺便取出server
strServer = aryTemp(1)

分割符可以是一个字符，也可以是一个字符串。如：
aryReturn = Split("ftp://username:password@server,"//")

注意：
1.一般来说，ＡＳＰ中可以不声明变量，使用Split函数时，如果要声明返回值的变量的话，只能用Dim，而不能用Redim。虽然说其返回是一个数组，应该是用Redim也可以，但在实际使用过程中是不行。不知是怎么回事？
2. 如果用Split函数来分割一个字符串中并不存在的分割符时，将返回整个字符串，其结果是只有一个元素的数组。

后话，对于要取一字符串中的某些字符或部分，只要抓住规律，再加上用split就可以很好做成各种效果。写此文，希望对大家的学习有所帮助，同时也希望各路高手能够指点！转自蓝色理想

Asc Asc函数提取字符串第一个字母的ANSI字符码。
用法为：result = Asc(string)
其中result是字符码，string是任意有效的字符串表达式。如果string为Empty，则产生一个实时错误。

AscB AscB函数提取字符串的第一个字节。
用法为：result = AscB(string)
其中result是Byte字类，string是任意有效的字符串表达式。如果string为Empty，则产生一个实时错误。

AscW AscW函数提取字符串第一个字母的Unicode字符码。
用法为：result = AscW(string)
其中result是Unicode，string是任意有效的字符串表达式。如果string为Empty，则产生一个实时错误。

InStr InStr函数识别某个记号在字符串中的首字母位置。
用法为：newstart = InStr([start, ]source, token[, compare])
其中newstart时记号在字符串中的位置（如果没有的话则为0），start是查找的起始位置，source是要查找的字符串，token是要定位的字符串，compare是比较类型（0表示二进制比较，1表示忽略大小写的文本比较）。

InStrB InStrB函数是InStr的字节版，识别某个记号在字符串中的首字节位置。
用法为：newstart = InStrB([start, ]source, token[, compare])
其中newstart时记号在字符串中的首字节位置（如果没有的话则为0），start是查找的起始位置，source是要查找的字符串，token是要定位的字符串，compare是比较类型（0表示二进制比较，1表示忽略大小写的文本比较）。

LCase LCase函数把字符串变为小写形式。
用法为：result = LCase(string)
其中result是小写字符串，string是任意有效的字符串表达式。

Left Left函数从字符串的起始处提取指定数目的字符。
用法为：result = Left(string,length)
其中result是字符串变量，string是有效的字符串表达式，length是表示返回多少字符的数值型表达式。

LeftB LeftB函数从字符串的起始处提取指定数目的字节。
用法为：result = LeftB(string,length)
其中result是字符串变量，string是有效的字符串表达式，length是表示提取的字节数的数值型表达式。

Len Len函数确定字符串的大小或存储这个变量需要多少字符。
用法为：result = Len(string | varname)
其中，result是字符串中的字符数或存储这个变量所需的字节数，string是任意有效的字符串表达式，varname是变量名。

LenB Len函数确定字符串的大小或存储这个变量需要多少字节。
用法为：result = LenB(string | varname)
其中，result是字符串中的字节数或存储这个变量所需的字节数，string是任意有效的字符串表达式，varname是变量名。

LTrim LTrim函数复制字符串并去掉前面的空格。
用法为：result = LTrim(string)
其中，result是去掉空格后的字符串，string是要去掉空格的有效字符串表达式。

Mid Mid函数从字符串的某个位置复制指定数目的字符。
用法为：result = Mid(string,start[,length])
其中，result是结果字符串，string是要从中复制字符的表达式，start是string中复制的起始位置，length是要复制的字符数。

MidB Mid函数从字符串的某个位置复制指定数目的字节。
用法为：result = Mid(string,start[,length])
其中，result是结果字符串，string是要从中复制字节的表达式，start是string中复制的起始位置，length是要复制的字节数。

Right Right函数从字符串的尾部提取指定数目的字符。
用法为：result = Right(string,length)
其中result是字符串变量，string是有效的字符串表达式，length是表示返回多少字符的数值型表达式。

RightB RightB函数从字符串的起始处提取指定数目的字节。
用法为：result = RightB(string,length)
其中result是字符串变量，string是有效的字符串表达式，length是表示提取的字节数的数值型表达式。

RTrim RTrim函数复制字符串并去掉尾部的空格。
用法为：result = RTrim(string)
其中，result是去掉空格后的字符串，string是要去掉空格的有效字符串表达式。

String String函数构造含有多个相同字符的字符串。
用法为：result = String(number, character)
其中，result是字符串变量，number是返回字符串的长度，character是用来构造返回字符串的字符码。

Trim Trim函数复制字符串并去掉首尾的空格。
用法为：result = Trim(string)
其中，result是去掉空格后的字符串，string是要去掉空格的有效字符串表达式。

UCase UCase函数把字符串变为大写形式。
用法为：result = UCase(string)
其中result是大写字符串，string是任意有效的字符串表达式。

asp字符串函数   [讨论]

函数说明

CBool

数据转Boolean类型

Cdate

数据转Time类型

CDbl

数据转Double类型

Cint

数据转Integer类型

CLng

数据转Lang类型

Asc

字符转数字类型

CStr

数字转String类型

Chr

数字转字符类型

Variant变量一般会将其代表的数据子类型自动转换成合适的数据类型,但有时候,自动转换也会造成一些数据类型不匹配的错误.这时,可使用转换函数来强制转换数据的子类型.

函数 功能

Asc 函数 返回与字符串的第一个字母对应的 ANSI 字符代码。

Chr 函数 返回与指定的 ANSI 字符代码相对应的字符

Hex 函数 返回表示十六进制数字值的字符串。

Oct 函数 返回表示数字八进制值的字符串。

CStr 函数 返回表达式，该表达式已被转换为 字符串 子类型。

CDate 函数 返回表达式，此表达式已被转换为 日期 子类型。

CInt 函数 返回表达式，此表达式已被转换为 整数 子类型。

CLng 函数 返回表达式，此表达式已被转换为 长整数 子类型

CSng 函数 返回表达式，该表达式已被转换为 Single 子类型

CDbl 函数 返回表达式，此表达式已被转换为 Double 子类型

CBool 函数 返回表达式，此表达式已转换为 布尔 子类型

1、Asc 函数示例

下面例子中, Asc 返回每一个字符串首字母的 ANSI 字符代码:

Dim MyNumber

MyNumber = Asc("A") '返回 65。

MyNumber = Asc("a") '返回 97。

MyNumber = Asc("Apple") '返回 65。

2、Chr 函数示例

下面例子利用 Chr 函数返回与指定的字符代码相对应的字符:

Dim MyChar

MyChar = Chr(65) '返回 A。

MyChar = Chr(97) '返回 a。

MyChar = Chr(62) '返回 >。

MyChar = Chr(37) '返回 %。

3、Hex 函数示例

下面的示例利用 Hex 函数返回数字的十六进制数：

Dim MyHex

MyHex = Hex(5) ' 返回 5。

MyHex = Hex(10) ' 返回A。

MyHex = Hex(459) ' 返回 1CB。

4、Oct 函数示例

下面的示例利用 Oct 函数返回数值的八进制数：

Dim MyOct

MyOct = Oct(4) ' 返回 4。

MyOct = Oct(8) ' 返回 10。

MyOct = Oct(459) ' 返回 713。

5、 CStr 函数示例

<%num1=666StrWelcome="欢迎第"&CStr(num1)&"个来访者"%>

CStr将变量num1由整数子类型强制转换为字符串子类型

6、CDate 函数示例

MyDate = "October 19, 1962" ' 定义日期。

MyShortDate = CDate(MyDate) ' 转换为日期数据类型。

MyTime = "4:35:47 PM" ' 定义时间。

MyShortTime = CDate(MyTime) ' 转换为日期数据类型。

7、CInt 函数示例

Dim MyDouble, MyInt

MyDouble = 2345.5678 ' MyDouble 是 Double。

MyInt = CInt(MyDouble) ' MyInt 包含 2346。

8、CLng 函数示例

Dim MyVal1, MyVal2, MyLong1, MyLong2

MyVal1 = 25427.45: MyVal2 = 25427.55 ' MyVal1, MyVal2 是双精度值。

MyLong1 = CLng(MyVal1) ' MyLong1 25427。

MyLong2 = CLng(MyVal2) ' MyLong2 包含 25428 。

9、CBool 函数示例

Dim A, B, Check

A = 5: B = 5 ' 初始化变量。

Check = CBool(A = B) '复选框设为 True 。

A = 0 '定义变量。

Check = CBool(A) '复选框设为 False