我要替换一个字行串:把e:\xxx\xxx\xxxx.jpg 变成vip/xxxx.jpg

[COMPUTERZZZ]

我要替换一个字行串:把e:\xxx\xxx\xxxx.jpg 变成vip/xxxx.jpg
怎么做?

[penglewen]

str="vip/"
tempstr=split("e:\xxx\xxx\xxxx.jpg","\")
str=str&tempstr(3)

[COMPUTERZZZ]

e:\xxx\xxx\xxxx.jpg 是一个文件域的打开对话框取得文件的路径,我要把它变成网站的路径
vip/xxxx.jpg

[COMPUTERZZZ]

主要是取得文件名

[COMPUTERZZZ]

str="vip/"
tempstr=split("e:\xxx\xxx\xxxx.jpg","\\") 是不是这样,用两个\
str=str&tempstr(3)

[Leey001]

把1楼的修改下就行了

str1="e:\xxx\xxx\xxxx.jpg"
str2="vip/"
Str1Array=Split(str1,"\")
Str=Str2&Str1Array(UBound(Str1array))

[COMPUTERZZZ]

不对呀!
<script language="vbscript">
<!--
sub btnadd_onclick()
Dim TheForm,str,tempstr
set TheForm=Document.AddForm
if TheForm.Goods_no.value="" then
MsgBox "不能為空!"
else
str="vip/"
tempstr=split(TheForm.file.value,"\\")
str=str&tempstr(3)
response.Write(str)

End if
end sub
-->
</script>

[COMPUTERZZZ]

file是一个文件域

[penglewen]

right(str,inStrRev(str,"\")-1)
看看是不是这种

[penglewen]

tempstr=split(TheForm.file.value,"\")这样就行了...........