4 svar · 189 visningar · startad av graf
Jag vill ha en besöksräknare så man ska kunna se hur många gånger just det inlägget har läst och så ska man kunna rösta om inlägget var uselt eller bra, men rösterna räknas ju ihop, men hur gör jag om jag inte vill att dem ska räknas ihop?
Typ att en sida har öppnas 5 gr, så skriver en ett nytt inlägg då ska det stå "Läst 1 gr"
Rörigt va!?
Dom som fattar kan väl hjälpa mig tack.
Lägg en kolumn i databasen, för varje inlägg, som ökas med 1 så fort det läses.
UPDATE tabellen SET hits=hits+1 WHERE ....
Röstningen får du förklara närmare.
------------------
/emission
If you see someone without a smiley, give them your colon.
Hur ser din kod ut nu?
------------------
"Where monkeys and nutty proffesors live. That's where i live"
Såhär ser min read.asp kod ut:
<!-- #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>FinansSnack</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("http://www16.brinkster.com/aktieprat1/reklam.htm" , "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"><br>
</font></p>
</div>
</td>
</tr>
</table>
</body>
</html>
jag tror han vill ha som typ: http://www.destinymod.com/ forum.
Där kan man göra en POLL typ. längst upp eller längst ner väljer man alltenativ och sen rösta man om inlägget var bra eller dåligt.. har jag rätt?
------------------
//voigtan
:: voigtan.org
"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck