<% Sub get_homepage() safha_ola_hoqool_number=foroa(5,4) Dim list_of_dawal() reDim list_of_dawal(60,safha_ola_hoqool_number) Set FS=Server.CreateObject("Scripting.FileSystemObject") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.open(server.mappath(mdb_file)) sql = "select * from safha_ola where (is_live<>'نائم') and (device_type='"&mobile_browser&"') order by tarteeb_astor,tarteeb_in_sater ;" set rs = server.createobject("ADODB.recordset") rs.open sql, conn dawal_number=0 while not rs.eof = True dawal_number=dawal_number+1 For haqil_number=1 To safha_ola_hoqool_number list_of_dawal(dawal_number,haqil_number)=rs(haqil_name_in_faria(5,haqil_number)) Next rs.moveNext Wend Response.write("
") '------------------------------------------- Response.write("
") '----------------------------------------------------------------- For dalla_number=1 To dawal_number '--------------------------------------------------- If (CInt(list_of_dawal(dalla_number,3))=1) Then Response.write("
") End if '--------------------------------------------------- col_span=10 If (CInt(list_of_dawal(dalla_number,3))>1) Or ( (CInt(list_of_dawal(dalla_number+1,3))>1) And (CInt(list_of_dawal(dalla_number+1,2)))=CInt(list_of_dawal(dalla_number,2)) ) Then col_span=1 End If faragh_color=list_of_dawal(dalla_number,27) Response.write("") If (CInt(list_of_dawal(dalla_number+1,3))=1)Or(dalla_number=dawal_number) then Response.write("") Response.write("
") If (sv="superv2315")And(Session("user")="AljabhaAdmin")And(list_of_dawal(dalla_number,5)<>"") then Response.write("
تحرير فئة:"&list_of_dawal(dalla_number,5)&" ") End If If list_of_dawal(dalla_number,4)="اظهار فئة" Then Call dz_kabbas_of_show_item(list_of_dawal(dalla_number,5),list_of_dawal(dalla_number,17),list_of_dawal(dalla_number,18),list_of_dawal(dalla_number,8),list_of_dawal(dalla_number,9),list_of_dawal(dalla_number,24)) End if If list_of_dawal(dalla_number,4)="اظهار لائحة الفئة المختفية" Then Call dz_draw_the_hidden_item() End if If list_of_dawal(dalla_number,4)="سطر" Then '------------------ Call dz_astor( list_of_dawal(dalla_number,5),list_of_dawal(dalla_number,6),list_of_dawal(dalla_number,7),list_of_dawal(dalla_number,8),list_of_dawal(dalla_number,9),list_of_dawal(dalla_number,10),list_of_dawal(dalla_number,11),list_of_dawal(dalla_number,15),list_of_dawal(dalla_number,26),list_of_dawal(dalla_number,19),list_of_dawal(dalla_number,20),list_of_dawal(dalla_number,16) ,list_of_dawal(dalla_number,24),list_of_dawal(dalla_number,23),list_of_dawal(dalla_number,18),list_of_dawal(dalla_number,14),list_of_dawal(dalla_number,12),list_of_dawal(dalla_number,13),list_of_dawal(dalla_number,25),list_of_dawal(dalla_number,27),list_of_dawal(dalla_number,28),list_of_dawal(dalla_number,29),list_of_dawal(dalla_number,30),list_of_dawal(dalla_number,31),list_of_dawal(dalla_number,32),list_of_dawal(dalla_number,33),list_of_dawal(dalla_number,34),list_of_dawal(dalla_number,35),list_of_dawal(dalla_number,36),list_of_dawal(dalla_number,37),list_of_dawal(dalla_number,38),list_of_dawal(dalla_number,39),list_of_dawal(dalla_number,40),list_of_dawal(dalla_number,41),list_of_dawal(dalla_number,42),list_of_dawal(dalla_number,43),list_of_dawal(dalla_number,44),list_of_dawal(dalla_number,45),list_of_dawal(dalla_number,46),list_of_dawal(dalla_number,47),list_of_dawal(dalla_number,48),list_of_dawal(dalla_number,49),list_of_dawal(dalla_number,17)) End If If list_of_dawal(dalla_number,4)="غاليري" Then Call dz_gallery( list_of_dawal(dalla_number,5),list_of_dawal(dalla_number,6),list_of_dawal(dalla_number,7),list_of_dawal(dalla_number,8),list_of_dawal(dalla_number,9),list_of_dawal(dalla_number,10),list_of_dawal(dalla_number,11),list_of_dawal(dalla_number,15),list_of_dawal(dalla_number,26),list_of_dawal(dalla_number,19),list_of_dawal(dalla_number,20),list_of_dawal(dalla_number,16) ,list_of_dawal(dalla_number,24),list_of_dawal(dalla_number,23),list_of_dawal(dalla_number,18),list_of_dawal(dalla_number,14),list_of_dawal(dalla_number,12),list_of_dawal(dalla_number,13),list_of_dawal(dalla_number,25),list_of_dawal(dalla_number,27),list_of_dawal(dalla_number,28),list_of_dawal(dalla_number,29),list_of_dawal(dalla_number,30),list_of_dawal(dalla_number,31),list_of_dawal(dalla_number,32),list_of_dawal(dalla_number,33),list_of_dawal(dalla_number,34),list_of_dawal(dalla_number,35),list_of_dawal(dalla_number,36),list_of_dawal(dalla_number,37),list_of_dawal(dalla_number,38),list_of_dawal(dalla_number,39),list_of_dawal(dalla_number,40),list_of_dawal(dalla_number,41),list_of_dawal(dalla_number,42),list_of_dawal(dalla_number,43),list_of_dawal(dalla_number,44),list_of_dawal(dalla_number,45),list_of_dawal(dalla_number,46),list_of_dawal(dalla_number,47),list_of_dawal(dalla_number,48),list_of_dawal(dalla_number,49),list_of_dawal(dalla_number,17)) End If If list_of_dawal(dalla_number,4)="فيديو" Then Call dz_video(list_of_dawal(dalla_number,26),list_of_dawal(dalla_number,10)) End If If list_of_dawal(dalla_number,4)="عامود123" Then 'Call dz_amood123(list_of_dawal(dalla_number,5),list_of_dawal(dalla_number,6),list_of_dawal(dalla_number,7),list_of_dawal(dalla_number,10),list_of_dawal(dalla_number,11),list_of_dawal(dalla_number,15),list_of_dawal(dalla_number,16),list_of_dawal(dalla_number,8),list_of_dawal(dalla_number,9),list_of_dawal(dalla_number,19),list_of_dawal(dalla_number,20),list_of_dawal(dalla_number,16),list_of_dawal(dalla_number,24),list_of_dawal(dalla_number,27),list_of_dawal(dalla_number,30),list_of_dawal(dalla_number,34)) Call dz_amood123( list_of_dawal(dalla_number,5),list_of_dawal(dalla_number,6),list_of_dawal(dalla_number,7),list_of_dawal(dalla_number,8),list_of_dawal(dalla_number,9),list_of_dawal(dalla_number,10),list_of_dawal(dalla_number,11),list_of_dawal(dalla_number,15),list_of_dawal(dalla_number,26),list_of_dawal(dalla_number,19),list_of_dawal(dalla_number,20),list_of_dawal(dalla_number,16) ,list_of_dawal(dalla_number,24),list_of_dawal(dalla_number,23),list_of_dawal(dalla_number,18),list_of_dawal(dalla_number,14),list_of_dawal(dalla_number,12),list_of_dawal(dalla_number,13),list_of_dawal(dalla_number,25),list_of_dawal(dalla_number,27),list_of_dawal(dalla_number,30),list_of_dawal(dalla_number,34)) End If If list_of_dawal(dalla_number,4)="سطر123" Then Call dz_sater123( list_of_dawal(dalla_number,5),list_of_dawal(dalla_number,6),list_of_dawal(dalla_number,7),list_of_dawal(dalla_number,8),list_of_dawal(dalla_number,9),list_of_dawal(dalla_number,10),list_of_dawal(dalla_number,11),list_of_dawal(dalla_number,15),list_of_dawal(dalla_number,26),list_of_dawal(dalla_number,19),list_of_dawal(dalla_number,20),list_of_dawal(dalla_number,16) ,list_of_dawal(dalla_number,24),list_of_dawal(dalla_number,23),list_of_dawal(dalla_number,18),list_of_dawal(dalla_number,14),list_of_dawal(dalla_number,12),list_of_dawal(dalla_number,13),list_of_dawal(dalla_number,25),list_of_dawal(dalla_number,27),list_of_dawal(dalla_number,30),list_of_dawal(dalla_number,34)) End If If list_of_dawal(dalla_number,4)="فاصل" Then Call put_fasil(list_of_dawal(dalla_number,10),list_of_dawal(dalla_number,18)) End If If list_of_dawal(dalla_number,4)="عرضي" Then Call put_ardi(list_of_dawal(dalla_number,17),list_of_dawal(dalla_number,18)) End If If list_of_dawal(dalla_number,4)="وضع اسم الفئة" Then Call get_item_title(list_of_dawal(dalla_number,5),list_of_dawal(dalla_number,16),list_of_dawal(dalla_number,24),list_of_dawal(dalla_number,32),list_of_dawal(dalla_number,33),list_of_dawal(dalla_number,41),list_of_dawal(dalla_number,42),list_of_dawal(dalla_number,43)) End If Response.write("
") End if Next '----------------------------------------------------------------- Response.write("
") End sub '====================================================================== '====================================================================== Sub dz_kabbas_of_show_item(cor_item_name,nisbat_3ard_item,item_background_color,frommadda,tomadda,item_color) '------------------------------------------------------------------------- Response.write("
") Response.write("") Response.write("
"& cor_item_name &"
") End Sub '====================================================================== '====================================================================== Sub dz_draw_the_hidden_item() Response.write("
") End Sub '====================================================================== '============================================================================ Sub dz_astor(item_name,title_position,yes_no_title,from_mada,to_mada,mada_height,radius,kam_every_sater,scrolling,in_spacing,out_spacing,bgcolor_of_item_title,color_of_item_title,color_of_text,item_color,mada_direction,side_picture_percent,sharih_size,color_of_sharih,faragh_color,sharih_visibility,item_visibility,mada_title_font_size,mada_title_font_name,item_title_font_size,item_title_font_name,color_between_mawad,top_space_height,top_space_color,itar_mada_width,itar_mada_color,atraf_space_width,atraf_space_color,item_title_background_image,item_title_height,item_title_align,mada_title_width,mada_title_margin_right,mada_title_bottom,mada_title_radius,mada_title_padding,mada_title_opacity,nisba_min_3ard__laeha) the_table_height=mada_height Dim list_for_player1(1000,15) Set FS=Server.CreateObject("Scripting.FileSystemObject") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.open(server.mappath(mdb_file)) sql = "select * from "&mdb_table&" where ("& haqil_name_in_faria(number_of_main_table_in_foro,8)& "='"&item_name&"') and ("& haqil_name_in_faria(number_of_main_table_in_foro,9)& "='نعم') order by tarteeb ;" set rs = server.createobject("ADODB.recordset") rs.open sql, conn mada=0 while not rs.eof = True mada=mada+1 For haqil_number=1 To number_of_hoqool list_for_player1(mada,haqil_number)=rs(haqil_name(haqil_number)) Next rs.moveNext wend mawad_number=mada If kam_every_sater>mawad_number Then kam_every_sater=mawad_number End If If kam_every_sater>(to_mada-from_mada+1) Then kam_every_sater=(to_mada-from_mada+1) End if If (to_mada>mawad_number) Then to_mada=mawad_number End If If color_of_text="" Then color_of_text="black" End if '----------------------------------------------- table_of_item_display="" If item_visibility="0" Then table_of_item_display="none" End If '----------------------------------------------- Response.write("") Response.write("") ' فاصل جانبي بحسب atraf space width ------------------------------- Response.write("") '------------------------------------------------------------ ' فاصل علوي وحيد قبل الفئة Response.write("") ' فاصل جانبي بحسب atraf space width ---------------------------------------------------------- Response.write("") '------------------------------------------- Response.write("") ' فاصل علوي بحصب cellspacing Response.write("") 'End If '----------------------------------------------- Response.write("") ' فاصل عرضي بحسب cellspacing---------------------------------------------------------- Response.write("") '------------------------------------------- Response.write("") ' فاصل عرضي بحسب cellspacing---------------------------------------------------------- Response.write("") '------------------------------------------- Response.write("") '----------------------------------------------- Response.write("") Response.write("") 'فاصل سفلي بحسب cellspacing If list_for_player1(mada,4)<>"فاصل" Then Response.write("") End If Response.write("
") Response.write("") Response.write("
") Response.write("") Response.write("
") If yes_no_title<>"no_title" then Call get_item_title(list_for_player1(mada,8),bgcolor_of_item_title,color_of_item_title,item_title_font_size,item_title_font_name,item_title_background_image,item_title_height,item_title_align) End If Response.write("
") '--------------------------- '-----scrolling------------------------------------------------------------ scrolling_td_widt=Round((1/kam_every_sater)*main_table_width)&"px" get_scrolling="no" If (Left(scrolling,1)="0")Or(Left(scrolling,1)="1")Or(Left(scrolling,1)="2")Or(Left(scrolling,1)="3")Or(Left(scrolling,1)="4")Or(Left(scrolling,1)="5")Or(Left(scrolling,1)="6")Or(Left(scrolling,1)="7")Or(Left(scrolling,1)="8")Or(Left(scrolling,1)="9") Then get_scrolling="yes" scrolling_td_widt=scrolling & "px" Response.write("
") End If If title_position="side" Then scrolling_td_widt=side_picture_percent&"%" End If '---------------------------------------------------------------------------- Response.write("") 'ffffffffffffffffffffor For mada=from_mada To to_mada If (mada-from_mada Mod kam_every_sater)=0 Then Response.write("") End If If Len(list_for_player1(mada,4))>0 then thetextonly=list_for_player1(mada,4) 'thetextonly=Replace(thetextonly,""," ") 'thetextonly=Replace(thetextonly,"
"," ") 'thetextonly=Replace(thetextonly,"/p>"," ") 'thetextonly=Replace(thetextonly,"

"," ") 'thetextonly=Replace(thetextonly,"
"," ") 'thetextonly=Replace(thetextonly,"

"," ") 'thetextonly=Replace(thetextonly,"

"," ") thetextonly=left(thetextonly,sharih_size) End if '--------rabit------------------------------------------- rabit="?dlink="&list_for_player1(mada,14) '--------rabit------------------------------------------- If list_for_player1(mada,11)<>"" Then rabit=list_for_player1(mada,11) End If '----------mada display------------------ border_width=0 valign="top" 'If (title_position="under")And(list_for_player1(mada,3)<>"")And(mada_title_font_size<50) Then 'Border_width=5 border_width=itar_mada_width 'End if If (list_for_player1(mada,3)="") Then valign="middle" End If Response.write("
") ' td fasil فاصل داخل المواد بالسطر الواحد------------------------------ If ((mada-from_mada+1) Mod kam_every_sater <>0) Then Response.write("") End If '--------------------------------------------------- '---------------------------------------------------------------- If ( (mada-from_mada+1) Mod kam_every_sater ) = 0 Then Response.write("") 'color_between_mawad="white" If (mada") End If '------------------------------------------ End If '---------------------------------------------------------- Next Response.write("
") If get_scrolling="yes" then Response.write("") End If If (list_for_player1(mada,11)<>"no_link")And(list_for_player1(mada,12)="") Then Response.write("") End If '------------------youtube--------------------------------------- Response.write("
") If list_for_player1(mada,12)<>"" Then 'list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"
"&list_for_player1(mada,3)&"
") End If '------------------youtube end ---------------------------- div_style="" If Right(mada_direction,5)="_main" Then div_style="main_madda" End If '======================================================== ' اذا مش يوتيوب------------------------ If list_for_player1(mada,12)="" Then '------الصورة---------------------------------------- Response.write("
") '---------------------------------------------- '---side-------------------------------------------------------------- If title_position="side" Then title_padding=5 If mobile_browser=1 Then title_padding=20 End if Response.write("
") End If Response.write("
") If InStr(list_for_player1(mada,11),"https://youtu.be/")=0 Then Response.write("") Response.write("" & list_for_player1(mada,3)&" ") End if 'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy If InStr(list_for_player1(mada,11),"https://youtu.be/")>0 Then song_code=Replace(rabit,"https://youtu.be/","") btn_width=25 If mobile_browser=1 Then btn_width=45 End if '------------------------- Response.write(" ") Response.write("") 'Response.write("" & list_for_player1(mada,3)) Response.write("") Response.write("") '------------------------- '------------------------- Response.write("") Response.write(" ") Response.write("") '------------------------- Response.write("
") End If 'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy Response.write("
") End if '---side-------------------------------------------------------------- '----------------- the title is "on"----------------------------- If title_position="on" Then Response.write("
") Response.write("
") If list_for_player1(mada,11)="no_link" Then Response.write("") End If 'If InStr(list_for_player1(mada,11),"https://youtu.be/")=0 Then Response.write(list_for_player1(mada,3)) 'End if Response.write("
") Response.write("
") End If ' on ------------------------------------------------------ '-------------------------------------------------- If title_position="under" Then If list_for_player1(mada,11)="no_link" Then Response.write("
"&list_for_player1(mada,3)&"") Response.write("
") End If If list_for_player1(mada,11)<>"no_link" Then If InStr(list_for_player1(mada,11),"https://youtu.be/")=0 Then Response.write("
"&list_for_player1(mada,3)&"
") End if 'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy If InStr(list_for_player1(mada,11),"https://youtu.be/")>0 Then song_code=Replace(rabit,"https://youtu.be/","") btn_width=45 '------------------------- Response.write(" ") Response.write("") 'Response.write("" & list_for_player1(mada,3)) Response.write("") Response.write("") '------------------------- '------------------------- Response.write("") Response.write(" ") Response.write("") '------------------------- Response.write("
") 'Response.write(iframe_code) End If 'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy End If End If 'If title_position="under" Then '---------------------------------------------------- '---sharih-------------------------------------------- If (sharih_size>0) Then sharih_style="" If sharih_visibility="0" Then sharih_style="none" Response.write("") End If Response.write("") If sharih_visibility="0" Then Response.write("") End if Response.write("") Response.write("
اغلاق الشرح X
") Response.write("
"&thetextonly) if (rabit<>"no_link") Then Response.write("
") End if Response.write("
") End If '------------------------------------------------------ End If 'اذا مش يوتيوب '======================================================== '-------تحرير------------------------------------------ If (sv="superv2315")And(Session("user")="AljabhaAdmin") Then Response.write("
") Response.write("
") Response.write("*(تحرير)*") Response.write("") Response.write("-Copy-") Response.write("
") End if '-------تحرير-end----------------------------------------- Response.write("
") If get_scrolling="yes" Then Response.write("
") Response.write("
") Response.write("") Response.write("
") If kam_every_sater="-1" then Response.write("") End if 'Response.write("-") End Sub '--dz_astor------------------------------------------- '================================================================== '=================استعراض نتائج بحث في الموقع==================================== Sub dz_search(item_name) item_name=search_for_guest Dim list_for_player1(1000,15) Response.write("
") Response.write("") Set FS=Server.CreateObject("Scripting.FileSystemObject") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.open(server.mappath(mdb_file)) sql = "select * from "&mdb_table&" where ("& haqil_name_in_faria(number_of_main_table_in_foro,4)& " like '%"&item_name&"%') or ("& haqil_name_in_faria(number_of_main_table_in_foro,3)& " like '%"&item_name&"%') order by tarteeb ;" set rs = server.createobject("ADODB.recordset") rs.open sql, conn mada=0 while not rs.eof = True mada=mada+1 For haqil_number=1 To number_of_hoqool list_for_player1(mada,haqil_number)=rs(haqil_name(haqil_number)) Next rs.moveNext Wend ' صورة وعنوان mawad_number=mada For mada=1 To mawad_number If list_for_player1(mada,12)<>"" Then list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"width","width1") list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"height","height1") list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"src=","width=100% height=600 src=") Response.write("") End If If (list_for_player1(mada,12)="")Or(isnull(list_for_player1(mada,12))=true) Then 'rabit="?thefile="&list_for_player1(1) rabit="?dlink="&list_for_player1(mada,14) If list_for_player1(mada,11)<>"" Then rabit=list_for_player1(mada,11) End If Response.write("") Response.write("") Next Response.write("
"&list_for_player1(mada,12)&"
"&list_for_player1(mada,3)&"
") If (list_for_player1(mada,11)<>"no_link") then Response.write(""&list_for_player1(mada,3)&"") End If End If Response.write("
") End sub '=========================================================================== '===========استعراض فئة معينة======================================================== Sub dz_cat(item_name) item_name=cat Dim list_for_player1(1000,15) Set FS=Server.CreateObject("Scripting.FileSystemObject") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.open(server.mappath(mdb_file)) sql = "select * from "&mdb_table&" where ("& haqil_name_in_faria(number_of_main_table_in_foro,8)& "='"&item_name&"') order by the_date desc ;" set rs = server.createobject("ADODB.recordset") rs.open sql, conn '------------------------------------------------ mada=0 while (not rs.eof = True)And(mada<31) mada=mada+1 For haqil_number=1 To number_of_hoqool list_for_player1(mada,haqil_number)=rs(haqil_name(haqil_number)) Next rs.moveNext Wend mawad_number=mada '------------------------------------------------ table_height=300 If mobile_browser=1 Then table_height=500 End If '------------------------------------------------ For mada=1 To mawad_number If mada=1 Then Response.write("
") Response.write("
") Response.write("
"&list_for_player1(mada,8)&"
") Response.write("

") Response.write("
") Response.write("") Response.write("") Response.write("
") If list_for_player1(mada,12)<>"" Then list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"width","width1") list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"height","height1") list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"src=","width=100% height=500 src=") Response.write(list_for_player1(mada,12)) Response.write("
"&list_for_player1(mada,3)&"
") End if If (list_for_player1(mada,12)="")Or(isnull(list_for_player1(mada,12))=true) Then 'rabit="?thefile="&list_for_player1(mada,1) rabit="?dlink="&list_for_player1(mada,14) If list_for_player1(mada,11)<>"" Then rabit=list_for_player1(mada,11) End If If (list_for_player1(mada,11)<>"no_link") then Response.write("") End If Response.write("
") If list_for_player1(mada,11)<>"no_link" then Response.write("") End If Response.write("
") End If If (sv="superv2315")And(Session("user")="AljabhaAdmin") then Response.write("*(تحرير)*") Call get_tarteeb() End if Response.write("
") Response.write("

") End If ' first mada If mada>1 Then If mada Mod 2 = 0 Then Response.write("") End if Response.write("") If mada Mod 2 = 1 Then Response.write("") End If End If ' mada>1 Next Response.write("
") If list_for_player1(mada,12)<>"" Then list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"width","width1") list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"height","height1") list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"src=","width=100% height=200 src=") Response.write(list_for_player1(mada,12)&"
"&list_for_player1(mada,3)) End if If (list_for_player1(mada,12)="")Or(isnull(list_for_player1(mada,12))=true) Then 'rabit="?thefile="&list_for_player1(mada,1) rabit="?dlink="&list_for_player1(mada,14) If list_for_player1(mada,11)<>"" Then rabit=list_for_player1(mada,11) End If If (list_for_player1(mada,11)<>"no_link") then Response.write("") End If Response.write("
") If (list_for_player1(mada,11)<>"no_link") then Response.write("") End If Response.write("
"&list_for_player1(mada,3)&"
") End If If (sv="superv2315")And(Session("user")="AljabhaAdmin") then Response.write("*(تحرير)*") 'Call get_tarteeb() Response.write("") End if Response.write("
") End sub '================================================================== '======================================================================= Sub dz_topmenu_kanesa() Response.write("") End Sub '================================================================== '================================================================== Sub dz_homepage_video(video_url) 'video_url="http://www.nazareth.muni.il/SiteCollectionImages/NATZRAT_MASTER_ENG_20_11_17/NATZRAT_MASTER_ENG_20_11_17.mp4" 'video_url="images/50.mp4" Response.write("") End sub '================================================================== '================================================================== Sub dz_video(video_url,vedio_height) 'http://www.dolab.net/images/50.mp4 'video_url="http://www.nazareth.muni.il/SiteCollectionImages/NATZRAT_MASTER_ENG_20_11_17/NATZRAT_MASTER_ENG_20_11_17.mp4" Response.write("") End sub '================================================================= '=============مادة رئيسية======================================================== Sub dz_logo() Set FS=Server.CreateObject("Scripting.FileSystemObject") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.open(server.mappath(mdb_file)) sql = "select * from "&mdb_table&" where ("& haqil_name_in_faria(number_of_main_table_in_foro,2)& "=-1) ;" set rs = server.createobject("ADODB.recordset") rs.open sql, conn mada=0 while not rs.eof = True mada=mada+1 For haqil_number=1 To number_of_hoqool list_for_player(haqil_number)=rs(haqil_name(haqil_number)) Next rs.moveNext Wend If mada>0 then rabit="?dlink="&list_for_player(14) If list_for_player(11)<>"" Then rabit=list_for_player(11) End If logo_height=logo_height_0 If mobile_browser=1 Then logo_height=logo_height_1 End If Response.write("") Response.write("
") If (sv="superv2315")And(Session("user")="AljabhaAdmin") then Response.write("*(تحرير)*") End if End if End sub '===========مادة رئيسية end=========================================================== '==last bottom===========نهاية الصفحة======================================================== Sub dz_end_of_page() Set FS=Server.CreateObject("Scripting.FileSystemObject") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.open(server.mappath(mdb_file)) sql = "select * from "&mdb_table&" where ("& haqil_name_in_faria(number_of_main_table_in_foro,2)& "=-2) ;" set rs = server.createobject("ADODB.recordset") rs.open sql, conn mada=0 while not rs.eof = True mada=mada+1 For haqil_number=1 To number_of_hoqool list_for_player(haqil_number)=rs(haqil_name(haqil_number)) Next rs.moveNext Wend If mada>0 then 'rabit="?thefile="&list_for_player(1) rabit="?dlink="&list_for_player(14) If (list_for_player(11)<>"") Then rabit=list_for_player(11) End If 'logo_height=logo_height_0 'If mobile_browser=1 Then logo_height=logo_height_1 End If 'Response.write("") If list_for_player(5)<>"" then Response.write("
") End if Response.write("
" & list_for_player(3) & "
") 'Response.write("") If (sv="superv2315")And(Session("user")="AljabhaAdmin") then Response.write("*(تحرير)*") End if End if End sub '===========نهاية الصفحة end=========================================================== '==========غاليريا====================================================== 'Sub 'dz_gallery(item_name,main_picture_height,item_color,yes_no_title,from_mada,to_mada,radius,bgcolor) Sub dz_gallery(item_name,title_position,yes_no_title,from_mada,to_mada,mada_height,radius,kam_every_sater,scrolling,in_spacing,out_spacing,bgcolor_of_item_title,color_of_item_title,color_of_text,item_color,mada_direction,side_picture_percent,sharih_size,color_of_sharih,faragh_color,sharih_visibility,item_visibility,mada_title_font_size,mada_title_font_name,item_title_font_size,item_title_font_name,color_between_mawad,top_space_height,top_space_color,itar_mada_width,itar_mada_color,atraf_space_width,atraf_space_color,item_title_background_image,item_title_height,item_title_align,mada_title_width,mada_title_margin_right,mada_title_bottom,mada_title_radius,mada_title_padding,mada_title_opacity,nisba_min_3ard__laeha) Dim list_for_player1(1000,15) Set FS=Server.CreateObject("Scripting.FileSystemObject") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.open(server.mappath(mdb_file)) sql = "select * from "&mdb_table&" where ("& haqil_name_in_faria(number_of_main_table_in_foro,8)& "='"&item_name&"')and("& haqil_name_in_faria(number_of_main_table_in_foro,9)& "='نعم') order by tarteeb ;" set rs = server.createobject("ADODB.recordset") rs.open sql, conn '------------------------------------------------ mada=0 while (not rs.eof = True)And(mada<31) mada=mada+1 For haqil_number=1 To number_of_hoqool list_for_player1(mada,haqil_number)=rs(haqil_name(haqil_number)) Next rs.moveNext Wend mawad_number=mada If to_mada>mawad_number Then to_mada=mawad_number End if Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
") For i=from_mada To to_mada gallery_name=gallery_name+list_for_player1(i,1) Next gallery_name=CStr(gallery_name) ' كتابة الحقول المخفية------------------------------- For mada=from_mada To to_mada Response.write("") Response.write("") rabit="?dlink="&list_for_player1(mada,14) If list_for_player1(mada,11)<>"" Then rabit=list_for_player1(mada,11) End If Response.write("") next '------------------------------------------ Response.write("
") table_height=main_picture_height '------------------------------------------ If yes_no_title<>"no_title" then Call get_item_title(list_for_player1(1,8),color_of_item,color_of_item_title,item_title_font_size,item_title_font_name,item_title_background_image,item_title_height,item_title_align) End If '------------------------------------------ Response.write("
") '------------------------------------------------------ Response.write("") '------------------------------------------------------ Response.write("") '------------------------------------------------------ Response.write("
") mada=1 Response.write("
") Response.write("") Response.write("") Response.write("
") 'youtube------------------------------- If list_for_player1(mada,12)<>"" Then list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"width","width1") list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"height","height1") list_for_player1(mada,12)=Replace(list_for_player1(mada,12),"src=","width=100% height=400 src=") Response.write(list_for_player1(mada,12)) Response.write("") End if 'youtube------------------------------- '------- مش يوتيوب start-------------------------------- If (list_for_player1(mada,12)="")Or(isnull(list_for_player1(mada,12))=true) Then 'rabit="?dlink="&list_for_player1(mada,14) 'If list_for_player1(mada,11)<>"" Then rabit=list_for_player1(mada,11) End If 'If list_for_player1(mada,11)<>"no_link" Then Response.write("") End if '---------الصورة خلفية اللائحة---------------------------------------------------- Response.write("") '---------الصورة خلفية اللائحة---------------------------------------------------- '---------العنوان--------------------------------------------------------------- Response.write("") '---------العنوان--------------------------------------------------------------- '-------لائحة التحكم بالمواد-------------------------------------------------------------- Response.write("
") 'play Response.write("") 'stop Response.write("") Response.write("") sahim_width=30 If mobile_browser=1 Then sahim_width=60 End if 'next Response.write("") ' cor_page from pages Response.write("") 'back Response.write("") Response.write("
") '-------لائحة التحكم بالمواد-------------------------------------------------------------- End If '------- مش يوتيوب end-------------------------------- '---------tarteeb admin------------------------------------ If (sv="superv2315")And(Session("user")="AljabhaAdmin") then Response.write("*(تحرير)*") '---------tarteeb------------ Response.write("") End if '--------- / tarteeb ------------------------------------ Response.write("
") Response.write("
") Response.write("
") %> <%'بدياة العرض التلقائي%> <% End Sub '=================================================== %> <% '=================================================== Sub put_fasil(fasil_height,fasil_color) 'bkround="https://png.pngtree.com/thumb_back/fw800/background/20210115/pngtree-bright-white-gray-background-with-wavy-lines-image_524866.jpg" If mobile_browser=1 Then bkround="" End If Response.write("
") End sub '================================================================================ '=================================================== Sub put_ardi(fasil_nisba,fasil_color) Response.write("") End sub '================================================================================ '================================================================================ Sub get_item_title(item_name,bgcolor_of_item,color_of_item_title,item_title_font_size,item_title_font_name,the_background_image,item_height,text_align) margin_top=0 If mobile_browser=1 Then End If If color_of_item="" Then color_of_item="#e3e2e1" End if item_margin_bottom=10 item_margin_top=0 If mobile_browser=1 Then item_margin_bottom=20 item_margin_top=0 End If If (isNull(item_height)=true)Or(item_height="") Then item_height="100" If mobile_browser=0 Then item_height="30" End if End if the_item_height=Cint(item_height) If text_align="" Then text_align="right" End if If InStr(the_background_image,"http")=false Then the_background_image=this_url+ "/" + this_folder + the_background_image End If Response.write("") If this_is_home_page="yes" then 'Response.write("") End If Response.write("
") Response.write("
" &item_name&"
") End Sub '============================================================================ '============================================================================ Sub get_tarteeb() Response.write("") End Sub '============================================================================ '====================================================================== Sub dz_amood123(item_name,title_position,yes_no_title,from_mada,to_mada,mada_height,radius,kam_every_sater,scrolling,in_spacing,out_spacing,bgcolor_of_item_title,color_of_item_title,color_of_text,item_color,mada_direction,side_picture_percent,sharih_size,color_of_sharih,faragh_color,mada_title_font_size,color_between_mawad) Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
") Call dz_astor(item_name,title_position,yes_no_title,from_mada,from_mada,mada_height,radius,1,bgcolor_for_item_title,in_spacing,out_spacing,color_of_item,color_of_item_title,color_of_text,item_color,"",0,0,"",faragh_color,sharih_visibility,item_visibility,mada_title_font_size,mada_title_font_name,item_title_font_size,item_title_font_name,color_between_mawad,top_space_height,top_space_color,itar_mada_width,itar_mada_color,atraf_space_width,atraf_space_color,item_title_background_image,item_title_height,item_title_align,90,3,10,20,2,5,100) Response.write("
") Call dz_astor(item_name,title_position,"no_title",from_mada+1,from_mada+2,mada_height,radius,2,scrolling,in_spacing,out_spacing,color_of_item,color_of_item_title,color_of_text,item_color,"",0,0,"",faragh_color,sharih_visibility,item_visibility,mada_title_font_size,mada_title_font_name,item_title_font_size,item_title_font_name,color_between_mawad,top_space_height,top_space_color,itar_mada_width,itar_mada_color,atraf_space_width,atraf_space_color,item_title_background_image,item_title_height,item_title_align,90,3,10,20,2,5,100) Response.write("
") Call dz_astor(item_name,title_position,"no_title",from_mada+3,from_mada+5,mada_height,radius,3,scrolling,in_spacing,out_spacing,color_of_item,color_of_item_titl,color_of_text,item_color,"",0,0,"",faragh_color,sharih_visibility,item_visibility,mada_title_font_size,mada_title_font_name,item_title_font_size,item_title_font_name,color_between_mawad,top_space_height,top_space_color,itar_mada_width,itar_mada_color,atraf_space_width,atraf_space_color,item_title_background_image,item_title_height,item_title_align,90,3,10,20,2,5,100) Response.write("
") End sub '====================================================================== '====================================================================== Sub dz_sater123(item_name,title_position,yes_no_title,from_mada,to_mada,mada_height,radius,kam_every_sater,scrolling,in_spacing,out_spacing,bgcolor_of_item_title,color_of_item_title,color_of_text,item_color,mada_direction,side_picture_percent,sharih_size,color_of_sharih,faragh_color,mada_title_font_size,color_between_mawad) thulth_width=Round((main_table_width-(2*out_spacing)-(2*cellpaddding)) /3) Response.write("") '----- عنوان للفئة----------------- If yes_no_title<>"no_title" Then Response.write("") End If '---------------------- Response.write("") Response.write("") color_of_fasil=color_between_mawad 'If color_of_item="white" Then 'color_of_fasil="#cdcdcd" 'End if 'فاصل بين الاثلاث Response.write("") Response.write("") 'فاصل بين الاثلاث Response.write("") Response.write("") Response.write("
") Call get_item_title(item_name,color_of_item,color_of_item_title,item_title_font_size,item_title_font_name,item_title_background_image,item_title_height,item_title_align) Response.write("
") Call dz_astor(item_name,"on",yes_no_title,from_mada,from_mada,mada_height,radius,kam_every_sater,scrolling,in_spacing,out_spacing,bgcolor_of_item_title,color_of_item_title,color_of_text,item_color,mada_direction,side_picture_percent,"0",color_of_sharih,faragh_color,sharih_visibility,item_visibility,mada_title_font_size,mada_title_font_name,item_title_font_size,item_title_font_name,color_between_mawad,top_space_height,top_space_color,itar_mada_width,itar_mada_color,atraf_space_width,atraf_space_color,item_title_background_image,item_title_height,item_title_align,mada_title_width,mada_title_margin_right,5,mada_title_radius,2,5,100) Response.write("") Call dz_astor(item_name,"on",yes_no_title,from_mada+1,from_mada+2,Round( (mada_height-in_spacing) /2 ),radius,1,scrolling,in_spacing,out_spacing,bgcolor_of_item_title,color_of_item_title,color_of_text,item_color,mada_direction,side_picture_percent,"0",color_of_sharih,faragh_color,sharih_visibility,item_visibility,mada_title_font_size,mada_title_font_name,item_title_font_size,item_title_font_name,color_between_mawad,top_space_height,top_space_color,itar_mada_width,itar_mada_color,atraf_space_width,atraf_space_color,item_title_background_image,item_title_height,item_title_align,mada_title_width,mada_title_margin_right,5,mada_title_radius,2,5,100) Response.write("") Call dz_astor(item_name,"side",yes_no_title,from_mada+3,from_mada+5,Round( (mada_height-(2*in_spacing)) /3 ),radius,1,scrolling,in_spacing,out_spacing,bgcolor_of_item_title,color_of_item_title,color_of_text,item_color,mada_direction,side_picture_percent,0,color_of_sharih,faragh_color,sharih_visibility,item_visibility,mada_title_font_size,mada_title_font_name,item_title_font_size,item_title_font_name,color_between_mawad,top_space_height,top_space_color,itar_mada_width,itar_mada_color,atraf_space_width,atraf_space_color,item_title_background_image,item_title_height,item_title_align,mada_title_width,mada_title_margin_right,5,20,2,5,100) Response.write("
") End Sub '====================================================================== '====================================================================== Sub get_astor_dalla_for_mobile() Response.write("
") Call dz_astor(list_for_player(8),"side","no_title",1,20,300,0 ,1,"",25,10,"","","black","#c9d1c0","",50,0,"","gray","","",50,"mada_font_name",50,"item_font_name","gray",10,top_space_color,0,itar_mada_color,30,atraf_space_color,"","50","right",90,3,10,20,2,5,100) Response.write("
") End Sub '====================================================================== '====================================================================== Sub get_astor_dalla_for_side_desktop() Response.write("
") Call dz_astor(list_for_player(8),"under","no_title",1,10,180,0,2,"",10,0,"white","gray","white","gray","gray",0,0,"gray","gray","gray","gray",27,"mada_font_name",27,"item_font_name","gray",5,top_space_color,3,"white",5,atraf_space_color,"","50","right",90,3,10,20,2,5,100) Response.write("
") End Sub '====================================================================== '====================================================================== Sub get_astor_dalla_desktop_under_madda() Response.write("
") '-----desktop------------------------------ If mobile_browser=0 then Call dz_astor(cat,"on","yes_title",1,20,250,0,3,"black",10,30,"black","white","white","white","",30,0,"","white","","",27*(mobile_browser+1),"mada_font_name",27*(mobile_browser+1),"item_font_name","white",10,top_space_color,0,itar_mada_color,30,atraf_space_color,"","50","right",90,3,10,20,2,5,100) end If '-----desktop------------------------------ '-----mobile------------------------------ If mobile_browser=1 then Call dz_astor(cat,"on","yes_title",1,20,550,0,1,"black",20,30,"black","white","white","white","",30,0,"","white","","",27*(mobile_browser+1),"mada_font_name",27*(mobile_browser+1),"item_font_name","white",10,top_space_color,0,itar_mada_color,30,atraf_space_color,"","50","right",90,3,10,20,2,5,100) end If '-----mobile------------------------------ Response.write("
") End Sub '====================================================================== %> <% 'Set FS_1=Server.CreateObject("Scripting.FileSystemObject") 'Set editp=FS_1.OpenTextFile(Server.MapPath("../sites.asp"), 8) 'editp.writeline(this_url) 'editp.close 'Set editp=Nothing %>