Son eklenen ilanları görebilme [çözüldü]

[oo41]

Son eklenen, örneğin 5 ilanı ana sayfada görebilirmiyiz. Bunun için ne yapmamız gerekmektedir. iyi çalışmalar

[burajan]

Aşağıdaki kodu kopyalayıp boş bir not defterine yapıştırıp, inc_son_ilan.asp adıyla kaydedin.

Kod: [Seç]

<!--#INCLUDE FILE="classified_functions.asp"-->
<%
'***********************************************************************
'** Copyright (C) 2001 - 2003 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
dim featDesc1, featName1, featUrli1, featHits1, featCLASSIFIEDID1

featuredCLASSIFIEDID = 3

sub getFeaturedCLASSIFIEDID(fCLASSIFIED_ID)

strSql = "SELECT CLASSIFIED_ID, TITLE, DESCRIPTION, POST_DATE, HITS, SHOW FROM CLASSIFIED WHERE CLASSIFIED_ID = " & fCLASSIFIED_ID
dim rsFeat
naStr = "N/A"
set rsFeat = Server.CreateObject("ADODB.Recordset")
rsFeat.Open strSql, my_Conn
if rsFeat.EOF = TRUE and rsFeat.BOF = TRUE then
featName = naStr
featDesc = naStr
featUrli = ""
featHits = naStr
else
featName = rsFeat("TITLE")
featDesc = rsFeat("DESCRIPTION")
featHits = rsFeat("HITS")
featCLASSIFIEDID = rsFeat("CLASSIFIED_ID")
'featUrli = rsFeat("IMGURL")
end if
rsFeat.close
set rsFeat = Nothing


end sub



sub displayCLASSIFIEDID2
%>
<font face="<%= strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href="classified_info.asp?id=<%=intCLASSIFIEDID%>&parent_id=<%=parent%>&parent_name=<%=cat_name%>&cat_id=<%=cat%>&sub_name=<%=sub_name%>"><%=strCLASSIFIEDName%></a>
<% if dateSince >= 0 then response.write "<img src=Images/new.gif>"%> <i>(Hit: <%=intHit%>)</i><%if expired=1 then%>&nbsp;<font color="red"><b>Süresi Doldu</b></font><%end if%><br>
      <%=strDescription%></font>
<%end sub

getFeaturedCLASSIFIEDID(featuredCLASSIFIEDID)
intPopular = 3

mwpThemeTitle= "<b>Son Eklenen " &intPopular& " Ürün</b>"
mwpThemeCellCustomCode = "align=""center"" colspan=""4"""
mwpThemeBlock_open()
response.write "<tr><td>"

strSQL = "SELECT TOP " & intPopular & " CLASSIFIED_ID, TITLE, EMAIL, DESCRIPTION, KEYWORD, POST_DATE, HITS, CATEGORY, PARENT_ID, SHOW, BADLINK FROM CLASSIFIED WHERE SHOW = 1 ORDER BY POST_DATE DESC"

dim rsPopular1
set rsPopular = server.CreateObject("adodb.recordset")
rsPopular.Open strSQL, my_Conn

Do While Not rsPopular.EOF
strDescription = rsPopular("DESCRIPTION")
strCLASSIFIEDName = rsPopular("TITLE")
parent = rsPopular("PARENT_ID")
cat = rsCategories("CAT_ID")
dateSince=DateDiff("d", Date(), strPostDate)+7
intHit = rsPopular("HITS")
intCLASSIFIEDID = rsPopular("CLASSIFIED_ID")
    %>


   
       <td valign="top" width="33%">
         <font face="<%= strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href="classified_info.asp?id=<%=intCLASSIFIEDID%>&parent_id=<%=parent%>&parent_name=<%= ChkString(rsCategories("cat_name"), "urlpath")%>&cat_id=<%=cat%>"><%=strCLASSIFIEDName%></a>
<% if dateSince >= 0 then response.write "<img src=Images/new.gif>"%> <i>(Hit: <%=intHit%>)</i><%if expired=1 then%>&nbsp;<font color="red"><b>Süresi Doldu</b></font><%end if%><br>
      <%=left(strDescription,40)%>...</font>

</td><%
rsPopular.MoveNext
Loop

rsPopular.Close
Set rsPopular = Nothing
response.write "</td></tr>"
mwpThemeBlock_close()
%>
Daha sonra bu dosyayı sitenize upload edin. default.asp dosyasını not defteri ile açın ve uygun bulduğunuz bir yere include edin. Örnek kod:

Kod: [Seç]

<!-- #INCLUDE FILE="inc_son_ilan.asp" -->

[oo41]

Verdiğiniz kod ile son eklenen ilanları ana sayfada görebiliyorum. Fakat 2 sorun var birincisi sayfa düzeni bozuldu, sayfa kaydı. ikinci sorun ise ilana tıklanınca ilan katogorisine yönleniyor.

[AdmiN]

Aşağıdaki kodları kullanabilirsin.İlana tıklanınca açılan sayfa adresi düzeltildi.Ana sayfaya eklerken orta bloğa eklersen sayfa tasarımını bozmaması lazım.

Kod: [Seç]

<!--#INCLUDE FILE="classified_functions.asp"-->
<%
strSql = "select * from CLASSIFIED_CATEGORIES order by cat_name"
dim rsCategories
set rsCategories = server.CreateObject("adodb.recordset")
rsCategories.Open strSql, my_Conn
%>
<%
'***********************************************************************
'** Copyright (C) 2001 - 2003 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
dim featDesc, featName, featUrli, featHits, featCLASSIFIEDID

featuredCLASSIFIEDID = 3

sub getFeaturedCLASSIFIEDID(fCLASSIFIED_ID)

strSql = "SELECT CLASSIFIED_ID, TITLE, DESCRIPTION, POST_DATE, HITS, SHOW FROM CLASSIFIED WHERE CLASSIFIED_ID = " & fCLASSIFIED_ID
dim rsFeat
naStr = "N/A"
set rsFeat = Server.CreateObject("ADODB.Recordset")
rsFeat.Open strSql, my_Conn
if rsFeat.EOF = TRUE and rsFeat.BOF = TRUE then
featName = naStr
featDesc = naStr
featUrli = ""
featHits = naStr
else
featName = rsFeat("TITLE")
featDesc = rsFeat("DESCRIPTION")
featHits = rsFeat("HITS")
featCLASSIFIEDID = rsFeat("CLASSIFIED_ID")
'featUrli = rsFeat("IMGURL")
end if
rsFeat.close
set rsFeat = Nothing


end sub



sub displayCLASSIFIEDID2
%>
<font face="<%= strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href="classified_info.asp?id=<%=intCLASSIFIEDID%>&parent_id=<%=parent%>&parent_name=<%=cat_name%>&cat_id=<%=cat%>&sub_name=<%=sub_name%>"><%=strCLASSIFIEDName%></a>
<% if dateSince >= 0 then response.write "<img src=Images/new.gif>"%> <i>(Hit: <%=intHit%>)</i><%if expired=1 then%>&nbsp;<font color="red"><b>Süresi Doldu</b></font><%end if%><br>
      <%=strDescription%></font>
<%end sub

getFeaturedCLASSIFIEDID(featuredCLASSIFIEDID)
intPopular = 3

mwpThemeTitle= "<b>En Çok İncelenen " &intPopular& " Ürün</b>"
mwpThemeCellCustomCode = "align=""center"" colspan=""4"""
mwpThemeBlock_open()
response.write "<tr><td>"

strSQL = "SELECT TOP " & intPopular & " CLASSIFIED_ID, TITLE, EMAIL, DESCRIPTION, KEYWORD, POST_DATE, HITS, CATEGORY, PARENT_ID, SHOW, BADLINK FROM CLASSIFIED WHERE SHOW = 1 ORDER BY HITS DESC"

dim rsPopular7
set rsPopular7 = server.CreateObject("adodb.recordset")
rsPopular7.Open strSQL, my_Conn

Do While Not rsPopular7.EOF
strDescription = rsPopular7("DESCRIPTION")
strCLASSIFIEDName = rsPopular7("TITLE")
parent = rsPopular7("PARENT_ID")
cat = rsCategories("CAT_ID")
dateSince=DateDiff("d", Date(), strPostDate)+7
intHit = rsPopular7("HITS")
intCLASSIFIEDID = rsPopular7("CLASSIFIED_ID")
    %>


   
       <td valign="top" width="33%">
         <font face="<%= strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href="classified_info.asp?id=<%=intCLASSIFIEDID%>&parent_id=<%=parent%>&parent_name=<%= ChkString(rsCategories("cat_name"), "urlpath")%>&cat_id=<%=cat%>"><%=strCLASSIFIEDName%></a>
<% if dateSince >= 0 then response.write "<img src=Images/new.gif>"%> <i>(Hit: <%=intHit%>)</i><%if expired=1 then%>&nbsp;<font color="red"><b>Süresi Doldu</b></font><%end if%><br>
      <%=left(strDescription,40)%>...</font>

