Todo o site só precisa usar um arquivo de conexão de banco de dados para implementar o código de função. Não direi mais nada, apenas dedique o código original diretamente.
Copie o código do código da seguinte forma:
'==========Atenção======================================= =========
' 1. O nome da pasta onde o site está localizado não pode ser root.
' 2. O nome da pasta onde o site está localizado. Nomes de pasta repetidos não são permitidos no caminho físico. Por exemplo, F:/t/t, t é o nome da pasta onde o site está localizado. caso, ocorrerá um erro.
'================================================ =============
Dim dbPath,dbName,Db,ConnStr,WebSiteFolderName
em caso de erro, retome a seguir
WebSiteFolderName=WeldSiteBuilder
dbPath = _sitedata/ 'Observe que é uma barra invertida, e apenas no final
dbName = acteedata.mdb 'Nome do banco de dados
Db=GetSitePhysicalPath(WebSiteFolderName) & dbPath & dbName
'response.Write(caminho físico do banco de dados atual: &server.mappath(db))
'resposta.Write(<hr>)
'response.Write(Caminho da página atualmente solicitado: &request.ServerVariables(URL))
'resposta.Write(<hr>)
'response.Write(caminho raiz do site atual: &request.ServerVariables(APPL_PHYSICAL_PATH))
'resposta.Write(<hr>)
'response.Write(status do caminho do site atual: &request.ServerVariables(APPL_MD_PATH))
'resposta.Write(db)
'resposta.End()
'======================
Definir conn=Server.CreateObject(ADODB.Connection)
ConnStr=Provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados=&Db
Conn.Open ConnStr
Se errar então
Err.Limpar
SetConn=Nada
Erro de conexão do banco de dados Response.Write!
Resposta.Fim
Terminar se
SubCloseConn()
conexão.fechar
definir conn = nada
final Sub
'Obtém o caminho absoluto para o diretório onde o site está localizado (com sinal /)
Função GetSitePhysicalPath(WSFN)
dim APPL_MD_PATH,APPL_MD_PATHArray,Caminho,WSPP
WSPP=request.ServerVariables(APPL_PHYSICAL_PATH)'O site padrão é executado no diretório raiz
APPL_MD_PATH=request.ServerVariables(APPL_MD_PATH)
APPL_MD_PATHArray=dividir(APPL_MD_PATH,/)
Caminho=APPL_MD_PATHArray(UBound(APPL_MD_PATHArray))
if UCase(Path)=ROOT then 'Determina se o site está sendo executado em um aplicativo independente
'Então determine se o site está sendo executado em uma determinada pasta
if InStr(WSPP,WSFN)=0 then 'O site é executado em uma pasta no diretório raiz
'Escrever o endereço da pasta onde o site está localizado com base no endereço da página visitada
dim CurrentUrl,NameArray
CurrentUrl=request.ServerVariables(URL)
NameArray=split(CurrentUrl,/)
para i=LBound(NameArray) para UBound(NameArray)
se UCase(NameArray(i))=UCase(WSFN) então
para j = 0 a i
WSPP=WSPP+NomeArray(j)+/
próximo
saída para
terminar se
próximo
else 'indica que o site está rodando no diretório raiz
'Não há necessidade de fazer nada, o valor de retorno foi inicializado
terminar se
else 'indica que o site está rodando em um diretório virtual
'Não faça nada, o valor de retorno foi inicializado
terminar se
WSPP=substituir(WSPP,//,/)
GetSitePhysicalPath=WSPP
Função final
PS: O texto acima é apenas uma solução para o problema de caminhos de inclusão incorretos para o banco de dados Access, para que o site possa compartilhar um arquivo de conexão de banco de dados. Se algum arquivo o contiver, o banco de dados poderá ser aberto normalmente, e não há necessidade de. preocupe-se com a forma como o site é executado (executa no diretório raiz, executa no caminho virtual, executa no diretório raiz + o diretório onde o site está localizado).