franciscobiscaino

falou tudo o iis você também pode trb com outras liguagens tais como cgi vbscript(asp) asp.net e php com o php você tem que instala-lo para rodar legal quanto ao PWS ele é muito vuneravel mesmo recomendo p/ quem vai trb com ele e ficar na net ao mesmo tempo eu recomendo você a instalar um bom firewal e manter o seu sistema atualizado constantemente para corrigir as falhas de segurança como atualizar no Windows Update

o iis é um software simple somente basta saber configurar ele direito mesmo para isto eu recomendo o livro da kelly Adam da editora campus administração do internet information server 5 ele custa 19 r$

cara você atuliza o seu sistema porque isto nuca é nomal o que pode ter contecido é um problema muito comum ai você provalvemente pegou virus mais especificamente o ninda é ele que faz isto com a máquina deixar ela louquinha parando todos os serviços de net e chegando até reiniciar a máquina sozinha de vez em quando por favor verifica ai se você pegou ele para isto não ocorrer mais atualiza o win no win update e ai este problema do ninda atacar o seu iis vai acabar quanto a configuração é esta a mesma que eu falei p/ você

o sistema de validação ele funciona o meu problema mesmo era barrar o cara p/ que ele não fosse inscrito no bd como eu falei anteriormente eu consegui fazer isto o que eu presciso realmente agora é na função do cpf ao ver que o cpf não tem problemas mandar para a parte de inserção de usuário e se tem problemas ele não passar para a inserção

cara o software é caro porque vamos lá marketing já rouba uma boa parte do valor cd é super barato embalgem barato manual carinho mesmo licença de uso(incluindo o suporte técnico e serviço de 0800 e envio de um cd novo {em alguns casos} programadores buscando o bug e corrigindo mais funcionários tel agua luz e desgaste das máquina dos fábricantes ) sem isto se você é uma empresa você quebra feio mesmo se você não cobrar o suficiente p/ ter luco$

