ASP生成静态页面例子程序

<%
response.Buffer=false
%>
<input type="text" id="n" style="height:25px; padding:5px;border:1px #eeeeee solid; color:#FF0000; font-size:12px; width:200px; position:absolute; left:500;top:300px;" >
<script>
function getfun(obj,state)
{
if(obj!="")
{
var n = document.getElementById("n").value=obj
}
if(state!="" && state=="ok")
{
alert("恭喜，生成静态页面完毕");
}
//alert(n)
}
</script>
<%
Db="../data/#@$!%^@.mdb" '首页是要连接数据库
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")
Conn.Open ConnStr

'--------------------创建存放.html的文件夹
dim counter,dir,htmldir,tempfile
fileName =server.mappath("product.html")
htmldir  =server.mappath(".\newhtml\")
set fso = server.CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(htmldir) = true then
if not fso.createFolder(htmldir) =false then
Response.write "creatge folder sucessfull. <br>