Avatar billede hirayz Nybegynder
21. marts 2002 - 11:07 Der er 5 kommentarer og
1 løsning

slet og flyt

jeg har en form med et tilfældigt antal Checkboxe i

og så har jeg to knapper, en til at slette med og en til at flytte med

når man har markere nogle checkboxe skal den så udføre noget, alt efter hvad for en man trykker på...
Avatar billede torbenmelander Nybegynder
21. marts 2002 - 11:41 #1
If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
  If Request.Form("knap1snavn") <> "" Then
    For Each myItem In Request.Form
      If (InStr(myItem, "twDefaultCheckbox") > 0) Then
        'Her kan du til at tag value med Request.Form(myItem)
      End If
    Next
  ElseIf Request.Form("knap2snavn") <> "" Then
    For Each myItem In Request.Form
      If (InStr(myItem, "twDefaultCheckbox") > 0) Then
        'Her kan du til at tag value med Request.Form(myItem)
      End If
    Next
End If

Alle felter skal hede noget med:

<INPUT TYPE="checkbox" NAME="twDefaultCheckbox<%=rs("ID")%>>
Avatar billede hirayz Nybegynder
21. marts 2002 - 12:40 #2
Sådan eller hvad, det virker ikke...

If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
  If Request.form("slet") <> "" Then
    For Each myItem In Request.Form
      If (InStr(myItem, "delch") > 0 ) Then
        myconn.execute("delete from tblbesked where id = " & CLng(Request.Form(myItem)))
      End If
    Next
  End If
  If Request.form("move") <> "" Then
    For Each myItem In Request.Form
      If (InStr(myItem, "delch") > 0 ) Then
        myconn.execute("Update tblbesked SET gemt = '1' where id = " & CLng(Request.Form(myItem)))
      End If
    Next
      Response.Redirect("post.asp") 
  End If
End If
Avatar billede torbenmelander Nybegynder
21. marts 2002 - 12:46 #3
Får du nogen fejl? Hvad kalder du checkboksene?
Avatar billede hirayz Nybegynder
21. marts 2002 - 12:56 #4
Dit script:

Dim myItem
If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
  If Request.form("slet") <> "" Then
    For Each myItem In Request.Form
      If (InStr(myItem, "delch") > 0 ) Then
        myconn.execute("delete from tblbesked where id = " & CLng(Request.Form(myItem)))
      End If
    Next
  ElseIf Request.form("move") <> "" Then
    For Each myItem In Request.Form
      If (InStr(myItem, "delch") > 0 ) Then
        myconn.execute("Update tblbesked SET gemt = '1' where id = " & CLng(Request.Form(myItem)))
      End If
    Next
      Response.Redirect("post.asp") 
  End If
End If

javascriptet:
function Del(){
  count = 0;
  for (var i=0;i< delchform.elements.length;i++){
    var e = delchform.elements[i];
    if ( ( e.name.indexOf('delch') > -1 ) && (e.type=='checkbox') && e.checked ){
      count++;
    }
  }
  if( count == 0 ) {
    alert("Vælg venligst hvad du vil slette !");
  }else{
    document.delchform.submit();
  }
}
function MovePost(){
  count = 0;
  for (var i=0;i< delchform.elements.length;i++){
    var e = delchform.elements[i];
    if ( ( e.name.indexOf('delch') > -1 ) && (e.type=='checkbox') && e.checked ){
      count++;
    }
  }
  if( count == 0 ) {
    alert("Vælg venligst hvad du vil flytte !");
  }else{
    document.delchform.submit();
  }
}

knapper:
<input type="Button" name="slet" value="Slet" onclick="Del();">
<input type="Button" name="move" value="Flyt" onclick="MovePost();">
input:
<input type="Checkbox" NAME="delch<%=rs("id")%>" ID="delch<%=rs("id")%>" VALUE="<%=rs("id")%>">
Avatar billede torbenmelander Nybegynder
21. marts 2002 - 13:45 #5
<input type="Button" name="slet" value="Slet" onclick="Del();">
<input type="Button" name="move" value="Flyt" onclick="MovePost();">

skal være:

<input type="Submit" name="slet" value="Slet" onclick="Del();">
<input type="Submit" name="move" value="Flyt" onclick="MovePost();">

ellers bliver der ikke medsendt nogen kode ...
Avatar billede hirayz Nybegynder
21. marts 2002 - 13:45 #6
tak!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester