conn.asp

心里在线咨询系统 怎么还有字数限制

<%	'On Error Resume Next

	dim conn
	dim connstr
	Set conn = Server.CreateObject("ADODB.Connection")

	'connstr="PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=sa;PWD=;DATABASE=xlzx"	'MSSQL连接字符串

	connstr="Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("\xlzx_access\xlzxdata\xlzx_Data.mdb")	'ACCESS连接字符串

	conn.Open connstr
	sub closedatabase()
	  conn.close
        set conn=nothing
    end sub
%>