一个比较急的问题,谢谢帮忙!!

心碎无痕发布于 2008-08-27 22:32， 678 次点击

比如,我在数据库里面读取出来的地址是  http://www.  这样的地址

我如果截取掉, 只留一下www.

而且数据库里面,的地址都是不一样的

截取掉http://  再截取掉第一个 / 后面的值??   不知道该怎么写代码, 高手帮帮忙,谢谢!!

5 回复

yms1232008-08-27 23:33

用Split和Replace来截取
比如
Dim tStr,tAry,i
tStr="http://www.
tStr=Replace(tStr,"http://","")
tAry=Split("/")
For i=0 To UBound(tAry)
Response.Write tAry(i)&"<br>"
Next

心碎无痕2008-08-28 08:13

错了,截取完,只有一个 / 了, ???

yms1232008-08-28 09:56

<%
Dim tStr,tAry,i
tStr="http://www.
tStr=Replace(tStr,"http://","")
tStr=Replace(tStr,"/","|")
tAry=Split(tStr,"|")
For i=0 To UBound(tAry)
Response.Write tAry(i)&"<br>"
Next
%>

hmhz2008-08-28 11:18

程序代码：

<%
Dim tStr,tAry
tStr="http://www.(tStr,"http://","")
tAry=Split(tStr,"/")
Response.Write tAry(0)
%>

心碎无痕2008-08-29 01:19

谢谢,,谢谢各位的帮忙,,,,