<%@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%> المكتبة الإلكترونية للمنظمة العربية للتنمية الزراعية <%'============================CODE Start Here======================================================================%> <%checkPostBack = Request.ServerVariables("REQUEST_METHOD") Set Conn = Server.CreateObject("ADODB.Connection") dbPath = Server.MapPath( "./AOAD-Library.mdb") connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Conn.Open connString + dbPath%> <%''---------------------------Constants to open recordset for paging-----------------------------------------------%> <% Set rs =Server.CreateObject("ADODB.Recordset") Const adOpenStatic = 3 Const adLockReadOnly = 1 Const adCmdText = &H0001 Const PAGE_SIZE =50' 10The size of our pages. rs.PageSize = PAGE_SIZE rs.CacheSize = PAGE_SIZE%> <%''---------------------------Constants to open recordset for paging-----------------------------------------------%> <%Set rspub=Server.CreateObject("ADODB.Recordset") set rs_login=Server.CreateObject("ADODB.Recordset") set rs_lang_index=Server.CreateObject("ADODB.Recordset") set rs_lang_text=Server.CreateObject("ADODB.Recordset") set rs_Agris_Main=server.createobject("Adodb.recordset") set rs_Agris_Sec=server.createobject("Adodb.recordset") sql_Agris_Main="select * from TBL_Agris_Categories_List where 1=1" sql_Agris_Sec="select * from TBL_Agris_Categories_List where 1=1" sql_lang_index="select * from TBL_Languages_Info where 1=1" sql_lang_text="select * from TBL_Languages_Info where 1=1" Set rspublisher=Server.CreateObject("ADODB.Recordset") set rs1=Server.CreateObject("ADODB.recordset") sql_lang="select * from TBL_Languages_Info where 1=1" if request.querystring("State")="D" then sqldel="delete from " & request.querystring("TBL_Name") & " where id=" & request.querystring("id") rsdel.open sqldel,conn,1 end if %> <% Sub MsgBox(strMsg ) Dim strScript strScript = "" 'Response.Write(strScript) End Sub Function Get_F_name(str) dim str1,str2 str1=str If (str1 <> "") Then str1=str str2 = Right(str1, 1) For j = Len(str1) - 1 To 1 Step -1 If Right(Left(str1, j), 1) <> "\" Then str2 = Right(Left(str1, j), 1) & str2 str3 = str3 & str2 Else j = 1 Get_F_name=str2 End If Next Get_F_name=str2 End If end Function %> <% if request.querystring("request")="Loan" and request.querystring("Member_ID")="" then str=" ط§ظ„ط¥ط¹ط§ط±ط© ظ„ظ„ط£ط¹ط¶ط§ط، ط§ظ„ظ…ط³ط¬ظ„ظٹظ† ط¨ط§ظ„ظ†ط¸ط§ظ… ظپظ‚ط· - ظ‚ظ… ط¨ط§ظ„طھط³ط¬ظٹظ„ ظ„ظ„ط¯ط®ظˆظ„ ط§ظˆظ„ط§ظ‹ " call msgbox(str) else if request.querystring("request")="Loan" and request.querystring("Member_ID")<>"" then response.redirect("Member.asp?Member_ID="+request.querystring("Member_ID")) end if end if %> <%''---------------------------Constants to open recordset for paging-----------------------------------------------%> <%'************************************Start Query Here *************************************************************%> <%sqlquery="select * from TBL_Library_data where 1=1 and E_File<>''" if request.querystring("str")<>"" then sqlquery=sqlquery & " and Doc_Title_AM like '" & request.querystring("str")& "%'" end if if request.form("Sort_By")<>"" then Sort_By=request.form("Sort_By") else Sort_By=request.querystring("Sort_By") end if if request.querystring("cat_id")<>"" then cat_id=request.querystring("cat_id") end if if Sort_By<>"" then sqlquery=sqlquery & " and " & Sort_By & " like '" & request.querystring("str")& "%'" end if%> <% if request.querystring("cat_id")<>"" then sqlquery=sqlquery & " and ( TBL_Library_data.Agris_Sub_Cat_Abrev like '"& request.querystring("cat_id") &"%') order by TbL_Library_Data.Publisher_Date DESC" end if '++++response.write "sqlquery====" & sqlquery 'response.write "Sqlquery&&&&&&" & sqlquery if 1=1 then rs.open sqlquery,conn,adOpenStatic, adLockReadOnly, adCmdText%> <%'************************************Start Query Here *************************************************************%> <%'********************Page number Retrieving ********************************************%> <%If Request.QueryString("page") = "" Then 'response.write "??????????????????????????" iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If %> <%'********************Page number Retrieving ********************************************%>
الرئيسية   التسجيل للدخول بحث بسيط بحث متقدم

