conn.asp

来自「电子公文传输管理系统」· ASP 代码 · 共 15 行

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

	Mypagesize = 6  '每页显示留言数

	PassWord = "123456"  '管理密码

%>