asp利用fso生成html页面

asp利用fso生成html页面,此文章是我大二时写的了,就是利用asp自带组件fso来进行用户文件上传时就生成html文件用了,它也很好的判断文件名称是否存在了,等提示
<%

dim path,filename,filetype,fileconten,fso
path=request("path")
filename=html_encode(request("filename"))
filecontent=request("filecontent")
filetype=request("filetype")
if instr(filename,"*")>0 or instr(filename,"?")>0 or instr(filename,"&")>0 or len(filename)<0 or filename="" then
response.Write("<script language='javascript'>alert('非法的文件名!');history.back();</script>")
response.end
else
set fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(path&filename&filetype) then
response.Write("<script language='javascript'>alert('文件名己存,请重新选择!');history.back();</script>")
response.End()
end if
set input=fso.createtextfile(server.mappath(path&filename&filetype),true)
input.writeline(filecontent)
input.close
if err then
response.Write("<script language='javascript'>alert('不可预料的错误!保存文件失败!');history.back();</script>")
else
%>
   <script language="">
    var pathh="<%=replace(session("scriptname"),"","/")%>";
    alert("文件成功!");
   window.location="try/mange_page.asp?pathh="+pathh;
   </script>

   <%

end if
end if
%>

原创: www.226511.com 转请注明

补充：asp教程,FSO专题