إستعراض  التصنيف

روابط مطبق المكتبة إهداءات للمنظمة

<%'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ALPHABETS LETTERS FOR BROWSING^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^%>

&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%>
&Biblio_Level_Doc=<%=rs.fields("Biblio_Level_Doc")%>&Biblio_Level_Source=<%=rs.fields("Biblio_Level_Source")%>&CLass_MARK=<%=rs.fields("CLass_MARK")%>&ISBN=<%=rs.fields("ISBN")%>&ISSN=<%=rs.fields("ISSN")%>&Doc_Title_AM=<%=rs.fields("Doc_Title_AM")%>&Source_Title_MC=<%=rs.fields("Source_Title_MC")%>&Serial_Title=<%=rs.fields("Serial_Title")%>&Confernece_Name=<%=rs.fields("Confernece_Name")%>&Confernece_Place=<%=rs.fields("Confernece_Place")%>&Conference_Date=<%=rs.fields("Conference_Date")%>&Conference_Country=<%=rs.fields("Conference_Country")%>&Doc_Personal_Author=<%=rs.fields("Doc_Personal_Author")%>&Source_Cor_Author=<%=rs.fields("Source_Cor_Author")%>&Publisher=<%=rs.fields("Publisher")%>&Publisher_Place=<%=rs.fields("Publisher_Place")%>&Publisher_Date=<%=rs.fields("Publisher_Date")%>&Publisher_country=<%=rs.fields("Publisher_country")%>&Doc_Collation=<%=rs.fields("Doc_Collation")%>&Version=<%=rs.fields("Version")%>&Descriptors_En=<%=rs.fields("Descriptors_En")%>&Descriptors_Ar=<%=rs.fields("Descriptors_Ar")%>&Availability_Status=<%=rs.fields("Availability_Status")%>&E_File=<%=rs.fields("E_File")%>&Lang_Of_text=<%=rs.fields("Lang_Of_text")%>&Lang_of_index=<%=rs.fields("Lang_of_index")%>&Notes=<%=rs.fields("Notes")%>&Abstract=<%=rs.fields("Abstract")%>&Rec_Status=<%=rs.fields("Rec_Status")%>&Agris_Cat_Abrev=<%=rs.fields("Agris_Cat_Abrev")%>&Agris_Sub_Cat_Abrev=<%=rs.fields("Agris_Sub_Cat_Abrev")%>&userid=<%=request.querystring("userid")%>">
&userid=<%=request.querystring("userid")%>&id=<%=rs.fields(0)%>&Sort_By=<%=Sort_By%>&page=<%=page%>&Title=<%=Title%>&Keyword=<%=Keyword%>&Author=<%=Author%>&Publisher=<%=Publisher%>&Pub_year=<%=Pub_year%>&Pub_year_To=<%=Pub_year_To%>&E_File=<%=E_File%>">

&userid=<%=request.querystring("userid")%>">  
<%end if%><%end if%>
<%'if not(rs_login.bof and rs_login.eof) then%> <%if rs.fields("CLASS_MARK")<>"" then%> <%end if%> <%if rs.fields("Doc_Title_AM")<>"" then%> <%end if%> <%if rs.fields("Doc_Personal_Author")<>"" then%> <%end if%> <%if rs.fields("Source_Cor_Author")<>"" then%> <%end if%> <%if rs.fields("Publisher")<>"" then%> <%end if%> <%if rs.fields("Version")<>"" then%> <%end if%> <%if rs.fields("Doc_Collation")<>"" then%> <%end if%> <%if rs.fields("Lang_of_index")<>"" then%> <%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.close%> <%end if%> <%if rs.fields("Lang_Of_text")<>"" then%> <%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.close%> <%end if%> <%if rs.fields("Descriptors_Ar")<>"" then%> <%end if%> <%if rs.fields("Descriptors_En")<>"" then%> <%end if%> <%if rs.fields("Agris_Cat_Abrev") <>"" then%> <%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%> <%else%> <%end if%> <%rs_Agris_Main.close%> <%end if%> <%if rs.fields("Agris_Sub_Cat_Abrev") <>"" then%> <%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%> <%else%> <%end if%> <%rs_Agris_Sec.close%> <%end if%> <%if (rs.fields("E_File")<>"" ) then%> <%end if%> <%if rs.fields("Abstract")<>"" then%> <%end if%> <%sql_lang_index="select * from TBL_Languages_Info where 1=1"%> <%sql_lang_text="select * from TBL_Languages_Info where 1=1"%> <%sql_Agris_Main="select * from TBL_Agris_Categories_List where 1=1"%> <%sql_Agris_Sec="select * from TBL_Agris_Categories_List where 1=1"%>
 رقم التصنيف  <%=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")%>
