当前位置: 移动技术网 > IT编程>开发语言>.net > ASP程序实现网页伪静态页源代码

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

2019年01月19日  | 移动技术网IT编程  | 我要评论
一、很简单使用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>  

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

如您对本文有疑问或者有任何想说的,请点击进行留言回复,万千网友为您解惑!

相关文章:

验证码:
移动技术网