sub opendb(connect) set connect=server.CreateObject("ADODB.connection") connect.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &;_ server.MapPath(databasename) &;";uid="&;uid&;";pid="&;pid connect.Open strconn end sub %>
这样,当你改变数据库名或是用户名和密码的时候,很方便的能修改过来。经过一段时间的 积累,你会有许多这样的函数或子程序,或是类,再做类似的站点的时候,只要整理出相关 的放在一个文件里引用一下就好了。