[駁]ASP偽靜態頁簡單教程

原文：http://www.anace.cn/article.asp?/a73.html

寫這個教程的初衷在首頁摘要已經說的很清楚了，現在就開始。
一、資料庫很簡單使用ACCESS，Data.mdb建立一個表Article，三個欄位：ID，Title，Content；自動編號、標題、文章內容。
二、Config.asp

ASP/Visual Basic代碼

1. <%   
2. '資料庫連結   
3. db="data.mdb"  
4. Set conn = Server.CreateObject("ADODB.Connection")   
5. connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)   
6. conn.open connstr   
7.   
8.     If Err Then  
9.         err.Clear   
10.         Set conn = Nothing  
11.         Response.Write "資料庫連接出錯，請檢查串連字串。"  
12.         Response.End  
13.     End If  
14.   
15. '定義新聞閱讀介面的讀取   
16. Dim News_title,News_content   
17.   
18. Sub ReadNews()   
19.  set rs1=server.createobject("adodb.recordset")   
20.   sql1="select id,title,content from article where id="& ID   
21. rs1.open sql1,conn,3,3   
22.     News_title=rs1("title")   
23.     News_content=rs1("content")   
24. rs1.close   
25. set rs1=Nothing  
26. End Sub    
27. %>  

三、Default.asp

ASP/Visual Basic代碼

1. <!--#include file="config.asp"-->   
2. <ol>   
3. <%   
4. Set rs=server.CreateObject("adodb.recordset")   
5. sql="select * from Article"  
6. rs.open sql,conn,1,1   
7. do while not rs.eof   
8. %>   
9. <li><a href="article.asp?/<%=rs("id")%>.html"><%=left(trim(rs("title")),30)%></a></li>   
10. <%   
11. rs.movenext   
12. loop   
13. rs.close   
14. set rs=Nothing  
15. %>   
16. </ol>  

四、Article.asp 

ASP/Visual Basic代碼

1. <!--#include file="config.asp"-->   
2. <%   
3. id=request.QueryString("id")   
4. If id="" Then    
5. server_v40=Request.ServerVariables("QUERY_STRING")   
6. id=Int(replace(replace(server_v40,"/",""),".html",""))   
7. End If    
8. Call ReadNews()   
9. %>   
10. <div>   
11. 標題: <b><%= News_title%></b><br />   
12. 內容: <%=News_content%>   
13. </div>  

這個教程已經能實現最基本的功能，具體大家就想怎麼應用就八仙過海，各顯神通了！

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
個人認為此搜尋引擎最佳化已經變得多此一舉。搜尋引擎是不會認為帶？號的連結為友好，所以此做法是白費工夫，畫蛇添足的味道。。這個友好也是偽友好。只是針對人的讓人看著習慣一些罷了。
而且覺得asp可以不考慮偽靜態方面，本身個大搜尋引擎也在想方設法自己的收錄量，所以他們也會在動態連結上做足功夫。