<%
   '以下是MSSQL版的配置
 '  dim conn   
  ' dim connstr   

'Set conn = Server.CreateObject("ADODB.Connection")
'connStr="Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=IP地址; Initial Catalog=数据库名; User ID=用户名; Password=密码"
'conn.Open connstr


'以下是ACCESS版的配置

   connstr="DBQ="+server.mappath("../Data/#888llee666777e8data#&%$#.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
  set conn=server.createobject("ADODB.CONNECTION")

  conn.open connstr 
%>
</body></html>