28,406
社区成员
发帖
与我相关
我的任务
分享a="d:/jsp/aaa/file.jpg"
MsgBox Right(a,Len(a)-InstrRev(a,"/"))
a="d:/jsp/aaa/file.jpg"
Response.Write getName(a)
Function getName(s)
Dim p
s = Replace(s, "\", "/")
p = InStrRev(s, "/")
getName = Mid(s,p+1,Len(s)-p)
End Function