请教,有一个动态生成的字符串 newsupdate2006-3-20/2006-3-20/200632005323911.shtml(这是最终的联结字符串)

一开始是两部分连接的字符串a3

a1=newsupdate2006-3-20/

a2=2006-3-20/200632005323911.shtml

a3=newsupdate2006-3-20/2006-3-20/200632005323911.shtml(a1和a2的连接)

多了一个"/"+2006-3-20,我想把这部分给截取掉,2006-3-20这个字符串是动态生成的(year(Now()) & "-" & month(Now()) & "-" & day(Now())),请问这个字符串应该怎么截取?先谢谢了..............

Function AryMidStr(sstr(),str)
On Error Resume Next
Dim tstr, mstr, tui
Dim i, num, j
num = 0
For i = 0 To Len(str)
tstr = Mid(str, i + 1, 1)
IF tstr = "/" Then
num = num + 1
End If
Next
ReDim sstr(num)
j = 0
For i = 0 To Len(str)
tstr = Mid(str, i + 1, 1)
IF tstr <> "/" Then
mstr = mstr & tstr
Else
IF j < num Then
sstr(j) = mstr
mstr = ""
j = j + 1
End If
End If
Next
End Function
我自己写的函数
用法
Dim Ary()
Dim a3
a3=newsupdate2006-3-20/2006-3-20/200632005323911.shtml
AryMidStr Ary(),a3
Response.Write "截取后的字符串为"&Ary(0)&Ary(UBound(Ary)-1)
楼主可以运行一下试试。

谢谢你,不过好象有点复杂,我已经知道简单的方法了,