查看完整版本: [-- ASP程序实现网页伪静态页源代码 --]

.::: 一路问情 :::. -> 『建站技术』 -> ASP程序实现网页伪静态页源代码 [打印本页] 登录 -> 注册 -> 回复主题 -> 发表主题

じ☆丶亮£☆ 2008-08-16 20:40

很简单的教程,献给喜欢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.aspASP/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 RespXXe.Write "数据库连接出错,请检查连接字串。" RespXXe.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代码
    <% Set rs=server.CreateObject("adodb.recordset") sql="select * from Article" rs.open sql,conn,1,1 do while not rs.eof %>
  1. .html"><%=left(trim(rs("title")),30)%>
  2. <% 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%>




这个教程已经能实现最基本的功能,具体大家就想怎么应用就八仙过海,各显神通了!
本篇文章来自IDC专家网 原文链接:http://www.soidc.net/articles/1183730975605/20080418/1208604860314_1.html

快乐BOY 2008-08-19 17:37
仿静态需要服务器的支持 站长们 若开启 需要自己服务器支持


查看完整版本: [-- ASP程序实现网页伪静态页源代码 --] [-- top --]



Powered by PHPWind v6.3.2 Code © 2003-08 PHPWind
Time 0.047823 second(s),query:4 Gzip enabled

You can contact us