%@LANGUAGE="VBSCRIPT" codepage=1256 %> <% Response.Charset="ar-sa" %> <% session.CodePage=1256 %> <% pStr = "private, no-cache, must-revalidate" Response.ExpiresAbsolute = #2000-01-01# Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", pStr %> <%Response.Buffer = False%>
الرئيسية | التسجيل للدخول | بحث بسيط | بحث متقدم | روابط | مطبق المكتبة | إهداءات للمنظمة |
&Sort_By=<%=Sort_By%>&cat_id=<%=cat_id%>" آ &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>"ا &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>"أ &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ب &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ت &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ث &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ج &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ح &Sort_By=<%=Sort_By%>&cat_id=<%=cat_id%>" خ &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" د &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ذ &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ر &Sort_By=<%=Sort_By%>&cat_id=<%=cat_id%>" ز &cat_id<%=cat_id%>&Sort_By=<%=Sort_By%>" س &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ش &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ص &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ض &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ط &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ظ &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ع &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" غ &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ف &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ق &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ك &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ل &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" م &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ن &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" هـ &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" و &cat_id=<%=cat_id%>&Sort_By=<%=Sort_By%>" ي
<%'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ALPHABETS LETTERS FOR BROWSING^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^%> <%iRecordCount = rs.RecordCount iPageCount = rs.PageCount %>
<%'(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((%> <%If iRecordCount = 0 Then ' Display no records error. %> لا توجد سجلات مطابقة للاستعلام المدخل.
رجـــوع <% Else ' Move to the page we need to show. rs.AbsolutePage = iPageCurrent ' Show a quick status line letting people know where they are: %> الصفحة رقم <%= iPageCurrent %> من <%= iPageCount %>:
<% ' Display a table of the data in the recordset. We loop through the ' recordset displaying the fields from the table and using MoveNext ' to increment to the next record. We stop when we reach EOF. ' For fun I'm combining some fields and showwing you can do more then ' just spit out the data in the form it is in in the table. %> <% ' Now we need to show our navigation links: ' Show "previous" and "next" page links which pass the page to ' view our search parameter. You could also use form buttons ' but I find this looks better. ' You can also show page numbers: maxpages=rs.PageCount ''response.write "rs.PageCount===" & rs.PageCount if ipagecount<=maxpages then For I = 1 To iPageCount If I = iPageCurrent Then %> <%=I%> <% Else %>&cat_id=<%=cat_id%>" dir=rtl ><%=I%> <%''response.write "I===" & I End If Next 'I end if end if %>
<%'(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((%> <%if 1=1 then%> <%if not(rs.bof and rs.eof) then%> <% ' Get a count of the number of records and pages ' for use in building the header and footer text. iRecordCount = rs.RecordCount iPageCount = rs.PageCount%> <%rs.movefirst%> <% 'j=1 if (ipagecurrent=1) then j=0 k=0 rs.move j do while ((not rs.eof) and (j<(k+page_size))) 'do while j<(k+page_size) %> <%if 1=2 then%> <%if user_Auth(Session("userid"))="true" then%>رقم التصنيف | <%=rs.fields("CLASS_MARK")%> | |||
العنوان | <%=rs.fields("Doc_Title_AM")%> | |||
المؤلف | <%=rs.fields("Doc_Personal_Author")%> | |||
المؤلف هيئة | <%=rs.fields("Source_Cor_Author")%> | |||
بيانات النشر | <%=rs.fields("Publisher_Place")%><%="-"%><%=rs.fields("Publisher")%><%=" - "%><%=rs.fields("Publisher_Date")%><%=" - "%><%=rs.fields("Publisher_country")%> | |||
الطبعة | <%= rs.fields("Version")%> | |||
الصفحات | <%=rs.fields("Doc_Collation")%> | |||
لغة الفهرس | <%sql_lang_index=sql_lang_index & " and id=" & rs.fields("Lang_of_index") %> <%rs_lang_index.open sql_lang_index,conn,1%><%=rs_lang_index.fields(1)%><%'=sql_lang_index%> | <%rs_lang_index.close%>|||
لغة النص | <%sql_lang_text=sql_lang_text & " and id=" & rs.fields("Lang_Of_text") %> <%rs_lang_text.open sql_lang_text,conn,1%><%=rs_lang_text.fields(1)%><%'=sql_lang_text%> | <%rs_lang_text.close%>|||
كلمات مفتاحية عربي | <%=rs.fields("Descriptors_Ar")%> | |||
كلمات مفتاحية إنجليزي | <%= rs.fields("Descriptors_En")%> | |||
تصنيف أقريس الرئيسي | <%sql_Agris_Main=sql_Agris_Main & " and TBL_Agris_Categories_List.categoryid='" & rs.fields("Agris_Sub_Cat_Abrev") & "'" %> <%rs_Agris_Main.open sql_Agris_Main,conn,1%> <%'response.write "sql_Agris_Main" & sql_Agris_Main %> <%if not(rs_Agris_Main.Bof and rs_Agris_Main.Eof) then%><%=rs_Agris_Main.fields("categoryid")%> | <%else%><%end if%> <%rs_Agris_Main.close%> | ||
تصنيف أقريس الثانوي | <%sql_Agris_Sec=sql_Agris_Sec & " and TBL_Agris_Categories_List.categoryid='" & rs.fields("Agris_Sub_Cat_Abrev") & "'" %> <%'response.write "sql_Agris_Sec " & sql_Agris_Sec %> <%rs_Agris_Sec.open sql_Agris_Sec,conn,1%> <%if not(rs_Agris_Sec.Bof and rs_Agris_Sec.Eof) then%><%=rs_Agris_Sec.fields("categoryname")%> | <%else%><%end if%> <%rs_Agris_Sec.close%> | ||
الملف الإلكتروني | <%=Get_F_name(rs.fields("E_File"))%>" target=_blank ><%=Get_F_name(rs.fields("E_File"))%> | |||
المستخلص | <%=rs.fields("Abstract")%> |
رقم التصنيف | <%=rs.fields("CLASS_MARK")%> | |||
العنوان | <%=rs.fields("Doc_Title_AM")%> | |||
المؤلف | <%=rs.fields("Doc_Personal_Author")%> | |||
المؤلف هيئة | <%=rs.fields("Source_Cor_Author")%> | |||
بيانات النشر | <%=rs.fields("Publisher_Place")%><%="-"%><%=rs.fields("Publisher")%><%=" - "%><%=rs.fields("Publisher_Date")%><%=" - "%><%=rs.fields("Publisher_country")%> | |||
الطبعة | <%= rs.fields("Version")%> | |||
الصفحات | <%=rs.fields("Doc_Collation")%> | |||
لغة الفهرس | <%sql_lang_index=sql_lang_index & " and id=" & rs.fields("Lang_of_index") %> <%rs_lang_index.open sql_lang_index,conn,1%><%=rs_lang_index.fields(1)%><%'=sql_lang_index%> | <%rs_lang_index.close%>|||
لغة النص | <%sql_lang_text=sql_lang_text & " and id=" & rs.fields("Lang_Of_text") %> <%rs_lang_text.open sql_lang_text,conn,1%><%=rs_lang_text.fields(1)%><%'=sql_lang_text%> | <%rs_lang_text.close%>|||
كلمات مفتاحية عربي | <%=rs.fields("Descriptors_Ar")%> | |||
كلمات مفتاحية إنجليزي | <%= rs.fields("Descriptors_En")%> | |||
تصنيف أقريس الرئيسي | <%sql_Agris_Main=sql_Agris_Main & " and TBL_Agris_Categories_List.categoryid='" & rs.fields("Agris_Sub_Cat_Abrev") & "'" %> <%rs_Agris_Main.open sql_Agris_Main,conn,1%> <%'response.write "sql_Agris_Main" & sql_Agris_Main %> <%if not(rs_Agris_Main.Bof and rs_Agris_Main.Eof) then%><%=rs_Agris_Main.fields("categoryid")%> | <%else%><%end if%> <%rs_Agris_Main.close%> | ||
تصنيف أقريس الثانوي | <%sql_Agris_Sec=sql_Agris_Sec & " and TBL_Agris_Categories_List.categoryid='" & rs.fields("Agris_Sub_Cat_Abrev") & "'" %> <%'response.write "sql_Agris_Sec " & sql_Agris_Sec %> <%rs_Agris_Sec.open sql_Agris_Sec,conn,1%> <%if not(rs_Agris_Sec.Bof and rs_Agris_Sec.Eof) then%><%=rs_Agris_Sec.fields("categoryname")%> | <%else%><%end if%> <%rs_Agris_Sec.close%> | ||
الملف الإلكتروني | <%=Get_F_name(rs.fields("E_File"))%>" target=_blank ><%=Get_F_name(rs.fields("E_File"))%> | |||
المستخلص | <%=rs.fields("Abstract")%> |