conn.asp

超炫电台程序开发了两个版本了

<% dim conn   
   on error resume next
   set conn=server.createobject("ADODB.CONNECTION")
   DBPath = Server.MapPath("y100/#foryou.asp")
   conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
   if err then 
      err.clear
   else
        conn.open connstr 
        if err then 
           err.clear
        end if
   end if
   
   sub CloseConn()
	conn.close
	set conn=nothing
end sub
%>