conndb.asp

网上商场购物系统是一种具有交互功能的商业信息系统

<%
  Dim Conn
  Dim ConnStr
  Set Conn = Server.CreateObject("ADODB.Connection")
  ConnStr = "DRIVER={SQL Server};SERVER=Ntserver;UID=sa;PWD=sa;Database=Shop"
  Conn.Open ConnStr
%>