cara veio uma luz maravilhosa na minha mente e ai eu consegui barrar o registro mas agora o código ficou assim <!-- #include file="config.asp" --> <% '*********************************************************** '* Desenvolvido por Francisco Biscaino Fone (15) 97069875 * '* Todos os direitos Reservados * '*********************************************************** sUserName = "" & RequestValue("username") sName = "" & RequestValue("name") sEmail = "" & RequestValue("email") sDianasc = "" & RequestValue("Dianasc") sMesnasc = "" & RequestValue("Mesnasc") sAnonasc = "" & RequestValue ("Anonasc") sSexo = "" & RequestValue("Sexo") sAddressOne = "" & RequestValue("addressone") sBairro1 = "" & RequestValue("Bairro1") sAddressTwo = "" & RequestValue("addresstwo") sBairro2 = "" & RequestValue("Bairro2") sFone = "" & RequestValue("fone") sDdd1 = "" & RequestValue("ddd1") sCel = "" & RequestValue ("cel") sDdd2 = "" & RequestValue("ddd2") sCPF = "" & RequestValue("CPF") sCity = "" & RequestValue("city") sState = "" & RequestValue("state") sZip = "" & RequestValue("zip") sCountry = "" & RequestValue("country") sInfoad = "" & RequestValue("Infoad") sNovidades = "" & RequestValue("Novidades") sString = "" OpenDBConn DoPageHeader If Len(Trim(sUserName)) = 0 Then sString = sString & ErrorString(GLS_UserNameDet) End If If Len(Trim(sName)) = 0 Then sString = sString & ErrorString(GLS_Name) End If If Len(Trim(sEmail)) = 0 Then sString = sString & ErrorString(GLS_Email) End If If Len(Trim(sAddressOne)) = 0 AND gbReqAddress Then sString = sString & ErrorString(GLS_AddressOne) End If If Len(Trim(sCPF)) = 0 AND gbReqCPF Then sString = sString & ErrorString(GLS_CPF) End If If Len(Trim(sCity)) = 0 AND gbReqCity Then sString = sString & ErrorString(GLS_City) End If If Len(Trim(sState)) = 0 AND gbReqState Then sString = sString & ErrorString(GLS_State) End If If Len(Trim(sZip)) = 0 AND gbReqZip Then sString = sString & ErrorString(GLS_Zip) End If If Len(Trim(sCountry)) = 0 AND gbReqCountry Then sString = sString & ErrorString(GLS_Country) End If If sString <> "" Then Response.Write "<CENTER>" & gsErrorTextOpen & sString & "<BR>" & GLS_GoBack & gsErrorTextClose & "</CENTER>" Else CheckName End If DoPageFooter Function ErrorString(sField) ErrorString = replace(GLS_FieldErr,"%FIELDNAME%","<B>" & UCASE(sField) & "</B>") & "<BR>" End Function Sub CheckName sSQL = sSQL & "SELECT COUNT(*) as Total FROM tblQARegistration WHERE regUserName = " & SQLStr(sUserName) Set CountRS = gobjConnect.Execute(sSQL) If CountRS.Fields("Total") > 0 Then Response.Write "<P ALIGN=""CENTER"">" & gsAuctionTextOpen & replace(GLS_NameTaken, "%NAME%", sUserName) & "<BR>" Response.Write GLS_TryAgain & gsAuctionTextClose & "</P>" Else Call calculacpf End If CountRS.Close set CountRS = Nothing End Sub function CalculaCPF() Dim RecebeCPF, Numero(11), soma, resultado1, resultado2 RecebeCPF = Request("CPF") 'Retirar todos os caracteres que não sejam 0-9 s="" for x=1 to len(RecebeCPF) ch=mid(RecebeCPF,x,1) if asc(ch)>=48 and asc(ch)<=57 then s=s & ch end if next RecebeCPF = s if len(RecebeCPF) <> 11 then response.write("<h1>&Eacute; obrigat&oacute;rio o CPF com 11 d&iacute;gitos</h1>") elseif RecebeCPF = "00000000000" then response.write("<h1>CPF Inválido</h1>") else Numero(1) = Cint(Mid(RecebeCPF,1,1)) Numero(2) = Cint(Mid(RecebeCPF,2,1)) Numero(3) = Cint(Mid(RecebeCPF,3,1)) Numero(4) = Cint(Mid(RecebeCPF,4,1)) Numero(5) = Cint(Mid(RecebeCPF,5,1)) Numero(6) = CInt(Mid(RecebeCPF,6,1)) Numero(7) = Cint(Mid(RecebeCPF,7,1)) Numero(8) = Cint(Mid(RecebeCPF,8,1)) Numero(9) = Cint(Mid(RecebeCPF,9,1)) Numero(10) = Cint(Mid(RecebeCPF,10,1)) Numero(11) = Cint(Mid(RecebeCPF,11,1)) soma = 10 * Numero(1) + 9 * Numero(2) + 8 * Numero(3) + 7 * Numero(4) + 6 * Numero(5) + 5 * Numero(6) + 4 * Numero(7) + 3 * Numero(8) + 2 * Numero(9) soma = soma -(11 * (int(soma / 11))) if soma = 0 or soma = 1 then resultado1 = 0 else resultado1 = 11 - soma end if if resultado1 = Numero(10) then soma = Numero(1) * 11 + Numero(2) * 10 + Numero(3) * 9 + Numero(4) * 8 + Numero(5) * 7 + Numero(6) * 6 + Numero(7) * 5 + Numero(8) * 4 + Numero(9) * 3 + Numero(10) * 2 soma = soma -(11 * (int(soma / 11))) if soma = 0 or soma = 1 then resultado2 = 0 else resultado2 = 11 - soma end if if resultado2 = Numero(11) then else Call checkcpf response.write("<h1>CPF Inválido</h1>") end if else response.write("<h1>CPF Inválido</h1>") end if end if end function Sub CheckCPF sSQL = sSQL & "SELECT COUNT(*) as Total FROM tblQARegistration WHERE regCPF = " & SQLStr(sCPF) Set CountRS = gobjConnect.Execute(sSQL) If CountRS.Fields("Total") > 0 Then Response.Write "<P ALIGN=""CENTER"">" & gsAuctionTextOpen & replace(GLS_CPFTaken, "%CPF%", sCPF) & "<BR>" Response.Write GLS_TryAgain & gsAuctionTextClose & "</P>" Else Call InsertUser End If CountRS.Close set CountRS = Nothing End Sub Sub InsertUser Randomize sPassword = clng(rnd * 1000000) + 1000 npSQL = "INSERT INTO tblQARegistration (regUserName, regPassword, regValidated, regName, anonasc, mesnasc, dianasc, regEmail, " & _ "regSexo, regBairro1, regBairro2, regAddress1, regAddress2,regFone,regDdd1, regCel, regDdd2, regCPF, regCity, regState, regZip, Infoad, Novidades, regCountry) VALUES (" & _ SQLStr(sUserName) & ", " & _ SQLStr(sPassword) & " , " & _ SQLBool(gbUsersAdd) & ", " & _ SQLStr(sName) & ", " & _ SQLStr(sAnonasc) & ", " & _ SQLStr(sMesnasc) & ", " & _ SQLStr(sDianasc) & ", " & _ SQLStr(sEmail) & ", " & _ SQLStr(sSexo) & ", " & _ SQLStr(sAddressOne) & ", " & _ SQLStr(sBairro1) & ", " & _ SQLStr(sAddressTwo) & ", " & _ SQLStr(sBairro2) & ", " & _ SQLStr(sfone) & ", " & _ SQLStr(sDdd1) & ", " & _ SQLStr(sCel) & ", " & _ SQLStr(sDdd2) & ", " & _ SQLStr(sCPF) & ", " & _ SQLStr(sCity) & ", " & _ SQLStr(sState) & ", " & _ SQLStr(sZip) & "," & _ SQLStr(sInfoad) & "," & _ SQLStr(sNovidades) & "," & _ SQLStr(sCountry) & " )" gobjConnect.Execute(npSQL) Response.Write "<P ALIGN=""CENTER"">" & gsAuctionTextOpen & GLS_RegistrationSuccessMsg & "<BR>" SendPassEmail(sPassword) Response.Write GLS_PasswordEmailed & "<BR>" Response.Write GLS_ChangePasswordInstruction & "<BR>" Response.Write GLS_ClickToContinue & gsAuctionTextClose & "</P>" End Sub Sub SendPassEmail(sPass) sBody = "" & ReadFile(Server.MapPath("QAEmailTemplates\QANewUserRegister.txt")) sBody = Replace(sBody, "%USERNAME%", sUserName) sBody = Replace(sBody, "%PASS%", sPass) sBody = Replace(sBody, "%AUCPATH%", gsAucURL) sBody = sBody & Chr(13) & Chr(10) & "Bekan© todos os direitos reservados" sSubject = GetFirstLine(sBody) SendEmailMessage sEmail, gsAdminEmail, sSubject, sBody End Sub %> agora o que eu presciso é simples mas eu ainda não consegui fazer é o seguinte na função do cpf eu presciso chamar o sub checkcpf para dar a continuidade do registro agora ta ficando como eu quero que fique

