nword_html_save.asp

shopxp网上购物系统v6.6已经调试,百分百可用

<!--#include file="inc/MyRequest.asp"-->
<%
dim content'网站的静态输出结果
content=request("content")
Set fso = CreateObject("Scripting.FileSystemObject")'用FSO组件
'打开一个页面，如果没有则创建它
txt_name="../js/adword.js"
set fsofile = fso.OpenTextFile(server.mappath(txt_name),2,true)
'开始写文件，按照HTML格式写，并从数据库中读取数据
fsofile.writeline content'写入静态文件
set fsofile=nothing'释放系统资源
set fso=nothing
set content=nothing
call wurl("操作成功","main.asp")
%>