眉峰上方有痣代表什么:FSO问题，快来救命啊！老提示“MapPath 方法的路径参数中有无效字符”

<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/data/mdb.mdb")

'生成文件名的函数
function makefilename(fname)
fname = fname
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname & ".html"
end function

'保持数据格式不变的函数
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "<br>")
fString = Replace(fString, CHR(10), "<br>")
HTMLEncode = fString
end function

sql = "SELECT * FROM merchant order by id asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,conn,1,1
do while not rs.eof

c_name=trim(rs("name")) '商家名称
c_contact=trim(rs("contact")) '联系人
c_id=rs("id")

'生成HTML文件名，建立文件夹，指定文件路径
fname = makefilename(time())
folder = "Merhtml/"&c_publishtime&"/"
filepath = folder&fname

'打开模板代码，并将其中特殊代码转变为接受值
sql1="select mb_id,mb_merchant from moban where mb_id=1"
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,3
mb_code=rs1("mb_merchant")
rs1.close
set rs1=nothing

c_name=htmlencode(c_name) '商家名称
c_contact=htmlencode(c_contact) '联系人

mb_code=replace(mb_code,"$Merid$",c_id)
mb_code=replace(mb_code,"$MerName$",c_name)
mb_code=replace(mb_code,"$MerOperation$",c_Operation)

'生成HTML页面
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(Server.MapPath(folder)) then
else
fso.CreateFolder(Server.MapPath(folder))
end if
Set fout = fso.CreateTextFile(Server.MapPath(filepath))
fout.WriteLine mb_code

fout.close

conn.execute("update merchant set merhtml='"&filepath&"' where Id=" & c_Id)

rs.movenext
loop
rs.close
set rs=nothing
response.Write("成功生成html页面")
%>