- Fórum WMO
- → Victor ASP's Content
Victor ASP's Content
There have been 51 items by Victor ASP (Search limited from 19/04/2023)
#439397 Capturar Parte De Url Digitada No Navegador
Posted by Victor ASP on 05/09/2004, 21:55 in ASP
if request("parametro") = "03" then
'ação..
end if
Entendeu?
#439082 Não Consigo Encontar
Posted by Victor ASP on 05/09/2004, 13:06 in Dúvidas sobre Scripts Prontos de ASP
No portal do wmonline deve ter na seção de download...Alguem sabe onde posso encontrar o codgo da loja da revista www.com.br, porem eu estou procurando o codigo que tem o controle de frete... pois o outro eu tenho.
#439009 Qndo Instalo 1 Script
Posted by Victor ASP on 05/09/2004, 10:53 in ASP
#438970 Exibindo Conteúdo De Todos Os Campos
Posted by Victor ASP on 05/09/2004, 08:59 in ASP
nome = request.form("nome")
email = request.form("email")
mensagem = request.form("mensagem")
response.write "Nome: "&nome&"<br>"
response.write "E-mail: "&email&"<br>"
response.write "Mensagem: "&mensagem&"<br>"
#438787 Randomize
Posted by Victor ASP on 04/09/2004, 21:49 in ASP
objConn.Open strConnString
E quando vejo aqui é isso
For i = 1 to 3
strSQL = "SELECT * FROM Estoque where ID = " & iRandom(i)
objRs.Open strSQL, objConn, 1, 1
Seu servidor está louco, ou você trocou os arquivos...
#438757 Randomize
Posted by Victor ASP on 04/09/2004, 21:05 in ASP
#438756 Como Faço Para...
Posted by Victor ASP on 04/09/2004, 21:03 in ASP
#438734 Randomize
Posted by Victor ASP on 04/09/2004, 20:36 in ASP
<!--INICIO TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE--> <% Set objConn = Server.CreateObject("ADODB.Connection") Set objRs = Server.CreateObject("ADODB.Recordset") strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Estoque/bd/bd.mdb") objConn.Open strConnString strSQL = "SELECT ID FROM Estoque" objRs.Open strSQL, objConn, 1, 1 Do While Not objRs.EOF [B]strCodTmp = strCodTmp + objRs("ID") + "-"[/B] objRs.MoveNext Loop strArrCod = Split(strCodTmp, "-") objRs.Close Function iRandom(Valor) Select Case Valor Case 1: Randomize Valor1 = CInt(Rnd() * UBound(strArrCod) - 1) strCod = strArrCod(Valor1) Case 2: Do Until Valor2 <> Valor1 Randomize Valor2 = CInt(Rnd() * UBound(strArrCod) - 1) Loop strCod = strArrCod(Valor2) Case 3: Do Until Valor3 <> Valor2 And Valor3 <> Valor1 Randomize Valor3 = CInt(Rnd() * UBound(strArrCod) - 1) Loop strCod = strArrCod(Valor3) Case Else: strCod = "" End Select iRandom = strCod End Function %> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"> <% strSQL = "SELECT Count(*) FROM Estoque" objRs.Open strSQL, objConn, 2 If objRs.EOF Then %> <!--INICIO DA TABELA_ESTOQUE VAZIO--> <tr> <td width="100%"> <p align="center"><b><font face="Tahoma"><font color="#FF0000"><u>NÃO HÁ VEÍCULOS NO ESTOQUE</u><br> </font><font size="2" color="#0000FF">Volte mais tarde para conferir !</font></font></b></td> </tr> <!--FIM DA TABELA_ESTOQUE VAZIO--> <% objRs.Close Else objRs.Close %> <!--INICIO DA TABELA_OFERTAS--> <tr> <td width="32%" height="87"> <% For i = 1 to 3 strSQL = "SELECT * FROM Estoque where ID = "&iRandom(i)&"" objRs.Open strSQL, objConn, 3 %> <!--INICIO DA TABELA_VEICULO --> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="225" id="AutoNumber7" height="69"> <tr> <td width="83" rowspan="3" height="69"> <font face="Verdana" size="2"><a href="Estoque/ver_dados.asp?id=<%= objRs("ID") %>"><img src="Estoque/imagens/<%= objRs("Imagem") %>" width="87" height="65" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></a></font></td> <td width="6" rowspan="3" height="69"> </td> <td width="136" height="15"> <p align="left"><b><span lang="pt-br"> <font face="Verdana" size="2" color="#FF5900"><a href="Estoque/ver_dados.asp?id=<%= objRs("ID") %>"><%= objRs("Nome") %></a></font></span></b></td> </tr> <tr> <td width="136" height="7"> <img border="0" src="images/Linha_laranja.jpg"></td> </tr> <tr> <td width="136" height="47"> <p align="left"><b><span lang="pt-br"> <font face="Tahoma" size="2" color="#333333"><%= objRs("Ano") %><br><br>R$ <%= objRs("Valor") %></font></span></b></td> </tr> </table> </center> </div> <!--FIM DA TABELA_VEICULO --> <% If i <> 3 Then %> </td> <td width="2%" height="87"> <p align="center"> <img border="0" src="images/Separador_Pontilhado.jpg"></td> <td width="31%" height="87"> <% Else %> </td> </tr> <% End If %> <!--FIM DA TABELA_OFERTAS--> <% objRs.Close Next Set objRs = Nothing End If objConn.Close Set objConn = Nothing %> </table> </center> </div> <!--FIM TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->
Se der o mesmo erro, não sei mais o que é não
#438726 Randomize
Posted by Victor ASP on 04/09/2004, 20:28 in ASP
A página: defaultoff.asp, é essa mesmo que você postou?Será q o problema é no meu arquivo bd ???
#438719 Randomize
Posted by Victor ASP on 04/09/2004, 20:20 in ASP
#438709 Função Que Pega A Data Local
Posted by Victor ASP on 04/09/2004, 20:12 in ASP
A função você faz assim:Galera,
Estou precisando de uma função que pegue a data local e a armazene numa variável para posteriormente ser armazenada num banco de dados, mas infelizmente não conheço nenhuma função desse tipo.
Alguém sabé como posso fazer isso???
Abraços,
Destroyer.
data = date()
response.write data
Mais dúvidas, visite esse tutorial
http://www.aspbrasil...odConteudo=1135
#438705 Randomize
Posted by Victor ASP on 04/09/2004, 20:09 in ASP
<!--INICIO TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE--> <% Set objConn = Server.CreateObject("ADODB.Connection") Set objRs = Server.CreateObject("ADODB.Recordset") strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Estoque/bd/bd.mdb") objConn.Open strConnString strSQL = "SELECT ID FROM Estoque" objRs.Open strSQL, objConn, 1, 1 Do While Not objRs.EOF [B]strCodTmp = strCodTmp + objRs("ID") + "-"[/B] objRs.MoveNext Loop strArrCod = Split(strCodTmp, "-") objRs.Close Function iRandom(Valor) Select Case Valor Case 1: Randomize Valor1 = CInt(Rnd() * UBound(strArrCod) - 1) strCod = strArrCod(Valor1) Case 2: Do Until Valor2 <> Valor1 Randomize Valor2 = CInt(Rnd() * UBound(strArrCod) - 1) Loop strCod = strArrCod(Valor2) Case 3: Do Until Valor3 <> Valor2 And Valor3 <> Valor1 Randomize Valor3 = CInt(Rnd() * UBound(strArrCod) - 1) Loop strCod = strArrCod(Valor3) Case Else: strCod = "" End Select iRandom = strCod End Function %> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"> <% strSQL = "SELECT Count(*) FROM Estoque" objRs.Open strSQL, objConn, 2 If objRs.EOF Then %> <!--INICIO DA TABELA_ESTOQUE VAZIO--> <tr> <td width="100%"> <p align="center"><b><font face="Tahoma"><font color="#FF0000"><u>NÃO HÁ VEÍCULOS NO ESTOQUE</u><br> </font><font size="2" color="#0000FF">Volte mais tarde para conferir !</font></font></b></td> </tr> <!--FIM DA TABELA_ESTOQUE VAZIO--> <% objRs.Close Else objRs.Close %> <!--INICIO DA TABELA_OFERTAS--> <tr> <td width="32%" height="87"> <% For i = 1 to 3 strSQL = "SELECT * FROM Estoque where ID = " & iRandom(i) objRs.Open strSQL, objConn, 3 %> <!--INICIO DA TABELA_VEICULO --> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="225" id="AutoNumber7" height="69"> <tr> <td width="83" rowspan="3" height="69"> <font face="Verdana" size="2"><a href="Estoque/ver_dados.asp?id=<%= objRs("ID") %>"><img src="Estoque/imagens/<%= objRs("Imagem") %>" width="87" height="65" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></a></font></td> <td width="6" rowspan="3" height="69"> </td> <td width="136" height="15"> <p align="left"><b><span lang="pt-br"> <font face="Verdana" size="2" color="#FF5900"><a href="Estoque/ver_dados.asp?id=<%= objRs("ID") %>"><%= objRs("Nome") %></a></font></span></b></td> </tr> <tr> <td width="136" height="7"> <img border="0" src="images/Linha_laranja.jpg"></td> </tr> <tr> <td width="136" height="47"> <p align="left"><b><span lang="pt-br"> <font face="Tahoma" size="2" color="#333333"><%= objRs("Ano") %><br><br>R$ <%= objRs("Valor") %></font></span></b></td> </tr> </table> </center> </div> <!--FIM DA TABELA_VEICULO --> <% If i <> 3 Then %> </td> <td width="2%" height="87"> <p align="center"> <img border="0" src="images/Separador_Pontilhado.jpg"></td> <td width="31%" height="87"> <% Else %> </td> </tr> <% End If %> <!--FIM DA TABELA_OFERTAS--> <% objRs.Close Next Set objRs = Nothing End If objConn.Close Set objConn = Nothing %> </table> </center> </div> <!--FIM TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->
#438625 Preciso Fazer Um Blog... Me Ajudem
Posted by Victor ASP on 04/09/2004, 18:25 in ASP
Olha, basicamente você vai usar, select, insert, delete, update, paginação
Nesse outro tópico que eu postei tem todos os links que você irá precisar!
http://forum.wmonlin...showtopic=87158
Qualquer dúvida, é só perguntar
[]'s
Victor
#438624 Randomize
Posted by Victor ASP on 04/09/2004, 18:20 in ASP
rnd*3
ai você faz uma matriz com as coisas que você vai usar...
Se não entendeu, ou não conseguiu fala ai que eu faço um exeplo pra você..
[]'s
Victor
#438416 Date
Posted by Victor ASP on 04/09/2004, 12:28 in ASP
#438415 Problemas Com Asp E Access
Posted by Victor ASP on 04/09/2004, 12:26 in ASP
La mostra o codigo de fonte:
<html> <head> <title>Acesse o seu curriculo</title> </head> <body> <center><font face="Arial" size="4"><b>Formulário de Alteração</b></h2></center> <% If IsEmpty( Request.Form("submit") ) Then Set Conexao = Server.CreateObject("ADODB.Connection") Constr = "DBQ=Z:\Inetpub\wwwroot\teste\Cadastro\cadastro.mdb;Driver={Microsoft Access Driver (*.mdb)};" Conexao.Open Constr ComandoSQL = "SELECT * FROM tblpessoa" Set bd = Server.CreateObject("ADODB.Recordset") bd.CursorLocation = 2 bd.CursorType = 0 bd.LockType = 3 bd.Open ComandoSQL, conexao,,, &H0001 If Not bd.EOF Then bd.Move Request.QueryString("n") %> <form method=post action="<%=Request.ServerVariables("script_name")%>"> <input type=hidden name="ComandoSQL" value="<%=ComandoSQL%>"> <input type=hidden name="Conexao" value="<%=Constr%>"> <table border=0 width="80%" align=center> <tr> <td align=right valign=top><font face="Arial" size="2">bairro:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="bairro" value="<%=bd("bairro")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">cpf:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="cpf" value="<%=bd("cpf")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">curriculo:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="curriculo" value="<%=bd("curriculo")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">estado:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="estado" value="<%=bd("estado")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">identidade:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="identidade" value="<%=bd("identidade")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">Logradouro:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="Logradouro" value="<%=bd("Logradouro")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">municipio:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="municipio" value="<%=bd("municipio")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">nome:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="nome" value="<%=bd("nome")%>" size=15 maxlength=20 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">senha:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=password name="senha" value="<%=bd("senha")%>" size=15 maxlength=20 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">telefone:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="telefone" value="<%=bd("telefone")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> </font> </table> <center><input type=submit name=submit value=Alterar style="{<font-family:Arial; font-size:12}"></center> <input type="hidden" name="n" value="<%if Not IsEmpty(Request.QueryString("n"))then : Response.Write Request.QueryString("n") Else : Response.Write "0" : End If%>"> </form> <center> <% If Request.QueryString("n") > 0 then Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & "><< Anterior</a> " End If bd.MoveNext If Not bd.EOF then Response.Write " <a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & ">Próximo >></a>" End If Conexao.Close Set bd = Nothing Set Conexao = Nothing %> </center> <% End If Else If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("bairro")) <> "" AND Trim(Request.Form("cpf")) <> "" AND Trim(Request.Form("curriculo")) <> "" AND Trim(Request.Form("estado")) <> "" AND Trim(Request.Form("identidade")) <> "" AND Trim(Request.Form("Logradouro")) <> "" AND Trim(Request.Form("municipio")) <> "" AND Trim(Request.Form("nome")) <> "" AND Trim(Request.Form("senha")) <> "" AND Trim(Request.Form("telefone")) <> "" Then Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open Request.Form("Conexao") ComandoSQL = Request.Form("ComandoSQL") Set bd = Server.CreateObject("ADODB.Recordset") bd.CursorLocation = 2 bd.CursorType = 0 bd.LockType = 3 bd.Open ComandoSQL, Conexao,,, &H0001 bd.Move Request.Form("n") bd("bairro") = Server.HTMLEncode(Request.Form("bairro")) bd("cpf") = Server.HTMLEncode(Request.Form("cpf")) bd("curriculo") = Server.HTMLEncode(Request.Form("curriculo")) bd("estado") = Server.HTMLEncode(Request.Form("estado")) bd("identidade") = Server.HTMLEncode(Request.Form("identidade")) bd("Logradouro") = Server.HTMLEncode(Request.Form("Logradouro")) bd("municipio") = Server.HTMLEncode(Request.Form("municipio")) bd("nome") = Server.HTMLEncode(Request.Form("nome")) bd("senha") = Server.HTMLEncode(Request.Form("senha")) bd("telefone") = Server.HTMLEncode(Request.Form("telefone")) bd.UpdateBatch bd.Requery %> <center></center> </body> </html>
Se tivesse suporte ele não mostraria o codigo asp no codigo de fonte...
Tente hospedar em algum que tenha suporte a ASP, ou faça em PHP
[]'s
Victor
#438394 Problemas Com Asp E Access
Posted by Victor ASP on 04/09/2004, 11:13 in ASP
Ta. Mas você tem certeza que a hospedagem tem suporte a ASP?Não estou a usar o meu PC mas sim um Servidor que tem vários sites, incluindo é claro o da minha empresa.
Podem verificar pelo seguinte endereço:
http://www.perfilcom...tro/alterar.asp
consulta.asp
inserir.asp
Estou no MSN: batista_nuno@hotmail.com
Estou a dar em DOIDO
#438387 Preciso Fazer Um Blog... Me Ajudem
Posted by Victor ASP on 04/09/2004, 11:05 in ASP
Blog não se faz em ASP, e sim HTML, você vai criar um blog, ou fazer um site na web com hospedagem windows?Eu to prescisando de um blog pra atualizar meu site e queria fazer um, mas nao tenho noção de como fazer... alguém poderia me ajudar?...
OBRIGADO!!
#438376 Problemas Com Asp E Access
Posted by Victor ASP on 04/09/2004, 10:42 in ASP
Funcionar vai funcionar sim, só basta ele fazer o codigo pegando da querustring que funciona sim, eu tentei aquiVictor ASP...
se eu comentar que não vai funcionar, estarei sendo pessimista?
Pois... não vai funcionar!!!
Leo_30...
Só um conselho, é melhor instalar o IIS ou o PWS na sua máquina local e estudar o funcionamento dos seus script, da uma lida no FAQ de ASP.
#438375 Mostrando Produtos
Posted by Victor ASP on 04/09/2004, 10:41 in ASP
fdebortoli, você está usando a variavel produtos se nem existe ela antes de ser chamada?affff.....
bem, produtos é uma variável, ele pode dar o nome que ele quiser.. quem disse q ele está procurando na coluna produtos?
olhe o select:
"SELECT NomePeca, PecaID FROM CompraPecas WHERE PecaID ='" & Produto & "'"
Seleciona NomePeca e PecaID de CompraPecas onde PecaID seja igual a variavel produto.
intão, ele pega um valor na coluna PecaID, que seja igual a variavel que foi anteriormente declarada... de acordo com este meu raciocinio, a coluna PecaID é auto numeração, então tem que ser aspas simples...
bem, posso estar redondamente enganado... mas tentei ajudar.... se estiver errado, peço desculpas...
walew!
A variavel é o que? Querystring?
#438372 Problemas Com Asp E Access
Posted by Victor ASP on 04/09/2004, 10:34 in ASP
Vê se funfa se você usar o get
#438232 Mostrando Produtos
Posted by Victor ASP on 03/09/2004, 22:18 in ASP
Que isso cara, a coluna produtos concerteza não é autonumber né, afinal já fala produtos vai ser o nome do produto..opa tente tirar as aspas simples da sua expressão de critério no sql...
ao invés de ficar assim:
'" & Produto & "'
deixe assim:
" & Produto & "
afinal, acho eu, este seu campo PecaID seja do tipo numérico, e campos numéricos vc num usa a aspas simples, usa aspas simples, quando forem campos do tipo texto...
espero ter ajudado...
#438229 Sistema De Busca
Posted by Victor ASP on 03/09/2004, 22:15 in ASP
Que??como assim destacar em negrito?
colocar algo em negrito num é mais ASP e sim HTML puro
<b>aqui fica em negrito</b>
então:
voce buscou por: <b>request("busca")</b>
hum... olhando a pagina do google, acho q entendi diferente o que vc quer... vc quer que fique em negrito o que o cara buscou, mas no meio da descrição do que o cara buscou.. é isso?
O cara só quer que fique em negrito a descricao de quando ele usar a busca e responder na página, ai vai aparecer a descrição do que ele procurou, só isso!
#438226 Mostrando Produtos
Posted by Victor ASP on 03/09/2004, 22:12 in ASP
Mas funcionou ai?
#438215 Sistema De Busca
Posted by Victor ASP on 03/09/2004, 21:59 in ASP
É só você fazer a mesma coisa á cima, só que com a coluna descricao:Entendi.
Mas eu gostaria de destacar em negrito a descrição também, tipo o site do google..
response.write "Você pesquisou por: <b>"&request.form("pesquisa")&"</b>"
response.write "<b>"&RecSet("descricao")&"</b>"
Entendeu?
[]'s
Victor
- Fórum WMO
- → Victor ASP's Content
- Privacy Policy
- Regras ·