</td><%
rsPopular7.MoveNext
Loop

rsPopular7.Close
Set rsPopular7 = Nothing
response.write "</td></tr>"
mwpThemeBlock_close()
%>

[oo41]

Verdiğiniz kod ile ana sayfaya en çok incelenen 3 ürünü ekledim. Fakat en son eklenen ilanları ana sayfada görebilirmiyim diye sormuştum. Sayın burajan' nın verdiği kodla bunu başarmıştım lakin yukarıda bahsettiğim sorunlar olmuştu.

[burajan]

Aşağıdaki kodda ilan detaylarına ulaşma hatasını çözdüm. Bunu kullanabilirsin. Bu orta blok içindir. Bu nedenle ana sayfada orta blok kısmına yerleştirmelisin:

Kod: [Seç]

<!--#INCLUDE FILE="classified_functions.asp"-->
<%
'***********************************************************************
'** Copyright (C) 2001 - 2003 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
dim featDesc1, featName1, featUrli1, featHits1, featCLASSIFIEDID1

featuredCLASSIFIEDID = 3

sub getFeaturedCLASSIFIEDID(fCLASSIFIED_ID)

strSql = "SELECT CLASSIFIED_ID, TITLE, DESCRIPTION, POST_DATE, HITS, CATEGORY, SHOW FROM CLASSIFIED WHERE CLASSIFIED_ID = " & fCLASSIFIED_ID
dim rsFeat
naStr = "N/A"
set rsFeat = Server.CreateObject("ADODB.Recordset")
rsFeat.Open strSql, my_Conn
if rsFeat.EOF = TRUE and rsFeat.BOF = TRUE then
featName = naStr
featDesc = naStr
featUrli = ""
featHits = naStr
else
featName = rsFeat("TITLE")
featDesc = rsFeat("DESCRIPTION")
featHits = rsFeat("HITS")
featCLASSIFIEDID = rsFeat("CLASSIFIED_ID")
'featUrli = rsFeat("IMGURL")
end if
rsFeat.close
set rsFeat = Nothing


end sub



sub displayCLASSIFIEDID2
%>
<font face="<%= strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href="classified_info.asp?id=<%=intCLASSIFIEDID%>&parent_id=<%=parent%>&parent_name=<%=cat_name%>&cat_id=<%=cat%>&sub_name=<%=sub_name%>"><%=strCLASSIFIEDName%></a>
<% if dateSince >= 0 then response.write "<img src=Images/new.gif>"%> <i>(Hit: <%=intHit%>)</i><%if expired=1 then%>&nbsp;<font color="red"><b>Süresi Doldu</b></font><%end if%><br>
      <%=strDescription%></font>
<%end sub

getFeaturedCLASSIFIEDID(featuredCLASSIFIEDID)
intPopular = 3

mwpThemeTitle= "<b>Son Eklenen " &intPopular& " Ürün</b>"
mwpThemeCellCustomCode = "align=""center"" colspan=""4"""
mwpThemeBlock_open()
response.write "<tr><td>"

strSQL = "SELECT TOP " & intPopular & " CLASSIFIED_ID, TITLE, EMAIL, DESCRIPTION, KEYWORD, POST_DATE, HITS, CATEGORY, PARENT_ID, SHOW, BADLINK FROM CLASSIFIED WHERE SHOW = 1 ORDER BY POST_DATE DESC"

dim rsPopular1
set rsPopular = server.CreateObject("adodb.recordset")
rsPopular.Open strSQL, my_Conn

Do While Not rsPopular.EOF
strDescription = rsPopular("DESCRIPTION")
strCLASSIFIEDName = rsPopular("TITLE")
parent = rsPopular("PARENT_ID")
cat = rsPopular("CATEGORY")
dateSince=DateDiff("d", Date(), strPostDate)+7
intHit = rsPopular("HITS")
intCLASSIFIEDID = rsPopular("CLASSIFIED_ID")
    %>


   
       <td valign="top" width="33%">
         <font face="<%= strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href="classified_info.asp?id=<%=intCLASSIFIEDID%>&parent_id=<%=parent%>&cat_id=<%=cat%>"><%=strCLASSIFIEDName%></a>
<% if dateSince >= 0 then response.write "<img src=Images/new.gif>"%> <i>(Hit: <%=intHit%>)</i><%if expired=1 then%>&nbsp;<font color="red"><b>Süresi Doldu</b></font><%end if%><br>
      <%=left(strDescription,40)%>...</font>

</td><%
rsPopular.MoveNext
Loop

