www.gusucode.com > 掌柜网店购物系统 4.0码程序 > admin/conn.asp

             <%
          Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlHostIP
          const shop921Version=1     
          const shop921DatabaseType="ACCESS"    
           db="../mdb/shop.asa"          
          SqlUsername = "shop921"          
          SqlPassword = "ytshop921"       
          SqlDatabaseName = "ytshopsql"    
          SqlHostIP = "127.0.0.1"          

          On Error Resume Next   
          if shop921DatabaseType="SQL" then
          ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
          else
          ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
          end if
          Set conn = Server.CreateObject("ADODB.Connection")
          conn.Open connstr
          If Err Then
          err.Clear
          Set Conn = Nothing
          Response.Write "You haven'register ,the system can't work.Pleass contact us to buy the original.<br>"
          Response.Write "WEB:http://www.921shop.com <br>"
          Response.Write "Contact the person:hechunhua<br>"
          Response.Write "QQ:78259909、30341146<br>"
          Response.Write "Email:hechunhua@ah163.com<br>"
          Response.Write "TEL:0551-3168360、0551-7124455-18<br>"
          Response.End
          End If

          sub CloseConn()
          On Error Resume Next
          If IsObject(Conn) Then
          conn.close
          set conn=nothing
          end if
          end sub
          %>