conn.asp

asp做的论坛

<%
	Dim conn
	Dim connstr
	Dim db
   	'更改数据库名字
	db="data/#data_cnpn.mdb"
	set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
	conn.Open connstr

%>

<%
Dim listnum
listnum = 10  '设定每页显示留言数量
%>