28,390
社区成员
发帖
与我相关
我的任务
分享
wholeURL = "http://www.123123.com/bbs/test.asp"
s = Replace(wholeURL, "http://", "")
hostURL = "http://" & Split(s, "/")(0)
response.write hostURL
Function getStr(fString,patrn)
dim str
str=""
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
Set reg=regEx.execute(fString)
int i=0
for i=0 to (reg.count-1)
if i=(reg.count-1) then
str = str & reg(i)
else
str = str & reg(i) & "|"
end if
next
getStr=str
End Function
str="http://www.123123.com/bbs/test.asp"
Response.Write(str,"http\:\/\/[^\/]+")
'//试试这个