conn_sqlserver.asp

用asp做的咨询平台 比较简单 但是修改很方便 很实用

<%
dim sql,rs,conn
'on error resume next
sub openDB_DSN()
	set conn=server.createobject("ADODB.Connection") 
	conn.open"DSN=LearnAsp; UID=sa; PWD="
	set rs=server.createobject("ADODB.Recordset")
end sub

sub openDB()
	set conn=server.createobject("ADODB.Connection")  
	conn.open "Driver={SQL Server};"_ 
	&"Server=localhost;" _
	&"Database=LearnAsp;" _
	&"Uid=sa;" _
	&"Pwd="
	set rs=server.createobject("ADODB.Recordset")
end sub

sub closeDB()
	If IsObject(conn) Then
		if not(conn is nothing) then
			set rs=nothing
			conn.close
			set conn=nothing
		end if
	End If
end sub
%>