dbconn.asp

contract management system

<%

'dbhost="127.0.0.1"                            ' 数据库服务器IP
'dbuser="sa"                                ' 数据库用户名
'dbpass="sa"                                ' 数据库密码
dbname="hetong" 


Dim strConn,conn
Set conn = Server.CreateObject("ADODB.Connection")
strconn="DRIVER={SQL Server};SERVER=127.0.0.1;UID=sa;PWD=sa;DATABASE="&dbname
conn.Open strconn

sub endConn()
      conn.close
  set conn=nothing
end sub



%>