把数据库连接那一段改成下面这一段就可以了:Dim ConnSet Conn=Server.CreateObject("ADODB.Connection")Conn.Open "driver={SQL Server};server=localhost;uid=用户名;pwd=密码;database=数据度"Sub Closedb() ' 关闭数据库连接 Conn.Close Set Conn=NothingEnd Sub