把数据库连接那一段改成下面这一段就可以了：
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={SQL Server};server=localhost;uid=用户名;pwd=密码;database=数据度"
Sub Closedb() ' 关闭数据库连接
Conn.Close
Set Conn=Nothing
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024