asp静态生成，伪静态
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!-- #include file="../configinc/conndb.asp"-->
<!--#include file="../configinc/function.asp"-->
<%
keys=request.QueryString("keys")
dim objXmlHttp,binFileData,objAdoStream
if request("action")="index" then
call indexhtml()
response.Write "已更新 首页 页面！"&"<br>"
elseif request("action")="message" then
call messagehtml()
response.Write "已更新 在线留言 页面！"&"<br>"
else
'============================列表页开始======================================
ids=""
call lids(keys)
ids=keys&ids
set rsf=server.CreateObject("adodb.recordset")
rsf.open "select id from "&tables&" where lid in("&ids&") order by shijian desc",conn,1,1
do while not rsf.eof
strOut=ReadfromUTF(Server.MapPath("../")&"\asp\show_"&keys&".htm","utf-8")
'读取数据信息
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select site from "&table&" where id="&keys&" ",conn,3,3
left_site=rs1("site")
rs1.close
set rs1=nothing
'没有分类的左边显示
leftxx=""
if shangjis(keys)=99 then
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select id,title from "&tables&" where lid="&keys&" ",conn,3,3
do while not rs1.eof
leftxx=leftxx&left_site
leftxx=Replace(leftxx,"{left_id}",rs1("id"))
leftxx=Replace(leftxx,"{left_title}",rs1("title"))
相关文档：
在网上看到很多这方面的代码，但是有些是不能用，有些是垃圾代码太多，我简单的修改了一下现在与大家共享一下。
<%
Option Explicit
dim databasename '定义数据库名称
databasename="database.mdb" '数据库名称
dim databasepath '定义数据库存放路径
......
Active Server Pages 提供内建对象，这些对象使用户更容易收集通过浏览器请求发送的信息、响应浏览器以及存储用户信息（如用户首选项）。本文简要说明每一个对象。
Application 对象
可以使用 Application 对象使给定应用程序的所有用户共享信息。
Request 对象
可以使用 Request 对象访问任何用 HTTP 请 ......
前面说了.NET如何伪静态化，其实Asp url伪静态化也很简单了。好的东西大家分享下！
有不懂的可以加我QQ 282116460
详细内容如下：
IIS下安装配置ISAPI Rewrite，实现asp的静态化的方法！
最近一直在搞俺小站的搜索引擎优化，效果还可以，从10月底的每天40IP上升到现在每天200多个。不过流量还是太少了。据说把动态的� ......
1.记录集关闭之前再次打开:
------------------------------------
sql="select * from test"
rs.open sql,conn,1,1
if not rs.eof then
dim myName
myName=rs("name")
end if
sql="select * from myBook"
rs.open sql,conn,1,1
------------------------------------ ......
