www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\conn.asp

    <%
	dim conn
	dim connstr
	dim db
	db="date/date.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
	'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
	conn.Open connstr
	
  set rs=server.createobject("adodb.recordset")
  sql="select * from web_message where id=1"
  rs.Open sql,conn,1,3
  web_name=rs("web_name")
  web_url=rs("web_url")
  web_time=rs("web_time")
  web_email=rs("web_email")
  web_no=rs("web_no")
%>
<!--#include file="include.asp"-->