这个asp生成静态文件的代码哪有错误啊？急

2010-07-06 11:27:00 105 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ASP.NET MVC 中静态文件的高效管理与优化 ASP.NET MVC框架中静态文件的管理与优化摘要：本文系统介绍了ASP.NET MVC框架中静态文件(如CSS、JavaScript和图片)的管理方法与优化策略。内容涵盖静态文件的定义与类型、默认处理机制、缓存策略、路径配置管理、与路由的关系处理、安全访问控制以及性能优化技巧。通过合理的项目结构设计、文件引用方式、缓存策略设置以及安全控制措施，可以有效提升Web应用的加载速度和用户体验。阅读详情

<%
dim title,content,id

if reguest("id")="" then
id=0
else
id=reguest("id")

Dim fso,f,htmlpath,mobanpath,tmppath
Dim strTitle,strContent,strOut
'创建文件系统对象
htmlpath=Server.MapPath("html")
mobanpath=Server.MapPath("cmoban.html")
Set fso=Server.CreateObject("Scripting.FileSystemObject")

Set f=fso.OpenTextFile(Server.MapPath("cmoban.html")) '打开网页模板文件，读取模板内容
strOut=f.ReadAll
f.close

set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select top 50 * from jingdian where id > " & id & "by order by id"
rs.Open rs.Source,Conn,1,1

Do While not rs.eof '貌似这个循环有问题。不过不知道怎么错的
tmppath = htmlpath & "\" & rs("s_id") & "\" &rs("o_id") '定义路径
if not fso.folderExists(tmppath) then
fso.creasteFolder(tmppath) '创建文件夹
end if
title=rs("title")
content=rs("content")
strTitle = title
strContent= content
strOut=Replace(strOut,"$title$",strTitle) '替换strOut字符串中的$title$
strOut=Replace(strOut,"$xiangqing$",strContent) '替换
Set f=fso.CreateTextFile(tmppath&"\" & rs("id") & ".html") '创建要生成的静态页
f.WriteLine strOut '写入网页内容
f.close ' 关闭文件对象
set f=Nothing '释放文件系统对象
if not rs.eof then
rs.movenext '移到下一个记录
end if

Loop
id=rs("id") '记录当前已创建了的ID值用于下页更新
rs.close
set rs=nothing

set fso=Nothing
%>
<%
Response.Write ("已更新了" & id & "个景点信息！")
%>

<script language="javascript">
location="updataall.asp?id=<% = id %> " ;
</script>

...全文