conn.asp

一个最新版的VOD网站程序

<%
    dim conn   
    call conn_init()
 sub conn_init()
       on error resume next
       set conn=server.createobject("ADODB.CONNECTION")
       if err.number<>0 then 
           err.clear
           set conn=nothing
		   Response.Write "数据库连接失败，请检查odbc是否存在或是否安装？"
		   Response.End
		else
		    
conn.OPEN"PROVIDER=SQLOLEDB;DATA SOURCE=noahserver;UID=sa;PWD=;DATABASE=VOD"
	if err then 
	err.clear
	set conn=nothing
  Response.Write "数据库连接失败，请检查数据库是否存在，以及odbc是否存在"     
	Response.End 
	end if
	end if   
        'Response.Write "success"
	end sub
	sub endConnection()
		conn.close
		set conn=nothing
	end sub  
%>