Grande parte do programa de aprendizagem requer operações de conexão com o banco de dados. Aqui está um breve resumo de alguns códigos para acesso à conexão asp para conveniência dos amigos que precisam 1. Em comparação com ambientes mais antigos, é recomendado usar o segundo.
definir dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)
DBPath = Servidor.MapPath(cliente.mdb)
dbconnection.Open driver={Driver Microsoft Access (*.mdb)};dbq= & DBPath
SQL = selecione * de autenticação onde id = '& user_id &'
SET uplist=dbconnection.EXECUTE(SQL)
2. Para máquinas com win2003 ou superior, recomenda-se utilizar este método, que é mais eficiente.
definir dbconnection=Server.CreateObject(ADODB.Connection)
DBPath = Servidor.MapPath(cliente.mdb)
dbconnection.Open provedor=microsoft.jet.oledb.4.0;fonte de dados=&dbpath
SQL = selecione * de autenticação onde id = '& user_id &'
SET uplist=dbconnection.EXECUTE(SQL)
3.
DBPath = Servidor.MapPath(cliente.mdb)
definir sessão(rs)=Server.CreateObject(ADODB.Recordset)
'rs=Server.CreateObject(ADODB.Recordset)
connstr=provider=microsoft.jet.oledb.4.0;fonte de dados=&dbpath
SQL = selecione * de autenticação onde id = '& user_id &'
sessão(rs).Abrir sql,connstr,1,3
4.
Construir fonte odbc xxx
definir conn=server.createobject(Adodb.connection)
conn.open DSN=xxx;UID=;PWD=;Banco de dados=cliente
5. Em anexo está um código de conexão de banco de dados comumente usado para sqlserver e acesso.
Copie o código do código da seguinte forma:
<%
Const DataBaseType = 1
Se DataBaseType=0 então
DBPath=/jb51/news.asp
SqlNowString = Agora()
ystr = verdadeiro
nstr=falso
suiji=rnd(id)
Outro
'Se for um banco de dados SQL, modifique cuidadosamente as seguintes opções de banco de dados
DataServer = wwwjb51net 'IP do servidor de banco de dados
DataUser = jb51net 'Acessar nome de usuário do banco de dados
DataBaseName = jb51net 'Nome do banco de dados
DataBasePsw = Password'Senha de acesso ao banco de dados
SqlNowString = getdate()
ystr=1
nstr=0
suiji=newid()
Terminar se
Em caso de erro, retomar o próximo
Se DataBaseType = 1 Então
ConnStr=driver={SQL Server};server=&dataserver&;UID=&datauser&;PWD=&databasepsw&;Database=&databasename
Outro
ConnStr = Provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados= & Server.MapPath(DBPath)
Terminar se
Definir conexão = Server.CreateObject(ADODB.Connection)
conn.open ConnStr
Se Err Then Err.Clear:Set conn = Nothing:Response.Write Erro de conexão do banco de dados, verifique as configurações dos parâmetros do banco de dados no arquivo Conn.asp. :Resposta.Fim
%>