Crisses meddelandetjänst

crisse6Medlem sedan dec. 20002 526 inlägg

Frågan25 feb. 2001 20:00#1

här är ett annat sätt att skicka meddelande till medlemmar, vi börjar med den sida som visar om man har meddelanden och från vem och när:

mejl.asp

Kod:
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "SELECT * From meddelande WHERE till ='" & Session("username") & "' ORDER BY datum DESC"
rsMess.Open SQL, Databas
If rsMess.EOF then
Response.Write "Du har inte ett enda grodmejl :("
else
Do while NOT rsMess.EOF

%>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
<tr>
<td width="157" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;">Ämne:</td>
<td width="154" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;">Från:</td>
<td width="150" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;">Skickat datum och tid:</td>
<td width="109" style="border-bottom-width:1; border-bottom-color:black; border-bottom-style:solid;">Status:</td>
</tr>
<tr>
<td width="157" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><a href="lasmess.asp?id=<%=rsMess("id")%>"><%=rsMess("rubrik")%></a> </td>
<td width="154" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a> </td>
<td width="150" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><%=rsMess("datum")%> </td>
<td width="109" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><%=rsMess("status")%> </td>
<td width="109" style="border-right-width:0; border-right-color:black; border-right-style:solid;"> <a href="raderamess.asp?ID=<%=rsMess("ID")%>">Ta bort!</a> </td>
</tr>
</table>

<%
rsMess.MoveNext
Loop
rsMess.CLose
%>
<% End If %>
 
<a href="skickamess.asp">Skriv ett meddelande</a>

nu till den sida där man kan läsa sitt meddelande, lasmess.asp

SQL = "SELECT * From meddelande WHERE id =" & request.querystring("id") & ";"
rsMess.Open SQL, Databas, 1, 2

If rsMess.EOF then
%>
Hittade inte meddelandet!
<%

%>
<% End If %>

<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%>
Ämne: <%=rsMess("rubrik")%> 
Från: <a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a> 
Meddelande: 
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
<tr>
<td width="382"><%=rsMess("meddelande")%></td>
</tr>
</table>

<% rsMess.Close %>
<%
SQL = "UPDATE meddelande SET status = 'Läst' WHERE id =" & request.querystring("id")

Databas.Execute(SQL)
%>

sedan skickamess.asp:

Kod:
<% if request.form("till")<>"" and request.form("meddelande")<>"" then

Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "INSERT INTO meddelande ([fran], [datum], [meddelande], [rubrik], [till], [status]) VALUES('" & Session("username") & "',#" & now & "#,'" & Request.Form("meddelande") & "','" & Request.Form("rubrik") & "','" & Request.Form("till") & "','Oläst')"
Databas.Execute(SQL)

Meddelandet är skickat!
<% else %>
<body onLoad="teckenKvar()">
<form name="meddelande" method="post" action="skickamess.asp">

Personens användarnamn: 
<input type="text" name="till" value="<%=request.querystring("till")%>" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;">

Ämne på ditt mejl: 
<input type="text" name="rubrik" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;">

Messet: 
<textarea name="meddelande" rows="16" cols="80" maxlenght="999" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"></textarea>
<input type="text" name="ticker" value="1000" size="3" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"
disabled> tecken kvar. 
 <input type="submit" value="Skicka!" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"></form>
<% End If %>

nu till sidan som gör det möjligt att radera meddelanden, raderamess.asp:

Kod:
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "DELETE FROM meddelande WHERE id =" & request.querystring("id")
Databas.Execute SQL
%>
<a href="mejl.asp">Tillbaka</a>