请教高手！FSO取得文件下载路径后怎么样隐藏后缀名

Question

<%
folderspec=server.MapPath("4Download")
    Dim fso4,f6,f9,fc7,s5
    Set fso4 = CreateObject("Scripting.FileSystemObject")
    Set f6 = fso4.GetFolder(folderspec)
    Set fc9 = f6.Files
    For Each f5 in fc9
        s5 = f5.name 
        response.Write ("<br />小说:<a href='/Download/"&s5&"' target='_blank'>"&s5&"</a><br>")
    Next
%>读出来的下载地址是 小说:丘琳《冰霜小魔女》.txt小说:丘琳《捉妻》.txt可以超链接!但显示超链接的名称有后缀名！请高手帮我改改。小弟初学ASP
我想得出的下载地址是这种形式,没有扩展名
丘琳《冰霜小魔女》
丘琳《冰霜小魔女》

Answer 1

response.Write (" <br />小说: <a href='/Download/"&s5&"' target='_blank'>"&s5.substring(0,s5.length-3)&" </a> <br>")

Answer 2

response.Write (" <br />小说: <a href='/Download/"&s5&"' target='_blank'>"&s5.substring(0,s5.length-3)&" </a> <br>")这个还是不行，Microsoft VBScript 运行时错误 '800a01a8' 缺少对象: '丘琳《冰霜小魔女》.txt' 
快帮帮我啊。在线等。给分啊。