ASP程序实现网页伪静态页源代码

很简单的教程，献给喜欢SEO的朋友们。把http://www.***.cn/article.asp?logID=26 替换成http://www.***.cn/article.asp?/a26.html。不需要通过iis+ISAPI_Rewrite做基于IIS的url rewrite 一、数据库很简单使用ACCESS，Data.mdb建立一个表Article，三个字段：ID，Title，Content；自动编号、标题、文章内容。 二、Config.asp ASP/Visual Basic代码 <% '数据库链接 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 %> 三、Default.asp 以下为引用的内容： ASP/Visual Basic代码

1. <% Set rs=server.CreateObject("adodb.recordset") sql="select * from Article" rs.open sql,conn,1,1 do while not rs.eof %>
2. .html"><%=left(trim(rs("title")),30)%>
3. <% rs.movenext loop rs.close set rs=Nothing %>

四、Article.asp ASP/Visual Basic代码 <% id=request.QueryString("id") If id="" Then server_v40=Request.ServerVariables("QUERY_STRING") id=Int(replace(replace(server_v40,"/",""),".html","")) End If Call ReadNews() %>

标题: <%= News_title%>
内容: <%=News_content%>

这个教程已经能实现最基本的功能，具体大家就想怎么应用就八仙过海，各显神通了！