欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-05-11 18:40:13
一、很简单使用access,data.mdb建立一个表article,三个字段:id,title,content;自动编号、标题、文章内容。...

一、很简单使用access,data.mdb建立一个表article,三个字段:id,title,content;自动编号、标题、文章内容。

二、config.

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代码
<!--#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="article.asp?/<%=rs("id")%>.html"><%=left(trim(rs("title")),30)%></a></li>   
<%   
rs.movenext   
loop   
rs.close   
set rs=nothing  
%>   
</ol>  

四、article.asp

asp/visual basic代码

<!--#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()   
%>   
<p>   
标题: <b><%= news_title%></b><br />   
内容: <%=news_content%>   
</p>  

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