已解... 順便給以後有同樣問題的人參考

答案如下:
<% Set Upload = Server.CreateObject("Persits.Upload.1") Upload.OverWriteFiles = true //可覆寫 Upload.SetMaxSize 5048576 //5MB大小 testloadpath = server.MapPath("/test/img/") //路徑 icount = upload.Save(testloadpath) //上傳數量 if icount > 0 then set a = upload.files("a1") b = a.filename <span style="color: Black;">k = replace(Ucase(b),".","") </span>//將變數b轉成字串，經由replace 得到檔名 response.write k //test ok!! else response.Write "test2" end if %>

更正 UCASE是將字串 轉成大寫

改為k = replace((b),".","")

這樣只是把"."去掉，後面的"jpg"還是存在不是嗎?

頑童大大您說的沒錯

所以我改成寫一個變數 c 去抓file.Ext

底下寫了一個 多個上傳檔案的寫法

提供分享

Set Upload = Server.CreateObject("Persits.Upload.1") 'Upload.IgnoreNoPost = True // if error enctype="multipart/form-data" add this Method Upload.OverWriteFiles = true Upload.SetMaxSize 5048576 testloadpath = server.MapPath("/test/img/") icount = upload.Save(testloadpath) if icount > 0 then for each file in upload.files set a = upload.files(file.name) b = a.filename c =file.Ext if c = "" then response.Redirect "testimg.asp" else k1 = replace(b,c,"") response.Write k1 end if next else response.Write "test2" end if

提供一個建議
因現的檔案名稱並不限定只能有一個逗點
所以若直接Replace是有風險存在的
例如:若檔名是 123.jpg.jpg
正常來說，應該只要去掉最後面的".jpg"就好，結果應該是"123.jpg"
但用Replace的話，後面的兩個".jpg"都會被去掉，結果變成只有"123"
也許改用Mid(b, 1, len(b) - len(c))試試看

只取檔名Function

Function GetFileName(fileName) tmpFName = Mid(fileName,1,InstrRev(fileName,".")-1) GetFileName=tmpFName End Function