cyberalexxx
-
Total de itens
2.500 -
Registro em
-
Última visita
Posts postados por cyberalexxx
-
-
Ai, meu Deus!!!
Eu vou chorar!!!
Isso chora, desabafa que é melhor (evita ulceras nervosas)
Uma idéia:
Tratar o nome dos arquivos, pois quando o FSO lista os arquivos de uma pasta ele lista em ordem alfabética, sendo assim c você tiver os nomes dos arquivos estruturados não sera necessário indexar o vetor.
[]'s
-
As paginas seguintes estão em branco, pois no inicio do seu script voce recupera os valores do formulário e gera a instrução sql que cria o recordset, sendo assim na segunda pagina os dados ficam em branco, pois não vai ter nada nos requests.
-
ordenar alfabeticamente ?
Renata!!
Isso vai dar uma briga!!!!
Vai ter que jogar os dados num vetor e ordenar-los!!!
Complicado, mas não impossivel..
Realmente não é facil, olha aki um exemplo de indexação de um vetor.
''' Regular Array Sort Sub QuickSort(vec,loBound,hiBound,SortField,SortDir) '==--------------------------------------------------------== '== Sort a multi dimensional array on SortField == '== == '== This procedure is adapted from the algorithm given in: == '== ~ Data Abstractions & Structures using C++ by ~ == '== ~ Mark Headington and David Riley, pg. 586 ~ == '== Quicksort is the fastest array sorting routine for == '== unordered arrays. Its big O is n log n == '== == '== Parameters: == '== vec - array to be sorted == '== SortField - The field to sort on (1st dimension value) == '== loBound and hiBound are simply the upper and lower == '== bounds of the array's "row" dimension. It's probably == '== easiest to use the LBound and UBound functions to == '== set these. == '== SortDir - ASC, ascending; DESC, Descending == '==--------------------------------------------------------== if not (hiBound - loBound = 0) then Dim pivot(),loSwap,hiSwap,temp,counter Redim pivot (Ubound(vec,2)) SortDir = UCase(SortDir) '== Two items to sort if hiBound - loBound = 1 then if (SortDir = "ASC") then if FormatCompare(vec(loBound,SortField),vec(hiBound,SortField)) > FormatCompare(vec(hiBound,SortField),vec(loBound,SortField)) then Call SwapRows(vec,hiBound,loBound) else if FormatCompare(vec(loBound,SortField),vec(hiBound,SortField)) < FormatCompare(vec(hiBound,SortField),vec(loBound,SortField)) then Call SwapRows(vec,hiBound,loBound) end if End If '== Three or more items to sort For counter = 0 to Ubound(vec,2) pivot(counter) = vec(int((loBound + hiBound) / 2),counter) vec(int((loBound + hiBound) / 2),counter) = vec(loBound,counter) vec(loBound,counter) = pivot(counter) Next loSwap = loBound + 1 hiSwap = hiBound do '== Find the right loSwap if (SortDir = "ASC") then while loSwap < hiSwap and FormatCompare(vec(loSwap,SortField),pivot(SortField)) <= FormatCompare(pivot(SortField),vec(loSwap,SortField)) loSwap = loSwap + 1 wend else while loSwap < hiSwap and FormatCompare(vec(loSwap,SortField),pivot(SortField)) >= FormatCompare(pivot(SortField),vec(loSwap,SortField)) loSwap = loSwap + 1 wend end if '== Find the right hiSwap if (SortDir = "ASC") then while FormatCompare(vec(hiSwap,SortField),pivot(SortField)) > FormatCompare(pivot(SortField),vec(hiSwap,SortField)) hiSwap = hiSwap - 1 wend else while FormatCompare(vec(hiSwap,SortField),pivot(SortField)) < FormatCompare(pivot(SortField),vec(hiSwap,SortField)) hiSwap = hiSwap - 1 wend end if '== Swap values if loSwap is less then hiSwap if loSwap < hiSwap then Call SwapRows(vec,loSwap,hiSwap) loop while loSwap < hiSwap For counter = 0 to Ubound(vec,2) vec(loBound,counter) = vec(hiSwap,counter) vec(hiSwap,counter) = pivot(counter) Next '== Recursively call function .. the beauty of Quicksort '== 2 or more items in first section if loBound < (hiSwap - 1) then Call QuickSort(vec,loBound,hiSwap-1,SortField,SortDir) '== 2 or more items in second section if hiSwap + 1 < hibound then Call QuickSort(vec,hiSwap+1,hiBound,SortField,SortDir) end if End Sub 'QuickSort Sub SwapRows(ary,row1,row2) '==------------------------------------------== '== This proc swaps two rows of an array == '==------------------------------------------== Dim x,tempvar For x = 0 to Ubound(ary,2) tempvar = ary(row1,x) ary(row1,x) = ary(row2,x) ary(row2,x) = tempvar Next End Sub 'SwapRows function FormatCompare(sOne,sTwo) '==------------------------------------------== '== Checks sOne & sTwo, returns sOne as a == '== Numeric if both pass isNumeric, if not == '== returns sOne as a string. == '==------------------------------------------== if (isNumeric(Trim(sOne)) AND isNumeric(Trim(sTwo))) then FormatCompare = CDbl(Trim(sOne)) else FormatCompare = Trim(sOne) end if end function Sub PrintArray(vec,loRow,hiRow,markCol) '==------------------------------------------== '== Print out an array Highlight the column == '== whose number matches param markCol == '==------------------------------------------== Dim ColNmbr,RowNmbr Response.Write "<table border=""1"" cellspacing=""0"">" For RowNmbr = loRow to hiRow Response.Write "<tr>" For ColNmbr = 0 to (Ubound(vec,2) - 1) If ColNmbr = markCol then Response.Write "<td bgcolor=""FFFFCC"">" Else Response.Write "<td>" End If Response.Write vec(RowNmbr,ColNmbr) & "</td>" Next Response.Write "</tr>" Next Response.Write "</table>" End Sub 'PrintArray
-
good question!!
nunca precisei fazer isso, mais agora me interessei, vou tentar alguma coisa aki.
[]'s
-
certo, isso eu mais ou menos já entendia, mas qual é a diferença entre byref e byval e qual a necessidade deles??
obrigado!
como eu já disse, são os parametros, agora para saber para que servem só vendo a função toda.
[]'s
-
Cyber, me desculpe a demora no retorno...
Só agora consegui entrar no fórum.
Vou testar esse código que você me passou e depois posto se funcionou.
Só me tira uma outra dúvida, pra colocar o caminho relativo do servidor o esquema é o mesmo ou tem aquele lance de VIRTUAL ou FILE ?!?
Bjocas...
;oÞ
voce pode usar server.mappath para pegar o endereço fisico do servidor, um exemplo:
Response.write Server.Mappath("index.asp")
esse código mostraria o endereço fisico do servidor, tipo e:\servidor\dominio\wwwroot\files\index.asp ai é so adaptar no código que eu passei.
-
esses são os parametros da função.
um exemplo, uma função que mostre um determinado numero de caracter a partir da esquerda de uma palavra, ficaria assim:
function esquerda(palavra, qtde) response.write left(palavra, qtde) end function
para executar a função voce faria assim:
esquerda("palavra qualquer", 3)
[]'s
-
3) Queria fazer um like (no caso no bd access) que pegasse nomes começados por certos caracteres, numa apostila vi algo do tipo
SQL="SELECT * FROM produtos WHERE nome NOT Like [aeiou]*"
Syntax error (missing operator) in query expression 'nome NOT LIKE [aeiou]*'.
SQL="SELECT * FROM produtos WHERE nome NOT LIKE [a,e,i,o,u]*"
Syntax error (missing operator) in query expression 'nome NOT LIKE [a,e,i,o,u]*'.
só que da erro o que eu queria é que me retornasse todos os registros que não começassem por aeiou... alguém sabe como fazer isto ?
já tentou assim:
="SELECT * FROM produtos WHERE nome NOT LIKE '[a,e,i,o,u]%'"
-
Para campos sim/não é assim:4) Como pega valores do bd que o campo é sim/não (access tambem) exemplo SQL="SELECT * FROM produtos WHERE promocao='Sim'"
acho que deve ser alguma coisa do tipo: UnCheked.... sei lá como escreve não manjo muito de ingles..SELECT * FROM produtos WHERE promocao=true
[]'s
-
-
Também não funcionou:
http://www.cyberalex.retrieve.com.br/testes/client2.htm
pelo jeito não é muito valido fazer isso, pois voce tem que torcer para o usuário ter o componente instalado, se tiver instalado como por exemplo no Windows XP pro ele tem que estar registrado (scrrun.dll) o navegador tem que q suportar o script, sem contar os sistemas de proteção que podem bloquear o script.
-
Voce ira precisar de um sistema de upload, veja com o seu servidor qual componente de upload ele suporta, para depois começar a desenvolver.
-
aki não deu certo não, deixei o script como voce postou, da uma olhada:
http://www.cyberalex.retrieve.com.br/testes/client.htm
-
idade com campo numérico
select * from TABELA where cidade='" & cidade & "' and idade=" & idade
idade com campo alfanuméricoselect * from TABELA where cidade='" & cidade & "' and idade='" & idade & "'"
-
Uma maneira que eu acho mais facil de visualizar os erros quanto o insert tem muitos campos é fazer assim:
sql = "INSERT INTO tabela (Id, Nome, Versao, Descricao, Windows, Autor, Data, Categoria, Destribuicao, Expirar, Downloads, Serv1, Serv2, Serv3, Serv4, Serv5, Extencao, Foto, Ampliada, Idioma, Votos, Positivos, Negativos, Enviador) VALUES(" sql = sql & "0," sql = sql & "'" & request.QueryString("nome") & "'," sql = sql & "'" & request.QueryString("versao") & "'," sql = sql & "'" & request.QueryString("descricao") & "'," sql = sql & "'" & request.QueryString("win") & "'," sql = sql & "'" & request.QueryString("autor") & "'," sql = sql & "'" & request.QueryString("data") & "'," sql = sql & "'" & request.QueryString("categoria") & "'," sql = sql & "'" & request.QueryString("destribuicao") & "'," sql = sql & "'" & request.QueryString("expira") & "'," sql = sql & "'" & request.QueryString("download") & "'," sql = sql & "'" & request.QueryString("s1") & "'," sql = sql & "'" & request.QueryString("s2") & "'," sql = sql & "'" & request.QueryString("s3") & "'," sql = sql & "'" & request.QueryString("s4") & "'," sql = sql & "'" & request.QueryString("s5") & "'," sql = sql & "'" & request.QueryString("extensao") & "'," sql = sql & "'" & request.QueryString("foto") & "'," sql = sql & "'" & request.QueryString("ampliada") & "'," sql = sql & "'" & request.QueryString("idioma") & "'," sql = sql & "'" & request.QueryString("votos") & "'," sql = sql & "'" & request.QueryString("negativos") & "'," sql = sql & "'" & request.QueryString("positivos") & "'," sql = sql & "'" & request.QueryString("enviador") & "')" rstExcel.Open sql, cnn, 3, 2
Agora é só dar uma olhada se os nomes dos campos estão corretos, se o tipo do campo é numérico ou caracter (aspas simples) e por ai vai.
-
tenta assim:
select Nome from produto order by codProduto desc LIMIT 0, 1
[]'S
-
Olá renata, Você auditora, pode nos contar como é seu trabalho... Nunca vi como faz isso... Como você trabalha...?
Auditoria, Developer, é um papael muito importante nas empresas.
O auditor é tipo "o olho do dono"... Levamos em consideração os objetivos principais da empresa e, principalmente, sua saúde financeira.
A auditoria ocupaca um locar de STAF nas empresas, respondendo diretamente para a aulta diretoria quando não responde diretamente para os proprietários dela.
Analisamos dados volumosos para encontrar "espes", tentativas de fraudes, fraudes e vícios (dos sistemas) que possam de alguma forma prejudicar a saúde financeria, a integridade da imagem da empresa ou o bom andamento do trabalho como um todo.
Tem também a auditoria de sistemas, que visa preservar a segurança da informação (a informação é o bem mais valioso de uma empresa), desde a entrada dela na empresa, o processamento e as formas de saída dessa informação.
E um trabalho investigativo e muito legal.
Pra quem é da área de tecnologia, vai uma dica: bons auditores de sistema ganham bem no mercado.
Em linhas gerais, é isso.
Espero ter respondido sua pergunta.
Bjocas...
;oÞ
Mais uma da area de humanas se aventurando na informática.
Eu sou economista e minha especialidade é controladoria e gestão financeira, programação virou Hobby
[]'s
-
Fiz meio na pressa da uma olhada se funciona.
<%Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set principal = FSO.GetFolder("c:\pasta") Set arquivos = principal.Files For each arq in arquivos if left(arq.name,2) = "AE" then response.write "<a href='" & arq.name &"'> Ata Extraordinária de " & mid(arq.name,9,2) & "/" & mid(arq.name,7,2) & "/" & mid(arq.name,3,4)& "</a><br>" end if next%>
[]'s
-
formulario de contato usando CDONTS:
<% sYouEmail="mail@seuemail.com.br" ' coloque aki o email q ira receber as mensagens EmailSubject="mensagem de usuario do SITE" FontColor="#3333FF" HeadColor="#ffc500" FormFontColor="#FFFFFF" FormBackColor="#3333FF" ErrorColor="red" Function ValidateField(sFieldvalue, sFieldtype) ValidField = true Select Case LCase(sFieldtype) Case "name" If Len(sFieldvalue) = 0 Then ValidField = False Case "email" If Len(sFieldvalue) < 5 Then ValidField = False Else If InStr(1, sFieldvalue, "@", 1) < 2 Then ValidField = False Else If InStr(1, sFieldvalue, ".", 1) < 4 Then ValidField = False End If End If End If Case "message" If Len(sFieldvalue) = 0 Then ValidField = False Case "else" ValidField = False End Select ValidateField = ValidField End Function Sub ShowForm %> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="634"> <tr> <td width="100%"> <center><form action="<%= Request.ServerVariables("Script_Name") %>" method="post"> <p> </p> <table border="0" cellspacing="0" width="240" cellpadding=0><tr bgcolor="<%=HeadColor%>"> <td ALIGN="left"><font color="<%=FontColor%>" face="verdana,arial,helvetica" size="-1"><B> Seu Nome:</B></font> </td></tr> <tr><td><input name="name" type="text" value="<%= Request.Form("name") %>" SIZE="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></INPUT></td> </tr><tr><td><% If dictFields(LCase("name")) Then Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Voce precisa informar um nome</font>" Else Response.Write " " End If %> </td></tr> <tr bgcolor="<%=HeadColor%>"> <td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B>email:</B></font> </td></tr> <tr><td><input name="email" type="text" value="<%= Request.Form("email") %>" SIZE="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></INPUT></td> </tr><tr><td><% If dictFields(LCase("email")) Then Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>voce precisa informar um endereço de email valido</font>" Else Response.Write " " End If %> </td></tr> <tr bgcolor="<%=HeadColor%>"> <td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B> Mensagem:</B></font> </td></tr> <tr><td><TEXTAREA NAME="message" WRAP=VIRTUAL COLS="45" ROWS=7 style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"><%= Request.Form("message") %></TEXTAREA></td> </tr><tr><td><% If dictFields(LCase("message")) Then Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2> Você precisa digitar uma mensagem</font>" Else Response.Write " " End If %> </td></tr> <tr><td colspan=2><font color="#000000" face="verdana,arial,helvetica" size="-1"><input type="checkbox" name="agree" value="true" <% if Len(Request.Form("agree")) > 0 then Response.Write "checked" End If %>> Clique aqui caso deseje fazer parte de nossa lista de contatos</td></tr> </table><p><input type="submit" value="Envia Mensagem"></input><br></form> <P> <% End Sub Sub Send sPunter = Request.Form("Name") sPunterEmail = Request.Form("Email") Message = Request.Form("message") If Request.Form("agree") = "true" then Mailout = "Ele deseja ser incluido em nossa lista de contatos" Else Mailout ="Ele NÃO deseja ser incluido em nossa lista de contatos" End If sMessage = "Essa é uma mensagem de " & sPunter & vbcrlf _ & vbcrlf _ & vbcrlf _ & Message & vbcrlf _ & vbcrlf _ & "Seu email é: " & sPunterEmail & vbcrlf _ & vbcrlf _ & Mailout & vbcrlf _ & vbcrlf Set objNewMail = CreateObject("CDONTS.NewMail") objNewMail.Send sPunterEmail, sYouEmail, EmailSubject, sMessage Set objNewMail = Nothing End Sub Set dictFields = Server.CreateObject("Scripting.Dictionary") For Each Field in Request.Form If ValidateField(Request.Form(Field), Field) = False Then dictFields.Add LCase(Field), true End If Next If Request.Form.Count <> 0 And dictFields.Count = 0 Then %><P> <P> <b>Sua Mensagem foi enviada!<BR></b><P><b><i>Obrigado por entrar em contato.</i></b><BR> <% Call Send Else ShowForm End If %></td> </tr> </table>
-
-
se é no iss é outra coisa....... mais você tentou fechar ????
CuberAlex o seu problema era conexao também ??
Tive um problema uma vez convertendo um arquivo txt para BD, o navegador travou e depois que eu finalizei a tarefa começou a dar esse erro, ai eu reiniciei e zerou.
-
voce reiniciando a maquina e tentando abrir o script já da esse erro no primeiro acesso??
-
1- não estou fechando, pode ser isso? como as fecho?
para fechar é assim, só substitua pelos nomes que você deu aos objetos.
RecordSet.close set Recordset = nothing conexao.close set conexao = nothing
-
Resumo:
O cara queria código pronto.
foram indicadas fontes. Não serviram
foram oferecidos serviços. Não foram aceitos
e o tumulto começou
Vou fechar o tópico pois isso não vai levar a lugar nenhum.
[]'s
E Vocês? Como Entraram No Ramo Da Informática?
em Outros Assuntos
Postado
Comecei a uns 14 anos, quando ganhei um bolsa de estudos para programação em linguagem basic, tinha umas maquinas sem drive em que a gente grava os arquivos em uma fita K7, sabe aqueles gravadores toscos de antigamente?!?!?
minha evolução:
computadores cp400 e msx (linguagem basic)
computadores cp500 e koringa (sistema cms - linguagem basic)
pc xt (basic, wordstar, dbase e lotus 123 e DOS)
pc at 286 (enfim um monitor ega de 256 cores, clipper)
pc at 386 (DOS 6.22, windows 3.0, word, excel)
depois disso a evolução acelerou d+ agora uso softwares pra tudo quanto é coisa.
[]'s