一、数据库很简单使用你网站原本的数据库就行了。

二、Config.asp 网站配置文件
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  title, content,keytitle,keysm,bigpic
Sub ReadNews()  
set rs1=server.createobject("adodb.recordset")  
  sql1="select * from product where name='"& name&"'" 
rs1.open sql1,conn,3,3  
    title=rs1("title")  
     content=rs1("content")  
  keytitle=rs1("keytitle")
keysm=rs1("keysm")
bigpic=rs1("bigpic")
rs1.close  
set rs1=Nothing 
End Sub   
%>
三、index.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("name")),30)%>  
   <%  
   rs.movenext  
   loop  
   rs.close  
   set rs=Nothing 
   %>  
   

ASP/Visual Basic代码

  
<%  
id=request.QueryString("name")  
If id="" Then   
server_v40=Request.ServerVariables("QUERY_STRING")  
id=Int(replace(replace(server_v40,"/",""),".html",""))  
End If   
Call ReadNews()  
%>