download myodbc
http://walksing.dns0755.net/bbs/application/webpub/mls.asp?PP=h:\backup\walksing\tools\appDrvs&UP=/public/appDrvs
<%
'/**
'===============================================================================
'* Title: Database.asp
'* Description:Member manager & register ,login
'this is for access from jsp to asp
'when login from jsp and checked ,
'here don't need to check it again.
'* Copyright: Copyright (c) 2002
'* @update: Wednesday, August 13, 2003
'* @create: 2003-3-11 19:24:44
'* @author: walksing@hotmail.com
'* @version: 1.2.0
'add dbType in 1.1.0,dbType:access,mssql
'add getRoot
'==============================================================================
'*/
'CHECK IS SESSSION ALIVE ,FROM DB
class Database
dim conn
dim connStr
dim msg
dim dbType
dim cfgMssql_url
dim cfgAccess_url
dim cfgMysql_url
dim MainRoot
dim AppRoot
dim UappRoot
private sub Class_Initialize
'default
if(MainRoot = "" or AppRoot = "" or UappRoot = "") then getRoot
cfgMssql_url = "Provider=sqloledb;Data Source=localhost;Initial Catalog=travelMember;User ID=sa;Password=walksingcabmysqladm;"
cfgAccess_url = "DBQ=" & server.mappath(MainRoot& "/database/webMember030214008.asa")& ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
cfgMysql_url = "Driver={MySQL};Server=localhost;UID=webroot;PWD=mysql$com;Database=webmember" 'need myODBC driver
setDBType("mssql")
end sub
'env config
public function getRoot()
dim u_script_name
u_script_name = request("script_name")
u_script_name = mid(u_script_name, 2)
MainRoot = "/" & mid(u_script_name, 1, instr(u_script_name,"/")-1)
AppRoot = mainRoot & "/application"
UappRoot = "http://"&request("HTTP_HOST") &":"& request("SERVER_PORT")&AppRoot
end function
public function setURL(str)
connStr = str
end function
public function setDBType(stype)
dbType = stype
dbType = lcase(dbType)
if(dbType = "") then
dbType = "mssql"
end if
if( dbType = "mssql" ) then
connStr = cfgMssql_url
elseif dbType = "access" then
connStr = cfgAccess_url
elseif dbType = "mysql" then
connStr = cfgMysql_url
end if
end function
public function open()
on error resume next
set conn = server.createobject("adodb.connection")
conn.open connStr
if err.number <> 0 then
open = false
else
open = true
end if
end function
public sub close
if (conn <> "") then
conn.close()
conn = null
end if
end sub