二度空间|帮助中心


ASP利用FSO生成HTML

首先通过php探针查看你的asp环境是否支持 fso组建 如果支持可以用下面这个例子进一步测试是否可以正常生成html页面

<%

Dim post,filename,path,path1,yes,content

post=request(”post”)

filename=request(”filename”)

path=request(”path”)

path1=replace(path,”/”,”")

yes=request(”yes”)

content=request(”content”)

If post=1 Then

If filename=”" Or path=”" Or yes=”" Or content=”" Then

response.write “对不起你有某项内容没有填写无法生成!” ‘如果用户信息填写不完全就返回错误信息

response.End

else

set fso = Server.CreateObject(”Scripting.FileSystemObject”) ‘设置FSO对象

If yes=1 Then ‘如果用户选择了“如果路径不存在就创建新文件夹”,

If Not fso.FolderExists(server.mappath(”"&path&”")) Then ’则检查用户输入的文件夹是否存在

fso.CreateFolder (server.mappath(”"&path1&”")) ‘不存在就自动创建

End If

Else ’如果用户选择了“如果路径不存在不自动创建新文件夹”,

If not fso.FolderExists(server.mappath(”"&path&”")) Then ‘则检查用户输入的文件夹是否存在

response.write “路径不存在,请后退重新输入!” ’如果路径不存在就提示用户返回重写

response.End

End If

End If

End If

set fout = fso.CreateTextFile(server.mappath(”"&path&”/”&filename&”")) ’设置一个对象fout创建文件

fout.write content ‘把文件内容写入文件

response.write “生成成功!” ‘给用户返回生成成功的信息

response.end

fout.close ‘关闭fout对象

set fout=Nothing ‘清空fout对象

set fso=Nothing ‘清空FSO对象

End If

%>

<form name=”form1″ method=”post” action=”"><br><br>要生成的文件内容:<br>

<textarea rows=15 cols=60 name=”content”></textarea>

<br><br>

如果路径不存在就创建新文件夹:<input type=”radio” name=”yes” value=”1″>是 <input type=”radio” name=”yes” value=”0″>否

<br><br>

路 径:<input type=”text” name=”path” value=”">

<br><br>

文件名:<input type=”text” name=”filename” value=”">

<br><br>

<input type=”hidden” name=”post” value=”1″>

<input type=”submit” name=”Submit” value=”生成”>

</form>

</form>

</form>

上一篇: Access数据库的压缩与修复

下一篇: 没有纪录!


首页 | 关于我们 | 企业文化 | 诚聘英才 | 帮助中心 | 付款方式 | 友情链接 | 网站地图 | 联系我们
沪ICP备07033425号