conn.asp

来自「1、改进了数据库的md5加密算法。 2、可自主设置每页显示的页数。 3、加强了回」· ASP 代码 · 共 16 行

<%
	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  '设定每页显示留言数量
%>