rsPopular.Close
Set rsPopular = Nothing
response.write "</td></tr>"
mwpThemeBlock_close()
%>

Sağ ve sol bloklar içinde gerekli kodu daha sonra ekleyeceğim.

[burajan]

Bu aşağıdaki kodda sağ ve sol blok kısımları içindir:

Kod: [Seç]

<!--#INCLUDE FILE="classified_functions.asp"-->
<%
'***********************************************************************
'** Copyright (C) 2001 - 2003 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
dim featDesc2, featName2, featUrli2, featHits2, featCLASSIFIEDID2

featuredCLASSIFIEDID = 3

sub getFeaturedCLASSIFIEDID(fCLASSIFIED_ID)

strSql = "SELECT CLASSIFIED_ID, TITLE, DESCRIPTION, POST_DATE, HITS, CATEGORY, SHOW FROM CLASSIFIED WHERE CLASSIFIED_ID = " & fCLASSIFIED_ID
dim rsFeat
naStr = "N/A"
set rsFeat = Server.CreateObject("ADODB.Recordset")
rsFeat.Open strSql, my_Conn
if rsFeat.EOF = TRUE and rsFeat.BOF = TRUE then
featName = naStr
featDesc = naStr
featUrli = ""
featHits = naStr
else
featName = rsFeat("TITLE")
featDesc = rsFeat("DESCRIPTION")
featHits = rsFeat("HITS")
featCLASSIFIEDID = rsFeat("CLASSIFIED_ID")
'featUrli = rsFeat("IMGURL")
end if
rsFeat.close
set rsFeat = Nothing


end sub



sub displayCLASSIFIEDID2
%>
<font face="<%= strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href="classified_info.asp?id=<%=intCLASSIFIEDID%>&parent_id=<%=parent%>&parent_name=<%=cat_name%>&cat_id=<%=cat%>&sub_name=<%=sub_name%>"><%=strCLASSIFIEDName%></a>
<% if dateSince >= 0 then response.write "<img src=Images/new.gif>"%> <i>(Hit: <%=intHit%>)</i><%if expired=1 then%>&nbsp;<font color="red"><b>Süresi Doldu</b></font><%end if%><br>
      <%=strDescription%></font>
<%end sub

getFeaturedCLASSIFIEDID(featuredCLASSIFIEDID)
intPopular = 3

mwpThemeTitle= "<b>Son Eklenen " &intPopular& " Ürün</b>"
mwpThemeCellCustomCode = "align=""center"" colspan=""4"""
mwpThemeBlock_open()
response.write "<tr><td>"

strSQL = "SELECT TOP " & intPopular & " CLASSIFIED_ID, TITLE, EMAIL, DESCRIPTION, KEYWORD, POST_DATE, HITS, CATEGORY, PARENT_ID, SHOW, BADLINK FROM CLASSIFIED WHERE SHOW = 1 ORDER BY POST_DATE DESC"

dim rsPopular2
set rsPopular = server.CreateObject("adodb.recordset")
rsPopular.Open strSQL, my_Conn

Do While Not rsPopular.EOF
strDescription = rsPopular("DESCRIPTION")
strCLASSIFIEDName = rsPopular("TITLE")
parent = rsPopular("PARENT_ID")
cat = rsPopular("CATEGORY")
dateSince=DateDiff("d", Date(), strPostDate)+7
intHit = rsPopular("HITS")
intCLASSIFIEDID = rsPopular("CLASSIFIED_ID")
    %>


   
       <tr><td valign="top" width="100%">
         <font face="<%= strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href="classified_info.asp?id=<%=intCLASSIFIEDID%>&parent_id=<%=parent%>&cat_id=<%=cat%>"><%=strCLASSIFIEDName%></a>
<% if dateSince >= 0 then response.write "<img src=Images/new.gif>"%> <i>(Hit: <%=intHit%>)</i><%if expired=1 then%>&nbsp;<font color="red"><b>Süresi Doldu</b></font><%end if%><br>
      <%=left(strDescription,40)%>...</font>

</td></tr><tr><td><hr size=1></td></tr><%
rsPopular.MoveNext
Loop

rsPopular.Close
Set rsPopular = Nothing
response.write "</td></tr>"
mwpThemeBlock_close()
%>


[oo41]

Orta ve sağ, sol blog için vermiş olduğunuz kodları ana sayfada doğru yerlerine include ettim fakat gene sayfa düzeni bozuldu. İlana tıklanınca ilan detayına ulaşamama sorunu düzeltilmiş.

[oo41]

Nasıl oldu bilmiyorum uğraşırken bahsettiğim sorunu çözdüm.