无效使用 Null: 'Split' ,搞得崩溃了。求救!
Sub ChangeIP()
Do while not rs.eof
Dim path,num,i,a,Lastpath
if rs("url")=null then
path="This/is/null"
else
path=trim(rs("url"))
end if
**/106行/**** a = Split(path ,"/")
num= ubound(a)
for i= 0 to num
if i = 2 then
a(i)="cxc"
end if
if i = num then
Lastpath=Lastpath & a(i)
else
Lastpath=Lastpath & a(i) &"/"
end if
next
response.Write("<br>"+path)
response.Write("<br>"+Lastpath)
Lastpath = ""
rs.movenext
loop
end Sub
要的结果是显示出来了 不过多了:
无效使用 Null: 'Split'
/mzing/ctrl/admin_softmu.asp,行106