25 svar · 670 visningar · startad av Rodan
hur man gör så att man har checkboxar och då kryssar man i dom man vill ta bort... till ett community så att man slipper ta bort dom en efter en .... nån som kan hjälpa mig...
ehm..
checked = true
det du syftar på kanske?
du menar att dom ska vara ikryssade från början? det är knappast ASP eller VB script isf?
Förklara bättre =)
asså.... typ lunar eller nåt annat community har en inbox för mess.... då vilja alltså ha en checkbox grejej som man kan kryssa i vilka mess man vill ta bort..... sen kryssar man i vilka man vill tabort och sen när man kryssat i så klickar man på en länk ta bort så försvinner dom som man vill ta bort....
* 1. Gör en checkbox framför varje 'mail'
* 2. Inneslut allt i ett formulär
* 3. Posta formuläret till en annan ASP-sida
* 4. Gå igenom alla forumlärelement och skapa en SQL-sträng som tar bort alla meddelanden
* 5. Exekvera SQL-strängen
finns det inget script.... jag kan lite asp men inte jätte mycket... jag lär mig om nån visar ett sånt script så kan jag göra sånna i framtiden tíll andra saker...
jag har gjort sån här med en <select>:
sd = "select * from users order by ID"
set idid = Server.CreateObject("ADODB.Recordset")
idid.Open sd, connect, 3, 3
Do Until idid.eof
SQL = "UPDATE users set page = false where ID = "& idid("id")
connect.execute SQL
if idid("user") = Request.Form("kingdompage") then
SQL = "UPDATE users set page = true where ID = "& idid("id")
connect.execute SQL
end if
idid.MoveNext
Loop
idid.close
så här ser koden ut för att ta bort meddelande mauelt....
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("messages.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From message Where ID=" &Request.QueryString("delID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.Delete
RecSet.Update
RecSet.Close
Set RecSet = nothing
Connect.close
Set Connect = nothing
Response.Redirect "send_mess.asp?direct=no"
%>
du.. jag har inte så stor koll hur Checkbox fungera riktigt.. men du har gett dom ett speciellt ID... hmm for each sak.. du får nog vänta tills någon som kan detta bättre med detta än mej... :)
Enkelt. Ge varje checkbox samma namn men ett unikt value, id:t för meddelandet. T.ex:
<input type="checkbox" name="delID" value="<%=RecSet("id")%>">
När du sedan postar formuläret får du alla markerade checkboxars värde i en kommaseparerad lista. Släng in den listan i en SQL-sats för att radera meddelandena. T.ex:
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("messages.mdb")&";"
strSQL = "DELETE FROM message WHERE ID IN ("& Request.Form("delID") &")"
Connect.Execute strSQL
Connect.close
Set Connect = nothing
Response.Redirect "send_mess.asp?direct=no"
%>
hur ser länken ut för att ta bort alla.... ?
nån
ingen som kan ?
Det gör du lämpligast med ett javascript. Alltså för att med en(1) checkbox klicka i alla.
Sök där och jag tror att du skall hitta det.
Typ.. :)
<%
'här skapar du conn & sånt mojs
set rs = conn.execute("SELECT * FROM tblMail WHERE userId = " & session("userID") & "")
%>
<form method="post" action="foo.asp">
<% do until rs.eof %>
<input type="checkbox" name="delID" value="<%=rs("id")%>">Mailets rubrik eller nåt<br>
<%
rs.movenext
loop
%>
<input type="submit" value="Radera">
</form>
Redigering) Rätta till ett fel i SQL-strängen. :r
så här ser min kod ut för där man ska kunna ta bort meddelanden...
----------------------------------
<!-- #include file="adovbs.inc" -->
<%
If Session("login") <> "ok" Then
Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
Response.Redirect "default.asp"
End If
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("messages.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From message Where tillID = "&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
<TITLE>SwedenWorld</TITLE>
<META content="text/html; charset=windows-1252" http-equiv=Content-Type>
<SCRIPT language=javascript>
<!--
function popup(url,width,height)
{
stuff = "toolbar=no,menubar=no,scrollbars=no,resizable=no,width= " +width + ", height = " +height
window.open(url, "86MbTfAhFi" , stuff );
}
//--\>
\</SCRIPT\>
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<TITLE>SwedenWorld</TITLE>
<META content="text/html; charset=windows-1252" http-equiv=Content-Type>
<SCRIPT language=javascript>
<!--
function popup(url,width,height)
{
stuff = "toolbar=no,menubar=no,scrollbars=no,resizable=no,width= " +width + ", height = " +height
window.open(url, "86MbTfAhFi" , stuff );
}
//--\>
\</SCRIPT\>
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
</head>
<body bgcolor=#FFD023 text="#000000" onContextMenu="return false;">
<table width="500" border="0" cellspacing="2" cellpadding="2">
<tr>
<td bgcolor="#848B96"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Inboxen</b></font></td>
</tr>
<tr>
<td bgcolor="white">
<table width="504" border="0" cellspacing="0" cellpadding="0">
<%Do Until RecSet.EOF%>
<tr>
<td width="31"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FF0000">
<%If RecSet("read") = 0 Then%>
<IMG height=11 src="newmsg.gif"
width=18>
<%Else
Response.write "<IMG height=11 src=""unreadmsg.gif"" width=18>"
END IF%>
</font></td>
<td width="101"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><b><%=RecSet("namn")%></b></font></td>
<td width="189"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><a href="do_read.asp?readid=<%=RecSet("id")%>"><%=RecSet("rubrik")%></a></font></td>
<td width="159"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=RecSet("datum")%></font></b>
<input type="checkbox" name="delID" value="<%=RecSet("id")%>" border="0" style="border-style: solid; border-color: #FFFFFF">
/ <a href="send_mess.asp?toID=<%=RecSet("fromID")%>&direct=yes&answerID=<%=RecSet("ID")%>">svara</a></td>
</tr>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</table>
<%
If Session("login") <> "ok" Then
Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
Response.Redirect "default.asp"
End If
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("messages.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From message Where tillID = "&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<%
If Session("login") <> "ok" Then
Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
Response.Redirect "default.asp"
End If
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("kompisar.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From kompis Where ID1 = "&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="470">
<TBODY>
<form name="form1" method="post" action="do_send.asp">
<TR>
<TD vAlign=top width="667">
<TABLE border=0 cellPadding=0 cellSpacing=0
style="border-left: 0px solid #ffffff; border-right: 1px solid #000000; border-top: 0px solid #000000; border-bottom: 0px solid #000000"
width=415>
<TBODY>
<TR>
<TD vAlign=top width=249>
<TABLE border=0 width="456" bgcolor="#FFFFFF">
<TBODY>
<TR>
<TD vAlign=top width=505><font face="Verdana" size="1" color="#000000"><B>Skicka ett
meddelande</B>
<SCRIPT language=javascript>
function check(formobj){
if(formobj.amne.value.length==0){
alert('Du måste skriva ett ämne.');
return false;
} else if(formobj.text.value.length==0){
alert('Du måste skriva ett meddelande.');
return false;
} else {
return true;
}
}
\</SCRIPT\>
(Obs. du kan inte skicka till dig själv :-))\<SCRIPT language=JavaScript type=text/javascript\>submitted=false;\</SCRIPT\>
\</font\>
\<FORM action=skicka.asp?vad=send method=post name=form
onsubmit="if(check(this)){ if(submitted){alert('Skicka bara en gång'); return false;}else{submitted=true; return true;}}else{ return false; }"\>\<font face="Verdana" size="1"\>\<B\>\<font color="#000000"\>Till:\</font\>\</B\>\<BR\>
\</font\>
\<TABLE border=0 width=480 height="50"\>
\<TBODY\>
\<TR\>
\<TD height="46"\>
\<font face="Verdana" size="1"\>
Namnet på medlemmen här:\<BR\>\<INPUT type="text" name=toID size=47 style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #000000; FONT-FAMILY: Helvetica, Arial, Verdana, sans-serif; FONT-SIZE: 10px" value="\<%
If NOT Request.Querystring("toID") = "" then
Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("")&";pwd="
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Addera2 = "Select * From members Where ID = "&Request.Querystring("toID")
RecSet2.Open Addera2, Connect2, 3, 3
Response.Write RecSet2("username")
RecSet2.Close
Connect2.Close
End If%>"> </font> </TD>
Oj, vad rörigt! Fungerar det med att kryssa i ett meddelande för att radera detta?
kolla här
https://www.spelaroll.net/swedenworld
regga dig
sen gå in på
https://www.spelaroll.net/swedenworld/send_mess1.asp
det är test filen
det går att markera dom jag ska ta bort men jag måste väll ha en länk som man klickar på när man ska ta bort dom...
nån
Om du kikar på OveRRidEs scriptkod så visar han ju hur du gör ett formulär som du sen postar med submitknappen till den sida som tar bort det hela.
Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/SwedenWorld/send_mess1.asp, line 94, column 46
set rs = conn.execute("SELECT * FROM tblMail" WHERE userId = " & session("userID") & "")