飘凌大杂烩 → web服务器 → asp伪静态化 iis
查看完整版本：asp伪静态化 iis
piaoling
2009/9/8 11:07:17

写这个教程的初衷在首页摘要已经说的很清楚了，现在就开始。
一、数据库很简单使用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>  

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

Powered by BBSXP 2007 ACCESS © 1998-2025
Processed in 0.01 second(s)