<% 'ヘ玡ぃ睲贰 ASP い VBScript  function 肚把计よΑ '┮ぃㄏノ把计ㄓミ籔 DB 硈挡 '磷礚猭タ絋р蛤 DB 羛么い耞,硑Θ戈方禣 Sub dbClose() Conn.Close Set Conn = Nothing End Sub Set Conn = Server.CreateObject("ADODB.Connection") 'Access DBhome = Server.MapPath(dbPath) ConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&DBhome&"\include\ffe.mdb" 'MSDE/MS-SQL 'ConnString = "Provider=SQLOLEDB.1;Data Source=192.168.0.1,1433;Initial Catalog=test;UID=lalala;PWD=123" Conn.Open ConnString %>