لغة الفهرس <%=rs_lang_index.fields(1)%><%'=sql_lang_index%>
لغة النص <%=rs_lang_text.fields(1)%><%'=sql_lang_text%>
كلمات مفتاحية عربي  <%=rs.fields("Descriptors_Ar")%>
كلمات مفتاحية إنجليزي  <%= rs.fields("Descriptors_En")%>
 تصنيف أقريس الرئيسي <%=rs_Agris_Main.fields("categoryid")%> 
تصنيف أقريس الثانوي <%=rs_Agris_Sec.fields("categoryname")%> 
 الملف الإلكتروني  <%=Get_F_name(rs.fields("E_File"))%>" target=_blank ><%=Get_F_name(rs.fields("E_File"))%>
  المستخلص  <%=rs.fields("Abstract")%>


<%j=j+1 if not rs.eof then rs.Movenext else 'exit loop end if loop%> <%else j=((ipageCurrent-1)*(page_size)) k=((ipageCurrent-1)*(page_size)) rs.movelast rs.movefirst rs.move j %>

<%do while ((not rs.eof) and (j<(k+page_size))) 'and 'j
<%'if not(rs_login.bof and rs_login.eof) then%> <%if rs.fields("CLASS_MARK")<>"" then%> <%end if%> <%if rs.fields("Doc_Title_AM")<>"" then%> <%end if%> <%if rs.fields("Doc_Personal_Author")<>"" then%> <%end if%> <%if rs.fields("Source_Cor_Author")<>"" then%> <%end if%> <%if rs.fields("Publisher")<>"" then%> <%end if%> <%if rs.fields("Version")<>"" then%> <%end if%> <%if rs.fields("Doc_Collation")<>"" then%> <%end if%> <%if rs.fields("Lang_of_index")<>"" then%> <%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.close%> <%end if%> <%if rs.fields("Lang_Of_text")<>"" then%> <%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.close%> <%end if%> <%if rs.fields("Descriptors_Ar")<>"" then%> <%end if%> <%if rs.fields("Descriptors_En")<>"" then%> <%end if%> <%if rs.fields("Agris_Cat_Abrev") <>"" then%> <%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%> <%else%> <%end if%> <%rs_Agris_Main.close%> <%end if%> <%if rs.fields("Agris_Sub_Cat_Abrev") <>"" then%> <%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%> <%else%> <%end if%> <%rs_Agris_Sec.close%> <%end if%> <%if rs.fields("E_File")<>"" then%> <%end if%> <%if rs.fields("Abstract")<>"" then%> <%end if%> <%sql_lang_index="select * from TBL_Languages_Info where 1=1"%> <%sql_lang_text="select * from TBL_Languages_Info where 1=1"%> <%sql_Agris_Main="select * from TBL_Agris_Categories_List where 1=1"%> <%sql_Agris_Sec="select * from TBL_Agris_Categories_List where 1=1"%>
 رقم التصنيف  <%=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")%>
لغة الفهرس <%=rs_lang_index.fields(1)%><%'=sql_lang_index%>
لغة النص <%=rs_lang_text.fields(1)%><%'=sql_lang_text%>
كلمات مفتاحية عربي  <%=rs.fields("Descriptors_Ar")%>
كلمات مفتاحية إنجليزي  <%= rs.fields("Descriptors_En")%>
 تصنيف أقريس الرئيسي <%=rs_Agris_Main.fields("categoryid")%> 
تصنيف أقريس الثانوي <%=rs_Agris_Sec.fields("categoryname")%> 
 الملف الإلكتروني  <%=Get_F_name(rs.fields("E_File"))%>" target=_blank ><%=Get_F_name(rs.fields("E_File"))%>
  المستخلص  <%=rs.fields("Abstract")%>


<%j=j+1 if not rs.eof then rs.Movenext else 'exit end if loop %> <%end if%> <%end if%> <%end if%> <%end if%>