webForumDet fria alternativet
Logga in / Bli medlem

List forum...

ASPur ASP

3 svar · 175 visningar · startad av graf

grafMedlem sedan aug. 2001174 inlägg
#1

Hej, som jag har nu så är det rubriker i forumet och sen till vänster läser man texten.
Hur gör jag om jag vill ha en lång lista med alla inlägg?
Alltså det ska vara såhär (som en gästbok)

Användare: graf
Rubrik: ASP
Text: blablablabla

---------------------
Användare: didrik
Rubrik: HTML
Texy: blablabls

osv osv...

Var och vad ska jag klippa in?

Här är forum.asp filen det är där alla rubriktexter står, sen under det är det read.asp filen och där är inläggs texten, tacksam för hjälp!!

FORUM.ASP:

<!-- #include file="adovbs.inc" -->
<html>
<head>
<title>Forum</title>
<style>
<!--
a { text-decoration: none }
a:hover { color: #cococo; text-decoration: underline }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="500" border="0" cellspacing="0" cellpadding="2" height="100%" align="center">
<tr>
<td valign="top">

  \<p align="left"\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"\>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#DCDCDC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">[<A HRef="forum.asp">Uppdatera</A>] [<a href="nyinlagg.asp">Skriv inlägg</a>] [<A HREF="sok.asp" target="huvud">Sök</A>] </font></td>

        \</td\>
      \</tr\>
      \<%

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/forum.mdb")&";"

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

Addera = "Select * From asp WHERE REF_ID = 0 ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
X=0
DO UNTIL X=25 OR RecSet.EOF ' <-- Här visar vi bara de 25 senaste trådarna

nytt = "yes"

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

Addera2 = "Select DATUM From asp WHERE REF_ID = " &RecSet("ID")
RecSet2.Open Addera2, Connect, adOpenStatic, adLockOptimistic

DO UNTIL RecSet2.EOF OR nytt = "yes"
	IF RecSet2("DATUM") \> NOW - 1 THEN
		nytt = "yes"
	END IF
	
	RecSet2.MOVENEXT
LOOP

RecSet2.CLOSE

%>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<a href="read.asp?ID=<%=RecSet("ID")%>" target="huvud">
<% IF nytt = "yes" THEN %>

          \<% END IF %\>\<li\>
          \<%=RecSet("RUBRIK")%\>\</a\>  \<%=RecSet("NAMN")%\>  \[\<%=RecSet("ANTALSVAR")%\>\]\</font\>\</td\>
        \<td width="130"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\> 
          \</font\>\</td\>
        \<td width="125"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>

</tr>
<%
RecSet.MOVENEXT
LOOP
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>
</table>
<hr size="1" width="50%" align="left">
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font><br>
<b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FF0000">
<%
IF Session("fel") <> "" THEN
Response.WRITE Session("fel")
Session("fel") = ""
END IF
%>
</font></b><br>
</p>
</div>

</body>
</html>

READ.ASP:

<!-- #include file="adovbs.inc" -->

<%

inlaggID = Request.QueryString("ID")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/forum.mdb")&";"

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

Addera = "Select * From asp WHERE ID=" &inlaggID
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>

<%
Function Smiley(text)

text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")

Response.Write text

End Function
%>

<html>
<head>
<title>Forum</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="200" border="0" cellspacing="0" cellpadding="2" height="100%" align="center">
<tr>
<td valign="top" class="right-line"> <br>
<table width="90%" border="0" cellpadding="1" align="center">
<tr>
<td bgcolor="#8CA7B5">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25">
<div align="center"><font color="#993300" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><%=server.HTMLEncode(RecSet("RUBRIK"))%></b></font></div>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#FFFFFF">
<td bgcolor="#FFFFFF" valign="top"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<%=Smiley(RecSet("INLAGG"))%><br>
<br>
</font></td>
</tr>
<tr>
<td valign="top"><font color="#DCDCDC" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1">Skribent </font><font color="#993300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=server.HTMLEncode(RecSet("NAMN"))%></font><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">
den <font color="#993300"><%= NOW %></font>
| E-post :</font> <font size="1">
<%
IF RecSet("EPOST") = "" THEN
Response.Write "ingen epost"
ELSE
%>
<a href="mailto:<%=RecSet("EPOST")%>" class="vit"><%=server.HTMLEncode(RecSet("EPOST"))%></a>
<%
END IF
%> <br>
<SCRIPT language="JavaScript">
<!--
function opensmall()
{
open("" , "opensmall" , "toolbar=no,width=400,height=300");
}
//-->
</SCRIPT>
[<A HREF="javascript:opensmall()">Tipsa en vän</A>]

                    \</font\> \</font\>\</td\>
                \</tr\>
              \</table\>
            \</td\>
          \</tr\>
        \</table\>
      \</td\>
    \</tr\>
  \</table\>
  \<%

IF RecSet("ANTALSVAR") <> 0 THEN

RecSet.CLOSE
Addera = "Select * From asp WHERE REF_ID=" &Request.QueryString("ID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<br>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font> <br>
<br>
<%DO UNTIL RecSet.EOF%>
<table width="90%" border="0" cellpadding="1" align="center">
<tr>
<td bgcolor="#8CA7B5">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20">
<div align="center"><b><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=server.HTMLEncode(RecSet("RUBRIK"))%></font></b></div>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#FFFFFF">
<td bgcolor="#FFFFFF" valign="top"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<%=Smiley(RecSet("INLAGG"))%><br>
<br>
</font></td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF">
<hr width="100%" size="1">
<font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" color="#000000">Skribent </font><b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=server.HTMLEncode(RecSet("NAMN"))%></font></b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
den <i><%=RecSet("DATUM")%></i> | <b>E-post</b> :</font>
<font size="1" color="#000000">
<%
IF RecSet("EPOST") = "" THEN
Response.Write "ingen epost"
ELSE
%>
</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="mailto:<%=RecSet("EPOST")%>" ><%=server.HTMLEncode(RecSet("EPOST"))%></a></font><font size="1" color="#000000">
<% END IF %>
</font></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
RecSet.MOVENEXT
LOOP

END IF

RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>
<div align="left"></div>
<form name="form1" method="post" action="adderaPost.asp?refID=<%=inlaggID%>">
<hr width="100%" size="1" align="left">
<div align="left"><b><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" color="#FF0000">
</font><br>
<font size="1">Skriv ett svar</font></font></b><br>
<b><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" color="#FF0000">
<%
IF Session("fel") <> "" THEN
Response.WRITE Session("fel")
Session("fel") = ""
END IF
%>
</font></font></b><br>
</div>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="text" name="namn" size="30" maxlength="20" class="TABELLER" value="<%IF Request.Cokies("UserInfo")("NAMN") <> "" THEN Response.Write Request.Cokies("UserInfo")("NAMN")%>">
</font></td>
<td width="174"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Skribent</font></td>
</tr>
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="text" name="epost" size="30" maxlength="50" class="TABELLER" value="<%IF Request.Cokies("UserInfo")("EPOST") <> "" THEN Response.Write Request.Cokies("UserInfo")("EPOST")%>">
</font></td>
<td width="174"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">E-post</font></td>
</tr>
<tr>
<td width="226"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="rubrik" size="30" maxlength="50" class="TABELLER">
</font></td>
<td width="174"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">Rubrik</font></td>
</tr>
<tr>
<td colspan="2"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
Text<br><textarea name="inlagg" cols="40" rows="10" class="TABELLER"></textarea>
</font></td>
</tr>
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="submit" name="Submit" value="Spara kommentar" alt="Posta svaret" border = "0">
</font></td>
<td width="174"> </td>
</tr>
</table>
</form>
<div align="left">
<p> </p>
<p><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font></p>
</div>
</td>
</tr>
</table>
</body>
</html>

LarsGMedlem sedan dec. 200012 464 inlägg
#2

Hur ser dina tabeller ut? Ligger all information i tabellen ASP?

------------------
essentitia preter non sans multiplicandum

grafMedlem sedan aug. 2001174 inlägg
#3

ja

LarsGMedlem sedan dec. 200012 464 inlägg
#4

Vill du ha resultatet sorterat efter något speciellt (t.ex efter användare)eller bara i inläggsordning?

Här är i alla fall en enkel och rak listning

sql = "select * from asp order by id"

set rs = connect.execute(sql)

i = 1
while not rs.eof
   response.write "användare: " & namn & "<br>"
   if  i > 1 then 
       response.write "<br>"
       response.write "--------------"
       i = i + 1
   end if
   response.write "rubrik: " & rs("rubrik") & "<br>"
   response.write "text: " & rs("inlagg")  & "<br>"
   rs.movenext
wend

Nu vet jag inte om alla kolumnnamn stämmer.

Vill du ha någon pagingmekanism för det här också? I så fall kan du ju titta under WF-script t.ex.

------------------
essentitia preter non sans multiplicandum

146 ms totalt · 3 externa anrop · v20260731065814-full.29ac60f6
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
143 ms — hämta tråd, inlägg och bilagor (db)