28,390
社区成员
发帖
与我相关
我的任务
分享
<%
s = "/path_a/path_b/1.jpg|/path_a/path_b/2.jpg"
Response.Write getPath(s)
Function getPath(s)
Dim a, t
t = ""
a = Split(s, "/")
For i=0 To 2
t = t & a(i) & "/"
Next
getPath = t
End Function
%>