'===joey 新加的============================
sPath = request("tFileName")
sFname= getfilename(sPath)
function getfilename(filename)
'直接getfilename = filename會是完整的路徑，以下是拆字串找出只有檔名的部份
atmp = split(filename,"")
nCnt = UBound(aTmp)
getfilename=aTmp(nCnt)
end function
'response.write sFname
'response.end
