محدود كردن لينكها(لطفا كمك كنيد)

Hosein.NET · Nov 12, 2004

سلام
من يه لينكستان دارم كه از طريق كنترل پنل بهش لينك اضافه ميكنم
حالا ميخوام اين لينك ها رو تو صفخه اول بذارم
ولي ميخوام فقط 5 لينك جديد نمايش داده بشه بايد چيكار كنم؟
اينم كدش
<%
Sub OpenDB (ByRef con)

Set con = Server.CreateObject("ADODB.Connection")
con.Open "provider=microsoft.jet.oledb.4.0;persist security info = false;data source = " & Server.MapPath("links.mdb")

End Sub

OpenDB CON

Function InsertAP(t)
If Not IsNull(t) Then
InsertAP = t
InsertAP = Replace(InsertAP, "&lt;", "<")
InsertAP = Replace(InsertAP, "&gt;", ">")
InsertAP = Replace(InsertAP, "&quot;", Chr(34))
Else
InsertAP = ""
End If
End Function

Set RSADD = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tbsite2 ;"
RSADD.Open SQL,CON,3,3

Set RSADD = CON.Execute(SQL)
While Not RSADD.EOF

%>
<a target="_blank" href="<%=InsertAP(RSADD("Author_email"))%>" style="text-decoration: none">
<font face="Tahoma" style="font-size: 9pt"><%=InsertAP(RSADD("Author")) & "<br>"%></font></a>
<%
RSADD.MoveNext
Wend
%>

Hosein.NET · Nov 12, 2004

خدايي پاسخ بدبد بچه ها
بد جور كارم گيره

AliReza26 · Nov 13, 2004

بفرما :

کد:

&lt;% 
Sub OpenDB (ByRef con) 

Set con = Server.CreateObject("ADODB.Connection") 
con.Open "provider=microsoft.jet.oledb.4.0;persist security info = false;data source = " &amp; Server.MapPath("links.mdb") 

End Sub 

OpenDB CON 

Function InsertAP(t) 
If Not IsNull(t) Then 
InsertAP = t 
InsertAP = Replace(InsertAP, "&amp;lt;", "&lt;") 
InsertAP = Replace(InsertAP, "&amp;gt;", ">") 
InsertAP = Replace(InsertAP, "&amp;quot;", Chr(34)) 
Else 
InsertAP = "" 
End If 
End Function 

Set RSADD = Server.CreateObject("ADODB.Recordset") 
SQL = "SELECT * FROM tbsite2 ;" 
RSADD.Open SQL,CON,3,3 

Set RSADD = CON.Execute(SQL) 

dim ifive
ifive = 0

While Not (RSADD.EOF OR ifive = 5)

%> 
&lt;a target="_blank" href="&lt;%=InsertAP(RSADD("Author_email"))%>" style="text-decoration: none"> 
&lt;font face="Tahoma" style="font-size: 9pt">&lt;%=InsertAP(RSADD("Author")) &amp; "&lt;br>"%>&lt;/font>&lt;/a> 
&lt;% 
RSADD.MoveNext 
ifive = ifive + 1
Wend 
%>

Hosein.NET · Nov 13, 2004

دستت درد نكنه خيلي مخلصم
ميرم چك ميكنم مشكلي بود مزاحم ميشم

Hosein.NET · Nov 13, 2004

آقا علي رضا دستت درد نكنه
ولي بعد از 5 لينك اگه اضافه ميكني كينك 6 وارد صفحه ي اول نميشه
يعني منظورم اينه وقتي لينك ششم رو اضافه ميكني
اواين لينك جاشو بده به شيشمي
اگه هفتمي اومد بره جاي دومي
خلاصه لينك هاي جديد بيان جاي قبليا
دسست درد نكنه چيكارش كنم اينو؟

a_mollaei · Nov 13, 2004

آقا اگه Primery key توي جدولت داري كافيه توي كد علي رضا توي روي اون كليد Order بذاري.

مثلا اگر اسم كليدت LinkID هست كد اينجوري مي شه.

کد:

SQL = "SELECT * FROM tbsite2 ORDER BY LinkID DESC;"

Hosein.NET · Nov 13, 2004

سلام
آقا دستتون درد نكنه حل شد
حالا بخش دوم مشكل اين بر عكس بقيه فقط يه لينك نشون ميده
اگه بخوام 2 يا 2 تا لينك نشون بده چيكارش كنم؟
اينم كد

کد:

&lt;%

rsLotm.open "Select Top 1 * From " &amp; database_table &amp; " Order by Id Desc", Conn 

If Not rsLotm.Eof Then

Response.Write ":&lt;a href=""" &amp; rsLotm("url") &amp; """>" &amp; rsLotm("name") &amp; "&lt;/a> &lt;br>: " &amp; rsLotm("description") &amp; "&lt;/a>"
Response.Write "&lt;br>"
Response.Write "&lt;center>&lt;a href=""archives.asp"">###&lt;/a>&lt;/center>"
Else

Response.Write "***.."

End If
%>

البته يه اينكلود هم داره :
كه تو كانكشن اينا رو نوشته:

کد:

&lt;%

dim Conn, rsLotm, database_location, database_table, adminpass

' Connect To The Database

' Enter The Name Of The Database or use your own connection string (set to default)

database_location = "link.mdb"

' Enter the Name of the Database Table (set to default)

database_table = "lotm"

' Enter the Name of page containing Link of the Moment (set to default)

pagename = "link.asp"

' Enter the Administration password you would like (set to default)

adminpass = "admin"

Set Conn = Server.CreateObject("ADODB.Connection")
Set rsLotm = Server.CreateObject("ADODB.RecordSet")

Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; Server.MapPath(database_location)

Conn.Open

%>

قربون دستتون كمك كنيد اينم حل شه ممنون از لطفتون

a_mollaei · Nov 13, 2004

با سلام

قسمت اول كدتو اينطوري اصلاح كن

کد:

rsLotm.open "Select Top 2 * From " &amp; database_table &amp; " Order by Id Desc", Conn 

Do Until  rsLotm.Eof

Response.Write ":&lt;a href=""" &amp; rsLotm("url") &amp; """>" &amp; rsLotm("name") &amp; "&lt;/a> &lt;br>: " &amp; rsLotm("description") &amp; "&lt;/a>" 
Response.Write "&lt;br>" 
Response.Write "&lt;center>&lt;a href=""archives.asp"">###&lt;/a>&lt;/center>" 

rsLotm.MoveNext

Loop

اونوقت دوتا لينك نشون ميده. اگر 2 رو تغيير بدي به تعداد عددي كه نوشتي لينك نشون مي ده.

Hosein.NET · Nov 16, 2004

سلام
آقا خيلي با مرامي دستت درد نكنه
فقط 2 تا سوال
اگه بخوام تعداد 2 تا رو بكنم مثلا 5 تا بايد Select Top 2 * From اين 2 رو بكنم 5؟
يعد مثل بالايي لينكهاي جديد جانشين قبليا بشن بايد چكار كرد؟
دستت درد نكنه

a_mollaei · Nov 16, 2004

سلام.

مخلصيم.

1- براي زياد كردن تعداد لينكها همونطور كه خودت گقتي بايد اون 2 رو زياد كني مثلا 5 براي 5 عدد لينك.

2- كد Order By ID DESC لينكهات رو بر اساس ID و به صورت نزولي مرتب مي كنه در نتيجه هميشه لينكهاي جديد در بالا قرار دارند و هميشه جديد ترين لينكها نمايش داده مي شوند.