Olá pessoal, tenho um site já desenvolvido e funcionando em ASP, porem queria passar ele a funcionar totalmente em PHP.
Só que, como faz um tempo que não mexo com PHP to meio na duvida com relação a substituição e upgrades de alguns comandos.
Segue Code:
Conexao.php (Novo)
<?php
//conexão com o servidor
$conect = mysql_connect("endereço_servidor", "usuario_do_banco_de_dados", "senha_banco_de_dados");
// Caso a conexão seja reprovada, exibe na tela uma mensagem de erro
if (!$conect) die ("<h1>Falha na conecao com o Banco de Dados!</h1>");
// Caso a conexão seja aprovada, então conecta o Banco de Dados.
$db = mysql_select_db("nome_banco_de_dados");
?>
Conexao.asp (velho)
<%
dim Dbq
set Conexao = server.CreateObject("ADODB.Connection")
Dbq = Server.MapPath("dados.mdb")
Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Dbq
%>
Pergunta
Smokerox
Olá pessoal, tenho um site já desenvolvido e funcionando em ASP, porem queria passar ele a funcionar totalmente em PHP.
Só que, como faz um tempo que não mexo com PHP to meio na duvida com relação a substituição e upgrades de alguns comandos.
Segue Code:
Conexao.php (Novo)
<?php //conexão com o servidor $conect = mysql_connect("endereço_servidor", "usuario_do_banco_de_dados", "senha_banco_de_dados"); // Caso a conexão seja reprovada, exibe na tela uma mensagem de erro if (!$conect) die ("<h1>Falha na conecao com o Banco de Dados!</h1>"); // Caso a conexão seja aprovada, então conecta o Banco de Dados. $db = mysql_select_db("nome_banco_de_dados"); ?>Conexao.asp (velho)<% dim Dbq set Conexao = server.CreateObject("ADODB.Connection") Dbq = Server.MapPath("dados.mdb") Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Dbq %>Cadastros.php (site)<!--#include file="conexao.asp"--> <% SQL = "select * from clientes order by nome desc" Set RSregistros=conexao.execute(SQL) %> <html> <head> <title>Administração do Site - Projeto ASP</title> <link rel="stylesheet" href="general.css" type="text/css"> </head> <body bgcolor="#ffffff" topmargin="0" rightmargin="0" bottommargin="0" leftmargin="0"> <table width="100%" class="t_gra" height="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="50" bgcolor="#193473" style="padding-left:20px"><strong><font size="4" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">ASP - Projeto Web </font></strong></td> </tr> <tr> <td height="20" style="padding-left:15px">| <a href="index.asp">Home</a> | <a href="cadastrados.asp">Cadastrados</a> | <a href="form_cadastro.asp">Cadastrar <b>novo</b> Usuário</a> | <a href="form_excluir.asp">Excluir Usuário</a> | <a href="busca.htm">Busca</a> | <a href="form_altera.asp">Alterar Cadastro</a> | <a href="fale.htm">Falar com o Webmaster</a> |</td> </tr> <tr> <td class="titulo" height="60" valign="bottom" style="padding-bottom:5px; padding-left:15px"><b>Usuários Cadastrados</b></td> </tr> <tr> <td valign="top" style="padding-left:10px"> <table width="680" class="t_bla" border="0" cellspacing="1" cellpadding="1"> <tr bgcolor="#99CCFF"> <td align="center" height="20" width="200"><b>Nome</b></td> <td align="center" width="200"><b>E-mail</b></td> <td align="center"><b>Cidade</b></td> </tr> <% while not RSregistros.EOF %> <tr> <td><%= RSregistros("nome") %></td> <td align="center" class="vbar"><a href="mailto:<%= RSregistros("email") %>"><%= RSregistros("email") %></a></td> <td align="center"><%= RSregistros("cidade") %></td> </tr> <tr> <td colspan="3" height="1" bgcolor="#CCCCCC"></td> </tr> <% RSregistros.movenext wend %> </table> </td> </tr> <tr> <td height="1" bgcolor="#CCCCCC"></td> </tr> <tr> <td height="25" class="t_gra" align="right" style="padding-right:20px">Projeto WEB - 2008</td> </tr> </table> </body> </html> <% RSregistros.close Conexao.close Set RSregistros = nothing Set Conexao = nothing %>Obs: a função é mostrar todos os cadastro de usuários.
Link para o comentário
Compartilhar em outros sites
10 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.