conn.asp

不是我做的一个留言板

<%
    on error resume next
	dim conn
	dim dbpath
   	set conn=server.createobject("adodb.connection")
	DBPath = Server.MapPath("../mis.mdb")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=dinoxingnami;dbq=" & DBPath

	Mypagesize = 6  '每页显示留言数

	PassWord = "123456"  '管理密码

%>