Simpelt bannersystem

kig på www.netcoders.dk eller www.activedeveloper.dk

http://www.hotscripts.com/ASP/Scripts_and_Components/Ad_Management/

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

set rs = Server.CreateObject("ADODB.Recordset")
strRS = "SELECT * from Banner125x125"
rs.Open strRS, Conn, 1, 3

randomize
linie = int(rs.RecordCount * rnd)

rs.MoveFirst
rs.Move(linie)
%>
<%=rs("banner")%>

svar

Jeg har nu fundet et script, men hvilken ASP kode skal jeg ligge på min site for at få vist bannerne?? Ud over koden her er der en database tilknyttet og ikke mere!!



<%
gblConnectString = "DBQ=" & Server.Mappath("ads.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
gblSeparator = "#?|?#"
Response.Buffer = True

fID = Request.Item("fID")
fURL = Request.Item("fURL")
fClick = cbool(Request.Item("fClick"))
fAdmin = cbool(Request.Item("fAdmin"))
fUser = Request.Item("fUser")
fpassword = Request.Item("fPassword")
fperpage= cint(Request.Item("fperpage"))
fcurrentpage = cint(Request.Item("fcurrentpage"))
if fcurrentpage = 0 then fcurrentpage = 1
if fperpage = 0 then fperpage = 10
fsortby = Request.Item("fsortby")
fordertype = Request.Item("fordertype")
if fordertype = "" then fordertype = "ASC"
if fsortby = "" then fsortby = "ID"
'on error resume next

    Set ObjCon = Server.CreateObject("ADODB.Connection")
    ObjCon.Open gblConnectString,,16
    Set Objcmd = Server.CreateObject("ADODB.Command")
    Objcmd.ActiveConnection = ObjCon

    if fAdmin = True then
        showstats fperpage, fcurrentpage, fsortby,fordertype
    end if

   
if fClick = True and fAdmin = False then
    AdClicked fID
elseif fClick = False And fAdmin = False then
    Randomize
    Rand = cint(int(cint(AdCount) * Rnd(47) + 1))
    'Response.Write AdCount
    LoadAd Rand
end if

Sub LoadAd(intID)

    Objcmd.commandtext = "SELECT * FROM ADS WHERE ID=" & intID
    set ObjRS = Objcmd.Execute
    IF ObjRS.EOF Then Response.Write("ERROR: EOF") :  Exit Sub
    fID = intID
    fURL = ObjRS("URL")
    fURL = mid(fURL,10,len(fURL)-11)
    fIMG = ObjRS("ImageURL")
    fTrackURL = ObjRS("TrackURL")
    fViews = ObjRS("Views")
    fViews = fViews + 1
    Objcmd.commandtext = "UPDATE ADS SET Views=" & fViews & " WHERE ID=" & intID
    set ObjRS = Objcmd.Execute

    displayad fID,fIMG,fURL,fTrackURL
End Sub

Sub AdClicked(intID)

    Objcmd.commandtext = "SELECT Clicks FROM ADS WHERE ID=" & intID
    set ObjRS = Objcmd.Execute
    IF ObjRS.EOF Then Exit Sub
    fID = intID
    fClick = ObjRS("Clicks")
    fClick = cint(fClick) + 1
    Response.Write furl
    Objcmd.commandtext = "UPDATE ADS SET Clicks=" & fClick & " WHERE ID=" & intID
    set ObjRS = Objcmd.Execute
    Response.Redirect furl
End Sub

Sub ShowStats(iPerPage,iCurrentPage,strSortBy, strOrderType)
    Dim TotalPages
    TotalPages = cint(Round(AdCount / iPerPage ,0))
    Objcmd.commandtext = "SELECT * FROM ADS ORDER BY " & strSortBy & " " & strOrderType
    set ObjRS = Objcmd.Execute
    'Response.Write iperpage & "&nbsp;" & icurrentpage
    ObjRS.PageSize = iPerPage
    'Response.Write TotalPages
    'ObjRS.AbsolutePage = iCurrentPage
    'Display PREV page link, if appropriate
    If Not iCurrentPage = 1 Then
        Response.Write "<div align=center><a href=ad.asp?fordertype=" & strOrdertype & "&fsortby=" & strsortby & "&fcurrentpage=" & iCurrentPage - 1 & "&fAdmin=True&fperpage=10>Prev</a> | "
    Else
        Response.Write "<div align=center>Prev | "
    End If

    'Display NEXT page link, if appropriate
    If cint(iCurrentPage) < TotalPages Then
        Response.Write "<a href=ad.asp?fordertype=" & strOrdertype & "&fsortby=" & strsortby & "&fcurrentpage=" & iCurrentPage + 1 & "&fAdmin=True&fperpage=10>Next</a><br>" & vbcrlf & "</div>"
    Else
        Response.Write "Next<br>" & vbcrlf & "</div>"
    End If
    %>
    <p><b><font size="2" face="Verdana">Displaying page <%=iCurrentPage%> of <%=TotalPages%>: Sorted By <%=strSortBy%>:</font></b></p>
        <table align=center border=0 cellpadding=0 cellspacing=0 width="90%">
            <tr bgcolor="Silver">
                <td align=center>
                <b><a href="ad.asp?fordertype=ASC&fsortby=ID&fcurrentpage=<%=iCurrentPage%>&fAdmin=True&fperpage=10">ID</a></b>
                </td>
                <td align=center>
                    <b>Image</b>
                </td>
                <td align=center>
                    <b><a href="ad.asp?fordertype=DESC&fsortby=Views&fcurrentpage=<%=iCurrentPage%>&fAdmin=True&fperpage=10">Views</a></b>
                </td>
                <td align=center>
                    <b><a href="ad.asp?fordertype=DESC&fsortby=Clicks&fcurrentpage=<%=iCurrentPage%>&fAdmin=True&fperpage=10">Clicks</a></b>
                </td>
            </tr>
    <%
    pCount = (IPerPage * iCurrentPage)
    Count  = ((iperpage * icurrentpage) - iperpage)
    'Response.Write pCount & "&nbsp;" & Count
    ObjRS.Move Count
    Do While Not ObjRS.EOF and Count < Pcount
            tID = ObjRS("ID")
            tIMG = ObjRS("ImageURL")
            tViews = ObjRS("Views")
            tClick = ObjRS("Clicks")
            %>
                <tr bgcolor="Background">
                    <td align=center>
                        <b><%=tID%></b>
                    </td>
                    <td align=center valign=middle>
                        <%=tIMG%>
                    </td>
                    <td align=center>
                        <b><%=tViews%></b>
                    </td>
                    <td align=center>
                        <b><%=tClick%></b>
                    </td>
                </tr>
            <%
        objrs.MoveNext
        Count = Count + 1
    Loop
    %>
    </table>
    <%
End Sub


Sub DisplayAd(intID,strImage,strURL,strTrack)
    %><!--Start banner for ID <%=intID%> -->
    <A href="/ads/ad.asp?fID=<%=intID%>&fURL=<%=server.URLEncode(strURL)%>&fClick=True" target="_AD"><%=strImage%><br><%=strTrack%>
    <%
End Sub

Function ADCount()

    Objcmd.commandtext = "SELECT Views FROM ADS"
    set ObjRS = Objcmd.Execute
    AdCount = 0
    do while not ObjRS.EOF
        AdCount = AdCount + 1
        ObjRS.MoveNext
    Loop

End Function

ObjCon.Close
    set ObjRS = Nothing
    Set ObjCon = Nothing
    Set Objcmd = Nothing
%>

peppino

Hvordan skal min database se ud?

der skal bare være et felt
og det er banner.
I feltet banner skal du bare indsætte hele koden du får at vide at du skal indsættet

Det forstår jeg ikke helt:

Jeg har sat dette ind på selve sitet, der hvor reklamerne skal være:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/database.mdb")
Conn.Open DSN

set rs = Server.CreateObject("ADODB.Recordset")
strRS = "SELECT * from Banner125x125"
rs.Open strRS, Conn, 1, 3

randomize
linie = int(rs.RecordCount * rnd)

rs.MoveFirst
rs.Move(linie)
%>
<%=rs("banner")%>


Så har jeg lavet en database der hedder database.mdb med en tabel der hedder Banner. I denne tabel har jeg to felter 1. autonummer og 2. Banner

Men der kommer ikke noget frem på siden??

Du skal lige huske at rette
strRS = "SELECT * from Banner125x125"
til
strRS = "SELECT * from Banner"

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/database.mdb")
Conn.Open DSN

set rs = Server.CreateObject("ADODB.Recordset")
strRS = "SELECT * from Banner"
rs.Open strRS, Conn, 1, 3

randomize
linie = int(rs.RecordCount * rnd)

rs.MoveFirst
rs.Move(linie)
%>
<%=rs("banner")%>

I feltet banner indsætter du billedet, og så er den klaret.

Det har jeg rettet, men der sker ikke noget endnu? Er det måske fordi jeg henter et billede?
Jeg har jo bare en adresse til et billede liggende som fx. banner.gif, bliver det ikke bare til

<%=rs("banner.gif")%> ?

nej det skulle det helst ikke.
Er der noget i db'en?
Den virker hos mig

har du også bare en billedsti liggende i db'en??

nej jeg har et script i

har du lagt:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/database.mdb")
Conn.Open DSN

set rs = Server.CreateObject("ADODB.Recordset")
strRS = "SELECT * from banner"
rs.Open strRS, Conn, 1, 3

randomize
linie = int(rs.RecordCount * rnd)

rs.MoveFirst
rs.Move(linie)
%>
<%=rs("banner")%>

ned i databasen??? Jeg er helt rundt på gulvet....

Hvordan ser det ud som du vil have ind i db'en?

Det er bare 4 alm. billeder som ligger i et kardotek på min computer!!

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("12345/db2.mdb")
Conn.Open DSN

set rs = Server.CreateObject("ADODB.Recordset")
strRS = "SELECT * from Banner"
rs.Open strRS, Conn, 1, 3

randomize
linie = int(rs.RecordCount * rnd)

rs.MoveFirst
rs.Move(linie)
%>
<img border="0" src="<%=rs("banner")%>">

kommer der overhovdet ikke noget ud når det er?

Nej overhoved ikke!!!!

må jeg lige se det som du putter ind i db'en

Med det script du lige at skrevet kommer der et kryds som viser at der skal være et billede, men at der ikke er noget!

Det keg putter i db'en er billede/billede.gif hvor billede er mappen hvor billede.gif ligger i ....

du skal skrive http://www.dinside.dk/billede/billede.gif i db'en så

Det har jeg prøvet nu og det er det samme, men kan det være jeg ikke kan se billederne når jeg ser det i localhost?

http://din ip adresse her/billede/billede.gif

hvor ser jeg min IP adresse?

www.myip.dk

det burde virke, det gør det ved mig

Jeg har prøvet og prøvet men det virker altså ikke... Det er som om at lige meget hvad jeg gør, så finder den ikke nogle billeder!

så ved jeg ikke hvad der er galt