Avatar billede MetfreakDK Praktikant
08. februar 2003 - 13:29 Der er 12 kommentarer og
2 løsninger

forklar mig hvordan man laver en session

jeg skal lige ha forklaret hvordan man laver en session.. ! altså hvis jeg nu vil lave en tagwall i et bruger system.. og det skal så være sådan at folk ikke selv skal skrive sit eget navn... men systemet gør det for en... så skal man vel lave en session med medlemmets navn?? eller er jeg helt forkert på den??
Avatar billede remedy Nybegynder
08. februar 2003 - 13:32 #1
du gør bare sådan og sådan....
Avatar billede askhoej Praktikant
08. februar 2003 - 13:42 #2
'Set
Session("Brugernavn") = "plentyforce"

'Write
Response.write(Session("Brugernavn"))
Avatar billede MetfreakDK Praktikant
08. februar 2003 - 13:47 #3
er ik helt med.. hvis der nu er flere brugere... så skal det vel ikke være ="plentyforce" ???
Avatar billede mccannon Nybegynder
08. februar 2003 - 14:04 #4
hver session er unik
det vil sige at hver bruger for sin egen session
Avatar billede MetfreakDK Praktikant
08. februar 2003 - 14:26 #5
ok.. men hvor skal jeg skrive session("Brugernavn")

??
Avatar billede mccannon Nybegynder
08. februar 2003 - 14:42 #6
Session("brugernavn") = request.form("brugernavn")
feks
Avatar billede MetfreakDK Praktikant
08. februar 2003 - 14:47 #7
ok... men stadig.. HVOR skal jeg skrive det?? kan vi lige snakke over icq eventuelt??
Avatar billede mccannon Nybegynder
08. februar 2003 - 15:13 #8
jamen det kommer jo ligsom an på i hvilken sammenhæng du skal bruge det ikke, kom med det stk kode hvor session skal bruges
Avatar billede MetfreakDK Praktikant
08. februar 2003 - 15:27 #9
<%
If Request.Querystring("mode") = "write" then

Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = dsn & "DBQ=" & server.mappath("../../db/street.mdb")
DataConn.Open DSN

Set tagwall = Server.CreateObject("ADODB.RecordSet")
tagwall.open "Select * From [wall] Order by id", DataConn, 1, 3 

tagwall.addnew
tagwall.Fields("navn") = trim(request.form("navn"))
tagwall.Fields("dato") = date()
tagwall.Fields("text") = Request("text")
tagwall.update
response.redirect "index.asp?id=tagwall"

Elseif Request.Querystring("mode") = "del" then
id = Request.Querystring("id")

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../db/street.mdb") 

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * FROM member_wall WHERE ID=" & id
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
Rs.delete
response.redirect "index.asp"
Else
%>

<%
Response.Expires = 0

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../db/street.mdb")
Conn.Open DSN
SQL = "Select TOP 50 * from wall order by id DESC"
Set rs = Conn.Execute(SQL)

%>

  <div align="center">
  <center>

<table border="0" cellspacing="0" width="95%" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
    <tr>
      <td class="headline" height="21" width="843">
      <p align="left" style="margin-top: 0; margin-bottom: 0"><i><b>
      <font face="Times New Roman" size="4">//Gæstebog//</font></b></i></td>
    </tr>
    <tr>
      <td class="main" width="843">
<p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
<p style="margin-top: 0; margin-bottom: 0"><font face="Verdana" size="2">Dette
er så min ydmyge gæstebog.. (egen produktion :) ) Tag lige og <i>&quot;Tagge&quot;</i> en
en lille hilsen når du nu alligvel er herinde.. :)</font></p>
<p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" width="95%" cellspacing="0" cellpadding="0" height="158" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
<font face="Verdana" size="2">
    <td width="18%" class="main" valign="top" height="46">
      <p align="right" style="margin-top: 0; margin-bottom: 0"><font face="Verdana" size="1">&nbsp;&nbsp;
      <p align="right" style="margin-top: 0; margin-bottom: 0">&nbsp;<p align="right" style="margin-top: 0; margin-bottom: 0">&nbsp;</font></td>
    <td width="82%" class="main" height="137" rowspan="3">
      <font face="Verdana" size="1">
      <form method="POST" action="tagwall.asp?mode=write">
<input type="hidden" name="navn" size="14" tabindex="1" style="background-color: #FFFFFF; font-family: Verdana; font-size: 10 pt; border: 1px solid #000000" value="<% session(navn) %>"></font><p><font face="Verdana" size="1">
<input type="text" name="text" rows="6" cols="46" name="text" size="56" tabindex="1" style="background-color: #FFFFFF; font-family: Verdana; font-size: 10 pt; border: 1px solid #000000"></font></td>
  </tr>
  <tr>
    <td width="18%" class="main" valign="top" height="46">
      &nbsp;</td>
  </tr>
  <tr>
    <td width="18%" class="main" valign="top" height="45">
      &nbsp;</td>
  </tr>
  <tr>
