Question

ASP 0177 (0x800401F3) 无效的字符串类型！！！

<!--#include file="conn.asp"-->
<%
dim worktype1,text_kind,text_topic,text_worker,text_message,text_time,id,filename,folder,filepath
worktype1=request.QueryString("worktype1")
text_kind=request.form("text_kind")
text_topic=request.form("text_topic")
text_worker=request.form("text_worker")
text_time=request.form("text_time")
id=request.QueryString("id")

For i = 1 To Request.Form("content1").Count
text_message=text_message & Request.Form("content1")(i)
Next
response.write text_message
if worktype1="addnews" then

filename="fudan_"&year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())&".html"
folder="html/"&date()&"/"
filepath=folder & filname

sql="insert into text1 (text_kind,text_topic,text_worker,text_message,text_filepath) values('"&text_kind&"','"&text_topic&"','"&text_worker&"','"&text_message&"','"&filepath&"')"
rs.open sql,conn,1,1
set rs1=server.CreateObject("adodb.recordset")
sql="select moban from moban"
rs1.open sql,conn,1,1
m_code=rs1("moban")
m_code=replace(m_mode,"$topic$",text_topic)
m_code=replace(m_mode,"$worker$",text_work)
m_code=replace(m_mode,"$time$",now())
m_code=replace(m_mode,"$kind$",text_kind)
m_code=replace(m_mode,"$message$",text_message)
set fso=server.CreateObject("scripting filesystemobject")
if not fso.folderexists(server.mappath(folder)) then
fso.createfolder(server.mappath(folder))
end if
set fout=fso.createtextfile(server.mappath(filepath))
fout.writeline m_code
fout.close
%>
<script>
alert("插入成功")
location.href=("modynews.asp?worktype=add");
</script>

<%elseif worktype1="modynews" then
sql="update text1 set text_kind='" &text_kind& "',text_topic='" &text_topic&"',text_worker='" &text_worker& "',text_message='" &text_message&"',text_time='" &text_time&"' where id="&id
rs.open sql,conn,1,1 %>

<script>
alert("更新成功")
location.href=("modynews.asp?worktype=mody");
</script>

<%
end if
%>

帮我看看吧！传到网上也不行，看来不是什么什么iis插件没装等问题了。
这是一段写生成静态html的问题，点击发表文章后会出现错误，想让他自己生成一个日期分类的文件夹也那么烦，埃

错误类型：
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串
/webtest/test/addnews.asp, 第 32 行

第 32 行是：
set fso=server.CreateObject("scripting filesystemobject")

Answer 1

set fso=server.CreateObject("scripting filesystemobject")
改成
set fso=server.CreateObject("scripting.filesystemobject")