Ir para conteúdo
Fórum Script Brasil

DeathMask

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    6

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por DeathMask

  2. Limite De "pontos" à Gastar

    em Ajax, JavaScript, XML, DOM

    Postado

    pessoal estou criando uma pagina de cadastro em que a pessoa tem "pontos" para serem gastos entre algumas opções, gostaria de saber como eu faço um script para que aparecesse 1 contador mostrando quantos "pontos" faltam para a pessoa gastar e quando estiver em 0 não ter mais como a pessoa aumentar os numeros que ela colocou, somente remanejar, deu pra entender? vlw aí

  3. Páginas .asp Não Abrem Nos Frames.

    em ASP

    Postado

    esse é o codigo da pagina que estou tentando abrir, minhas outras paginas também começam assim:

    <%@ Language=VBScript %>

    <%

    Response.Buffer=true

    Response.Expires=0

    %>

    <!--#include file="Connections/SSRPG2.asp" -->

    <%

    Dim consultas

    Dim consultas_numRows

    Set consultas = Server.CreateObject("ADODB.Recordset")

    consultas.ActiveConnection = MM_SSRPG2_STRING

    consultas.Source = "SELECT * FROM usuarios"

    consultas.CursorType = 0

    consultas.CursorLocation = 2

    consultas.LockType = 1

    consultas.Open()

    consultas_numRows = 0

    %>

    <%

    ' *** Validate request to log in to this site.

    MM_LoginAction = Request.ServerVariables("URL")

    If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString

    MM_valUsername=CStr(Request.Form("usuario"))

    If MM_valUsername <> "" Then

    MM_fldUserAuthorization=""

    MM_redirectLoginSuccess="sucesso.htm"

    MM_redirectLoginFailed="falhou.htm"

    MM_flag="ADODB.Recordset"

    set MM_rsUser = Server.CreateObject(MM_flag)

    MM_rsUser.ActiveConnection = MM_SSRPG2_STRING

    MM_rsUser.Source = "SELECT LOGIN, SENHA"

    If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization

    MM_rsUser.Source = MM_rsUser.Source & " FROM usuarios WHERE LOGIN='" & Replace(MM_valUsername,"'","''") &"' AND SENHA='" & Replace(Request.Form("senha"),"'","''") & "'"

    MM_rsUser.CursorType = 0

    MM_rsUser.CursorLocation = 2

    MM_rsUser.LockType = 3

    MM_rsUser.Open

    If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then

    ' username and password match - this is a valid user

    Session("MM_Username") = MM_valUsername

    If (MM_fldUserAuthorization <> "") Then

    Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)

    Else

    Session("MM_UserAuthorization") = ""

    End If

    if CStr(Request.QueryString("accessdenied")) <> "" And false Then

    MM_redirectLoginSuccess = Request.QueryString("accessdenied")

    End If

    MM_rsUser.Close

    Response.Redirect(MM_redirectLoginSuccess)

    End If

    MM_rsUser.Close

    Response.Redirect(MM_redirectLoginFailed)

    End If

    %>

    <html>

    <head>

    <title>SSRPG</title>

    <script language="JavaScript" type="text/JavaScript">

    <!--

    function MM_findObj(n, d) { //v4.01

    var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

    if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];

    for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);

    if(!x && d.getElementById) x=d.getElementById(n); return x;

    }

    function MM_validateForm() { //v4.0

    var i,p,que,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;

    for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args);

    if (val) { nm=val.name; if ((val=val.value)!="") {

    if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');

    if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';

    } else if (test!='R') { num = parseFloat(val);

    if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';

    if (test.indexOf('inRange') != -1) { p=test.indexOf(':');

    min=test.substring(8,p); max=test.substring(p+1);

    if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';

    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }

    } if (errors) alert('The following error(s) occurred:\n'+errors);

    document.MM_returnValue = (errors == '');

    }

    //-->

    </script>

    </head>

    <body bgcolor="#000000" text="#FFFF00" link="#FFFF00" vlink="#FFFF00" alink="#FFFFFF">

    <p align="center">

    <font color="#FFFF00" size="3" face="Brandegoris">FA<font face="Celticmd">&Ccedil;</font></font><font size="3" face="Brandegoris">A

    SEU LOGIN</font></p>

    <form action="<%=MM_LoginAction%>" method="POST" name="form1" onSubmit="MM_validateForm('usuario','','R','senha','','R');return document.MM_returnValue">

    <p align="center"><font face="Brandegoris">NOME<font face="Celticmd">:

    </font><br>

    <input name="usuario" type="text" id="usuario" size="20" maxlength="50">

    </font></p>

    <p align="center"><font face="Brandegoris">SENHA<font face="Celticmd">:</font><br>

    <input name="senha" type="password" id="senha" size="20" maxlength="8">

    </font></p>

    <p align="center"><font face="Brandegoris">

    <input type="submit" name="Submit" value="LOGAR">

    </font> </p>

    </form>

    <p align="center"><font size="2" face="Brandegoris">SE VOC<font face="Celticmd">&Ecirc;</font> AINDA

    N<font face="Celticmd">&Atilde;</font>O <font face="Celticmd">&Eacute;</font> CADASTRADO

    CLIQUE <a href="cadastro.asp">AQUI</a><font face="Celticmd">.</font></font></p>

    </body>

    </html>

    <%

    consultas.Close()

    Set consultas = Nothing

    %>

  4. Páginas .asp Não Abrem Nos Frames.

    em ASP

    Postado

    boa tarde pessoal, estou com um problema relativo a frames, toda vez que tento abrir uma página .asp no mainframe ela aparece só os códigos, quando eu coloco os comandos html iniciais ela abre mostrando grande parte do meu código como texto e não funciona o sistema de login, alguém pode me ajudar?

  5. Página De Cadastro Da Erro!

    em Dreamweaver

    Postado 

    <%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/SSRPG2.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Redirect if username exists