<font face="Verdana" size="1">
    <td width="18%" class="main" height="12">
    </td>
    <td width="82%" class="main" height="12">
      </td>
    </font>
  </tr>
  <tr>
<font face="Verdana" size="1">
    <td width="18%" class="main" height="11">
      </td>
    <td width="82%" class="main" height="11">
      <font face="Verdana" size="1">
<input type="submit" name="submit" value="Indsæt" tabindex="2" style="background-color: #C0C0C0; font-family: Verdana; font-size: 9 pt; border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 2px solid #000000; border-bottom: 1px solid #000000; padding: 0; float:left"></font><p>
      </p>
      <p></p>
      <p></p>
      <p></p>
      <p></p>
      <p></p>
      <p></p>
      <p></td>
    </font>
    </form>
  </tr>
  </table>
      </center>
</div>
      </td>
    </tr>
  </table>
  </center>
</div>
<!--</div>
<div align="right">

<font face="Verdana" size="1">
<div align="center" style="width: 540; height: 72">-->

  <p style="margin-top: 0; margin-bottom: 0">
      <div align="center">
        <center>
      <table border="0" width="95%" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" height="118">
 
  <tr>
    <td valign="bottom" colspan="2" height="19" width="837">
    </td>
  </tr>
 
  <tr>
    <td valign="bottom" colspan="2" height="19" width="837">
    &nbsp;</td>
  </tr>
  <tr>
    <td valign="bottom" colspan="2" height="21" width="837">
      <p align="center"><b><font color="#FFFFFF">Tjek de 35 seneste Indlæg:</font></b></td>
  </tr>
  <% if rs.EOF then %>
  <tr>
    <td valign="bottom" colspan="2" height="19" width="837">
      <p align="center" style="margin-top: 0; margin-bottom: 0">Der er ikke nogen Tag's i
      Databasen</td>
  </tr>
  <% Else %>
    <% Do While NOT rs.EOF %>
  <tr>
    <td  valign="bottom" style="border-right-width: 1; border-bottom-width: 1; border-top-style:solid; border-top-width:1; border-left-style:solid; border-left-width:1" height="14" width="577" bgcolor="#E6E6E6">
    <p style="margin-top: 0; margin-bottom: 0" align="left"><font face="Verdana" size="2"><i>Navn: <%="<b><font=""#549786"">" & rs("navn") & "</font></b>" %> </i></font></td>
    <td  valign="bottom" style="border-left-width: 1; border-bottom-width: 1; border-top-style:solid; border-top-width:1; border-right-style:solid; border-right-width:1" height="14" width="260" bgcolor="#E6E6E6">
    <p style="margin-top: 0; margin-bottom: 0" align="center"><i>
    <font size="2" face="Verdana">Dato: <%=rs("dato")%>
      </font></i></td>
  </tr>
  <tr>
    <td colspan="2" valign="top" style="border-top-width: 1; border-bottom-width: 1; border-bottom-style:solid; border-left-style:solid; border-left-width:1; border-right-style:solid; border-right-width:1" height="19" width="837" bgcolor="#E6E6E6" ><font size="2" face="Verdana" color="#000000">
    <%response.write rs("text")
    'response.write replace(rs("text"),"<","&lt;")%></font>&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2" valign="top" style="padding-left: 3; padding-right: 3" height="21" width="831">
    <p style="margin-top: 0; margin-bottom: 0" align="center"></td>
  </tr>
  <% RS.MoveNext
    Loop
    %>
<% end if %>
<% end if %>
  <tr>
    <td colspan="2" valign="top" style="padding-left: 3; padding-right: 3" height="21" width="831">
    &nbsp;</td>
  </tr>
  </table>
        </center>
</div>
</div>
Avatar billede somaliomar Praktikant
08. februar 2003 - 15:42 #10
Du kan læse om sessions på http://html.dk/tutorials/asp/lektion12.asp
Avatar billede MetfreakDK Praktikant
08. februar 2003 - 16:28 #11
glem det...
Avatar billede fcs Novice
16. februar 2003 - 13:19 #12
Plentyforce>> Askhoej forsøger faktisk at hjælpe dig og giver det rigtige svar. Det samme gør mccannon. Hvorfor lukker du så uden at give dem point? Forklaring udbedes.

Med venlig hilsen

FCS/Coadmin
Avatar billede somaliomar Praktikant
16. februar 2003 - 13:21 #13
Plentyforce >> Har du fundet en løsning?
Avatar billede jelzin101 Praktikant
24. februar 2003 - 21:24 #14
plentyforce deaktiveres.

jelzin101/coadmin.
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