静态页面是蜘蛛喜欢的，会得到蜘蛛经常光顾的，以至于网站上的内容会得到搜索引擎更多的收录

　　这里介绍一个asp伪静态的程序实现方法

　　数据库是access，表名article，里面有id，title，content

　　config.asp连接数据库文件

　　<%

'功能：asp实现伪静态的例子

'网址：www.aspprogram.cn

'来源：网络

'数据库链接

db="data.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath(db)

conn.open connstr

If Err Then

err.Clear

Set conn = Nothing

Response.Write "数据库连接出错，请检查连接字串。"

Response.End

End If

'定义新闻阅读界面的读取

Dim News_title,News_content

Sub ReadNews()

set rs1=server.createobject("adodb.recordset")

sql1="select id,title,content from article where id="& ID

rs1.open sql1,conn,3,3

News_title=rs1("title")

News_content=rs1("content")

rs1.close

set rs1=Nothing

End Sub

% >　　'功能：asp实现伪静态的例子

　　'网址：www.aspprogram.cn

　　'来源：网络

　　'数据库链接

　　db="data.mdb"

　　Set conn = Server.CreateObject("ADODB.Connection")

　　connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath(db)

　　conn.open connstr

　　If Err Then

　　err.Clear

　　Set conn = Nothing

　　Response.Write "数据库连接出错，请检查连接字串。"

　　Response.End

　　End If

　　'定义新闻阅读界面的读取

　　Dim News_title,News_content

　　Sub ReadNews()

　　set rs1=server.createobject("adodb.recordset")

　　sql1="select id,title,content from article where id="& ID

　　rs1.open sql1,conn,3,3

　　News_title=rs1("title")

　　News_content=rs1("content")

　　rs1.close

　　set rs1=Nothing

　　End Sub

　　% >

　　index.asp新闻列表页

　　<!--#include file="config.asp"-- >

　　<ol>

　　<%

Set rs=server.CreateObject("adodb.recordset")

sql="select * from Article"

rs.open sql,conn,1,1

do while not rs.eof

% >　　Set rs=server.CreateObject("adodb.recordset")

　　sql="select * from Article"

　　rs.open sql,conn,1,1

　　do while not rs.eof

　　% >

　　<li><a href="http://www.aspprogram.cn/article.asp?/< %=rs("id")% >.html">< %=left(trim(rs("title")),30)% ></a></li>

　　<%

rs.movenext

loop

rs.close

set rs=Nothing

% >　　rs.movenext

　　loop

　　rs.close

　　set rs=Nothing

　　% >

　　</ol>

　　article.asp新闻内容页

　　<!--#include file="config.asp"-- >

　　<%

id=request.QueryString("id")

If id="" Then

server_v40=Request.ServerVariables("QUERY_STRING")

id=Int(replace(replace(server_v40,"/",""),".html",""))

End If

Call ReadNews()

% >　　id=request.QueryString("id")

　　If id="" Then

　　server_v40=Request.ServerVariables("QUERY_STRING")

　　id=Int(replace(replace(server_v40,"/",""),".html",""))

　　End If

　　Call ReadNews()

　　% >

　　<div>

　　标题: <b>< %= News_title% ></b><br />

　　内容: <%=News_content% >

　　</div>