eu fico online direto quase todo o dia

tem uma outra maneira eu posso visualizar o seu iis direto e ver o que falta e até mesmo daqui acertar ele é só você pegar o meu icq e me mandar o seu ip que de iis p/ iis da p/ se conectar direto daqui

cara eu vi e alterei para esta forma e não foi tb passou batido do mesmo jeito <!-- #include file="config.asp" --> <% '*********************************************************** '* Desenvolvido por Francisco Biscaino Fone (15) 97069875 * '* Todos os direitos Reservados * '*********************************************************** sUserName = "" & RequestValue("username") sName = "" & RequestValue("name") sEmail = "" & RequestValue("email") sDianasc = "" & RequestValue("Dianasc") sMesnasc = "" & RequestValue("Mesnasc") sAnonasc = "" & RequestValue ("Anonasc") sSexo = "" & RequestValue("Sexo") sAddressOne = "" & RequestValue("addressone") sBairro1 = "" & RequestValue("Bairro1") sAddressTwo = "" & RequestValue("addresstwo") sBairro2 = "" & RequestValue("Bairro2") sFone = "" & RequestValue("fone") sDdd1 = "" & RequestValue("ddd1") sCel = "" & RequestValue ("cel") sDdd2 = "" & RequestValue("ddd2") sCPF = "" & RequestValue("CPF") sCity = "" & RequestValue("city") sState = "" & RequestValue("state") sZip = "" & RequestValue("zip") sCountry = "" & RequestValue("country") sInfoad = "" & RequestValue("Infoad") sNovidades = "" & RequestValue("Novidades") sString = "" OpenDBConn DoPageHeader If Len(Trim(sUserName)) = 0 Then sString = sString & ErrorString(GLS_UserNameDet) End If If Len(Trim(sName)) = 0 Then sString = sString & ErrorString(GLS_Name) End If If Len(Trim(sEmail)) = 0 Then sString = sString & ErrorString(GLS_Email) End If If Len(Trim(sAddressOne)) = 0 AND gbReqAddress Then sString = sString & ErrorString(GLS_AddressOne) End If If Len(Trim(sCPF)) = 0 AND gbReqCPF Then sString = sString & ErrorString(GLS_CPF) End If If Len(Trim(sCity)) = 0 AND gbReqCity Then sString = sString & ErrorString(GLS_City) End If If Len(Trim(sState)) = 0 AND gbReqState Then sString = sString & ErrorString(GLS_State) End If If Len(Trim(sZip)) = 0 AND gbReqZip Then sString = sString & ErrorString(GLS_Zip) End If If Len(Trim(sCountry)) = 0 AND gbReqCountry Then sString = sString & ErrorString(GLS_Country) End If If sString <> "" Then Response.Write "<CENTER>" & gsErrorTextOpen & sString & "<BR>" & GLS_GoBack & gsErrorTextClose & "</CENTER>" Else CheckName End If DoPageFooter Function ErrorString(sField) ErrorString = replace(GLS_FieldErr,"%FIELDNAME%","<B>" & UCASE(sField) & "</B>") & "<BR>" End Function Sub CheckName sSQL = sSQL & "SELECT COUNT(*) as Total FROM tblQARegistration WHERE regUserName = " & SQLStr(sUserName) Set CountRS = gobjConnect.Execute(sSQL) If CountRS.Fields("Total") > 0 Then Response.Write "<P ALIGN=""CENTER"">" & gsAuctionTextOpen & replace(GLS_NameTaken, "%NAME%", sUserName) & "<BR>" Response.Write GLS_TryAgain & gsAuctionTextClose & "</P>" Else Call InsertUser End If CountRS.Close set CountRS = Nothing End Sub Sub InsertUser Randomize sPassword = clng(rnd * 1000000) + 1000 Response.Write "<P ALIGN=""CENTER"">" & gsAuctionTextOpen & GLS_RegistrationSuccessMsg & "<BR>" SendPassEmail(sPassword) Response.Write GLS_PasswordEmailed & "<BR>" Response.Write GLS_ChangePasswordInstruction & "<BR>" Response.Write GLS_ClickToContinue & gsAuctionTextClose & "</P>" End Sub function CalculaCPF() Dim RecebeCPF, Numero(11), soma, resultado1, resultado2 RecebeCPF = Request("CPF") 'Retirar todos os caracteres que não sejam 0-9 s="" for x=1 to len(RecebeCPF) ch=mid(RecebeCPF,x,1) if asc(ch)>=48 and asc(ch)<=57 then s=s & ch end if next RecebeCPF = s if len(RecebeCPF) <> 11 then response.write("<h1>&Eacute; obrigat&oacute;rio o CPF com 11 d&iacute;gitos</h1>") elseif RecebeCPF = "00000000000" then response.write("<h1>CPF Inválido</h1>") else Numero(1) = Cint(Mid(RecebeCPF,1,1)) Numero(2) = Cint(Mid(RecebeCPF,2,1)) Numero(3) = Cint(Mid(RecebeCPF,3,1)) Numero(4) = Cint(Mid(RecebeCPF,4,1)) Numero(5) = Cint(Mid(RecebeCPF,5,1)) Numero(6) = CInt(Mid(RecebeCPF,6,1)) Numero(7) = Cint(Mid(RecebeCPF,7,1)) Numero(8) = Cint(Mid(RecebeCPF,8,1)) Numero(9) = Cint(Mid(RecebeCPF,9,1)) Numero(10) = Cint(Mid(RecebeCPF,10,1)) Numero(11) = Cint(Mid(RecebeCPF,11,1)) soma = 10 * Numero(1) + 9 * Numero(2) + 8 * Numero(3) + 7 * Numero(4) + 6 * Numero(5) + 5 * Numero(6) + 4 * Numero(7) + 3 * Numero(8) + 2 * Numero(9) soma = soma -(11 * (int(soma / 11))) if soma = 0 or soma = 1 then resultado1 = 0 else resultado1 = 11 - soma end if if resultado1 = Numero(10) then soma = Numero(1) * 11 + Numero(2) * 10 + Numero(3) * 9 + Numero(4) * 8 + Numero(5) * 7 + Numero(6) * 6 + Numero(7) * 5 + Numero(8) * 4 + Numero(9) * 3 + Numero(10) * 2 soma = soma -(11 * (int(soma / 11))) if soma = 0 or soma = 1 then resultado2 = 0 else resultado2 = 11 - soma end if npSQL = "INSERT INTO tblQARegistration (regUserName, regPassword, regValidated, regName, anonasc, mesnasc, dianasc, regEmail, " & _ "regSexo, regBairro1, regBairro2, regAddress1, regAddress2,regFone,regDdd1, regCel, regDdd2, regCPF, regCity, regState, regZip, Infoad, Novidades, regCountry) VALUES (" & _ SQLStr(sUserName) & ", " & _ SQLStr(sPassword) & " , " & _ SQLBool(gbUsersAdd) & ", " & _ SQLStr(sName) & ", " & _ SQLStr(sAnonasc) & ", " & _ SQLStr(sMesnasc) & ", " & _ SQLStr(sDianasc) & ", " & _ SQLStr(sEmail) & ", " & _ SQLStr(sSexo) & ", " & _ SQLStr(sAddressOne) & ", " & _ SQLStr(sBairro1) & ", " & _ SQLStr(sAddressTwo) & ", " & _ SQLStr(sBairro2) & ", " & _ SQLStr(sfone) & ", " & _ SQLStr(sDdd1) & ", " & _ SQLStr(sCel) & ", " & _ SQLStr(sDdd2) & ", " & _ SQLStr(sCPF) & ", " & _ SQLStr(sCity) & ", " & _ SQLStr(sState) & ", " & _ SQLStr(sZip) & "," & _ SQLStr(sInfoad) & "," & _ SQLStr(sNovidades) & "," & _ SQLStr(sCountry) & " )" gobjConnect.Execute(npSQL) if resultado2 = Numero(11) then response.write("<h1>CPF Válido</h1>") else response.write("<h1>CPF Inválido</h1>") end if else response.write("<h1>CPF Inválido</h1>") end if end if end function Sub SendPassEmail(sPass) sBody = "" & ReadFile(Server.MapPath("QAEmailTemplates\QANewUserRegister.txt")) sBody = Replace(sBody, "%USERNAME%", sUserName) sBody = Replace(sBody, "%PASS%", sPass) sBody = Replace(sBody, "%AUCPATH%", gsAucURL) sBody = sBody & Chr(13) & Chr(10) & "Bekan© todos os direitos reservados" sSubject = GetFirstLine(sBody) SendEmailMessage sEmail, gsAdminEmail, sSubject, sBody End Sub %> cara eu realmente não sei mais o que eu faço

