asp实现伪静态的例子

1、复制以上代码命名为index.asp

2、<!--#include file="config.asp"-->    

<%    

'功能：asp实现伪静态的例子

'网址：www.rrjf.com.cn

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>  

复制命名为Article.asp

3、<%    

'功能：asp实现伪静态的例子

'网址：www.rrjf.com.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     

%>   

复制命名为config.asp