asp程序用来实现伪静态方法的代码
点击次数:105 次 发布日期:2008-09-18 15:09:00 作者:源代码网
|
源代码网推荐静态页面是蜘蛛喜欢的,会得到蜘蛛经常光顾的,以至于网站上的内容会得到搜索引擎更多的收录 这里介绍一个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 % >
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 % > <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 % > </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() % > <div> 标题: <b>< %= News_title% ></b><br /> 内容: < %=News_content% > </div>
源码见:http://www.aspprogram.cn/soft.asp?id=63 源代码网供稿. |