não prescisa reintalar é só usar o win update

manda ai galera eu sei que muitas empresas estão migrando p/ 2000 e deixando vários sitemas

cara você deu a permissão p/ os 2 usuários iis que eu falei de ler e escrever detalhe veja se nas propriedades da pasta onde ele está no dir do iis se ele tem autorização de ler tb e gravar se não for isto atualiza o seu win todinho e tb veja qual a versão do access você tem istalado ai

cara valeu pelo o update

cara você deve deixar o menu bem visivel mesmo pois desta fora esta um pouco estranho

ficou bom mas chocante

cara tá bom mesmomas deixa um pouco mais vivo a cor do voltar pois usuários mesnos esperiente que navegarem no site vão se perder um pouco

cara ficou bom

cara gostei mesmo agora você podia melhorar um pouco melhor o seu espaço e tirar a barra debaixo

cara eu gostei do site mas algumas coisas inrritam muito na hora de navega principalmente se você já votou no no seu site e quando você volta lá denovo pam vote vote vote vote toda hora sei que é legal votar mas aquela janela chata toda hora não é

cara eu gosto muito da forma que você voltou o site com certas matérias legais mesmo coloca lá tb a sequencia dos cabos de redes como montá-los e ai vai ter um bom acesso por isto pois não é todo mundo que tem de cabeça por mais que você queira você fica em duvida na hora de montar

QUOTE (Eddie_666 @ Apr 29 2003, 08:59 AM) Todo mundo é bem-vindo no forum, mas sempre é melhor ter companhia feminina concordo plenamente hehehehehehe

faça que é bom mesmo !!!!!!

manda ai galera

recomendo mesmo este software ele realmete é muito bom mesmo