MM_flag="MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
  MM_dupKeyRedirect="falhou.htm"
  MM_rsKeyConnection=MM_SSRPG2_STRING
  MM_dupKeyUsernameValue = CStr(Request.Form("LOGIN"))
  MM_dupKeySQL="SELECT LOGIN FROM usuarios WHERE LOGIN='" & MM_dupKeyUsernameValue & "'"
  MM_adodbRecordset="ADODB.Recordset"
  set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
  MM_rsKey.ActiveConnection=MM_rsKeyConnection
  MM_rsKey.Source=MM_dupKeySQL
  MM_rsKey.CursorType=0
  MM_rsKey.CursorLocation=2
  MM_rsKey.LockType=3
  MM_rsKey.Open
  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
    ' the username was found - can not add the requested username
    MM_qsChar = "?"
    If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
    MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
    Response.Redirect(MM_dupKeyRedirect)
  End If
  MM_rsKey.Close
End If
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_SSRPG2_STRING
  MM_editTable = "usuarios"
  MM_editRedirectUrl = "sucesso.htm"
  MM_fieldsStr  = "NOME|value|EMAIL|value|LOGIN|value|SENHA|value"
  MM_columnsStr = "NOME|',none,''|E-MAIL|',none,''|LOGIN|',none,''|SENHA|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>

  6. Página De Cadastro Da Erro!

    em Dreamweaver

    Postado

    Bom dia a todos, já faz uns dias que venho tentando de várias formas fazer meu site com sistema de cadastro, login e senha, porém os tutoriais que encontrei na internet todos dão o mesmo tipo de erro, por isso creio que seja algum erro meu de configuração e gostaria que me ajudassem, o erro ao enviar o cadastro é esse:

    "Tipo de erro:

    Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

    [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.

    /ssrpg/cadastro.asp, line 141

    Tipo de navegador:

    Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

    Página:

    POST 103 bytes to /ssrpg/cadastro.asp

    POST Data:

    NOME=Luis+Wagner+Barbosa+Oliveira&EMAIL=luismascara@hotmail.com&LOGIN=teste&SENHA=teste&MM_insert=form1"

    segui tutoriais de sites diferentes e tambem tentei à minha própria forma mas o erro é sempre o mesmo, só mudam as linhas do erro de acordo com o formulário, se alguém puder me ajudar ficarei muito grato.

×
×
  • Criar Novo...