السلام عليكم
يااخوة كيف يمكن برمجة شريط متحرك يحتوي على اخر 10 مشاركات على سبيل المثال من قاعدة بيانات معينة
"وَمَا تَدْرِي نَفْسٌ مَّاذَا تَكْسِبُ غَداً وَمَا تَدْرِي نَفْسٌ بِأَيِّ أَرْضٍ تَمُوتُ إِنَّ اللَّهَ عَلِيمٌ خَبِيرٌ"
شريط متحرك يحتوي على اخر 10 مشاركات
مغلق
لا اعرف كيف للاسف لكن هذا يتطلب لغة تفاعلية مثل PHP او ASP او JSP لو اردته من قاعدة بيانات.
لكن يمكن التبسيط الى استخدام JS اعتقد باستخدام ملفات نصية.
www.planetsourccode.com
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
انا اتعامل مع asp
وهذه المشاركات يتم طباعتها من قاعدة البيانات
"وَمَا تَدْرِي نَفْسٌ مَّاذَا تَكْسِبُ غَداً وَمَا تَدْرِي نَفْسٌ بِأَيِّ أَرْضٍ تَمُوتُ إِنَّ اللَّهَ عَلِيمٌ خَبِيرٌ"
لم اتعامل مع asp من فترة طويلة وكانت مرحلة مراهقة :P
ان كنت تستطيع جلب البيانات من القاعدة سيغدو من السهل كتابة response يحتوي على معرف marquee الخاص بالـ html
ام ان مشكلتك هي في جلب القيمة من قاعدة البيانات؟ :unsure:
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
<%
Dim Marq
Set cn = CreateObject("ADODB.Connection")
Dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbName
cn.Mode = 3
cn.Open strConn ', strLogin, strPassword
sql = "SELECT top 10 * FROM t ORDER BY t.postedDate DESC;"
' use your own connection this is just an example
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = 2
rs.Open sql, cn, 0, 1, 1
'Set rs = cn.Execute(sql)
While Not rs.EOF
Marq = Marq + GetLink(rs)
rs.MoveNext
If Not rs.EOF Then Marq = Marq + " - "
Wend
Marq = "<Marquee>" + Marq + "</Marquee>"
rs.Close
cn.Close
response.write Marq
Function GetLink(rs)
GetLink = "<A href='yourfile.asp?tid=" & rs("id") & "' target=_blank>" & rs("title") & "</A>"
End Function
%>سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت
أستغفرك وأتوب اليك
الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد
هذا الموضوع مغلق.