04-12-2007, 14:46
|
|
|
|
חבר מתאריך: 07.10.06
הודעות: 1,795
|
|
אוקי, אחשיו הבנתי.
המיבנה נתונים שלך לא טוב. הוא לא בנוי בצורה גמישה. אני הייתי מציע לך לשקול מחדש את המיבנה.
בכל מיקרא, יש כמה פתרונות לשאלה שלך. (עם אותו מיבנה נתונים כמו שלך)
אני חושב שהכי יעיל זה עם עם מארך. אתה מכניס למארך את כל הקתגוריות, ואז רץ על שאילתה שמחזירה את כל הנתונים של אותה קתגוריה.
הנה דוגמא:
קוד:
<%
Set rst1 = Server.CreateObject("ADODB.Recordset")
rst1.Open "SELECT * FROM tbl1", db' פתיחת שאילתה שתחזיר את הרשומות
if rst1.eof then
Response.Write("אין כלום")
Response.End
end if
dim strTemp
Dim txtToInsertToArray
txtToInsertToArray=""
strTemp=""
do
strTemp = rst1("Title")
if InStr(1, txtToInsertToArray, "," & strTemp) = 0 then
txtToInsertToArray = txtToInsertToArray & "," & strTemp
end if
if not rst1.eof then
rst1.movenext
end if
loop until rst1.eof
Dim ArrayOfTitles
ArrayOfTitles = Split(txtToInsertToArray, ",")
dim x
For x = 1 To UBound(ArrayOfTitles)
rst1.close
set rst1 = nothing
Set rst1 = Server.CreateObject("ADODB.Recordset")
Response.Write("<p><b><u>" & ArrayOfTitles(x) & "</u></b></p>")
rst1.Open "SELECT * FROM tbl1 where Title='" & ArrayOfTitles(x) & "'", db
if rst1.eof then
Response.Write("<p>ריק</p>")
else
do
Response.Write("<p>" & rst1("ForumName") & "</p>")
if not rst1.eof then
rst1.movenext
end if
loop until rst1.eof
end if
next
%>
ביגלל שהקוד לא כל כך קצר, וה-TAB-ים בקושי מופיעים, והקוד לא כל כך קריא,
לכן אני מצרף קוד עם מסד ומחרוזת קישור:
https://2007-uploaded.fresh.co.il/2...04/21043225.rar |
ראשי
צ'אט
מצב כלאיים
