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 %>