إقترحاتكم و أسئلتكم

قوانين

<%set rs=conn.execute("select * from forum_config_system")%><%if rs("strProhibitNewMembers")="no" then%> <%else%> <%end if%>

قوانينن

<%set rs=conn.execute("select * from forum_config_system")forum_topic=conn.execute("select * from forum_topic where topic_id="&request("topic_id")&"") set forum_name=conn.execute("select * from forum_forum where forum_id="&forum_topic("forum_id")&"") set cat=conn.execute("select * from FORUM_CATEGORY where id_cat="&forum_name("cat_id")&"")%> <% if cat("state_cat")="close_cat" then if request.cookies("username")="" thenif cat("allow_client")="no" then response.redirect("message_mangment.asp") end if end if end if if forum_name("state_forum")="close_forum" then if request.cookies("username")="" thenif forum_name("allow_client")="no" then response.redirect("message_mangment.asp") end if end if end if %> <% Const adOpenStatic = 3Const adLockReadOnly = 1Const adUseServer = 2Const adCmdText = &H0001%><%SQL_topic="select * from forum_topic where forum_id="&forum_topic("forum_id")&" order by topic_id desc"Currenttopic=Request("topic_Page")If Currenttopic="" Or Not IsNumeric(Currenttopic) then Currenttopic=1 Else Currenttopic=CLng(Currenttopic)if Currenttopic<1 then Currenttopic=1forum_page.CursorLocation=adUseServerforum_page.PageSize =1forum_page.Open SQL_topic,conn,adOpenStatic,adLockReadOnly,adCmdText Totaltopic=forum_page.PageCount NumberOfRecords=forum_page.RecordCount if Currenttopic>Totaltopic then Currenttopic=1if not forum_page.eof thenforum_page.AbsolutePage =Currenttopicend if%> <% if forum_topic("state_topic")="close_topic" then if request.cookies("username")="" thenif forum_topic("allow_client")="no" then response.redirect("message_mangment.asp") end if end if end ifif request.cookies("username")<>"" thenset tpic_reply=conn.execute("select * from forum_members where username='"&request.cookies("username")&"'")title=tpic_reply("title_members")set allow_topic=conn.execute("select * from forum_members where username='"&request.cookies("username")&"'")if not allow_topic.eof thenif request.cookies("username")=allow_topic("admin")thenadmin=request.cookies("username")end ifend ifset allow_to=conn.execute("select * from forum_members where username='"&request.cookies("username")&"'")set voice_check=conn.execute("select * from forum_voice where voice_id="&allow_to("id_members")&"")if not voice_check.eof thenvoice_check="yes" elsevoice_check="false"end ifset allow_modration=conn.execute("select * from forum_members where username='"&request.cookies("username")&"'")set modra=conn.execute("select * from forum_modrates where mod_id="&allow_modration("id_members")&" and forum_id="&forum_name("forum_id")&"")if not modra.eof thenif modra("close_topic")="yes" thenmodration_allow="yes"elsemodration_allow="false"end ifend ifend if%><%if admin="" and voice_check="false" then if cat("state_cat")="close_cat" or forum_name("state_forum")="close_forum" or forum_topic("state_topic")="close_topic" then if request.cookies("username")<>"" then set mod_check=conn.execute("select * from forum_modrates where mod_id="&allow_topic("id_members")&" ") if not mod_check.eof then if cat("allow_modrates")="not_allow" or forum_name("allow_modrates")="not_allow" or forum_topic("allow_modrates")="not_allow" then response.redirect("message_mangment.asp") end if else set members_check=conn.execute("select * from forum_members where username='"&request.cookies("username")&"'") if not members_check.eof then if cat("allow_members")="not_allow" or forum_name("allow_members")="not_allow" or forum_topic("allow_members")="not_allow" thenresponse.redirect("message_mangment.asp")end ifend ifend ifend if end if end if %> 

<%if request("page")=1 or request("page")=""then%> <%set username=conn.execute("select * from forum_members where id_members="&forum_topic("id_members")&"") %>    <% count_vist=forum_topic("count_view")+1 total_vist="update forum_topic set count_view="&count_vist&" where topic_id="&request("topic_id")&"" conn.execute(total_vist) %> <%=rs("strForumTitle")%>> "><%=cat("cat_name")%>>"><%=forum_name("forum_name")%>><%=forum_topic("t_subject")%>  <%set poll=conn.execute("select * from poll where topic_id="&request("topic_id")&"") if not poll.eof then set select_poll=conn.execute("select * from select_poll where topic_id="&request("topic_id")&"")%>   " target="poll" onSubmit="window.open('', 'poll', 'toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=450,height=300')"> <%do while not select_poll.eof i=i+1 if i mod 2=0 then col="#dee7f7" else col="#f4f4f4" end if%> <%select_poll.movenext loop %>  <%=poll("poll_quection")%> " name="poll"><%=select_poll("select_poll")%>     <%end if%> الكاتب <% set pref=conn.execute("select max(topic_id) as topic_id from forum_topic where topic_id<"&request("topic_id")&" and forum_id="&forum_name("forum_id")&" and topic_id<>"&request("topic_id")&"") if not pref.eof then pref=pref("topic_id") end if set next_page=conn.execute("select min(topic_id) as topic_id from forum_topic where topic_id>"&request("topic_id")&" and forum_id="&forum_name("forum_id")&" and topic_id<>"&request("topic_id")&"") if not next_page.eof then next_page=next_page("topic_id") end if %> <%if request.cookies("username")<>"" then%> <% else if title<>"" then%> "> <%end if end if%> <%end if%>   الموضوع   <% if pref<>"" then %> السابق    <%End if if next_page<>"" then %> التالي    <%end if%> "> <%if forum_name("add_topic")=1 then%>"> "> <%if forum_name("reply_topic")=1 then%> "> <%else if title<>"" then%> "> <%end if end if%>  " title="عرض الملف الشخصي للعضو <%=username("username")%> " onMouseOver="(window.status=' عرض الملف الشخصي للعضو <%=username("username")%>'); return true" onMouseOut="(window.status=''); return true" ><%=username("username")%> <%if username("title_members")<>"" then title_members=username("title_members") else if username("active_topic")>=rs("topic_level6")then title_members=rs("members_level6") else if username("active_topic")>=rs("topic_level5")then title_members=rs("members_level5") else if username("active_topic")>=rs("topic_level4")then title_members=rs("members_level4") else if username("active_topic")>=rs("topic_level3")then title_members=rs("members_level3") else if username("active_topic")>=rs("topic_level2")then title_members=rs("members_level2") else if username("active_topic")<=rs("topic_level1")then title_members=rs("members_level1") else end if end if end if end if end if end if end if response.write(title_members)%> <% if username("active_topic")>=rs("topic_level6")then images="rate_5.gif" else if username("active_topic")>=rs("topic_level5")then images="rate_4.gif" else if username("active_topic")>=rs("topic_level4")then images="rate_3.gif" else if username("active_topic")>=rs("topic_level3")then images="rate_2.gif" else if username("active_topic")>=rs("topic_level2")then images="rate_1.gif" else if username("active_topic")<=rs("topic_level1")then images="rate_0.gif" else end if end if end if end if end if end if%> <%if username("url_pic")<>"" and username("url_pic")<>"http://" then%> 0 المواضيع 0 المساهمات   جزيرة القراصنة :: إقترحاتكم و أسئلتكم المواضيع المساهمات مشاهدة آخر مساهمة   نكت من طرف Admin 0 المساهمات 357 مشاهدة Admin آخر مساهمة الأحد أغسطس 05, 2007 7:06 pm  •  •  افرز آخداً بعين الإعتبار: آخر مساهمةتاريخ الإنشاءعنوان الموضوعمشاهدةالمساهمات  انتقل الى: اختر منتدى||--منتدى للتصويت|--ترحيب بأعضاء الجدد|   |--دردشة و تحدث|   |--منتدى تكنولوجيا|   |--الموبيلات والجوالات|   |--لمنتدى الكمبيوتر|   |--مواقع|   |--منتدى فتيات|   |--المطبخ والحلويات|   |--الموضة والماكياج|   |--المواهب والهوايات|   |--الهوايات ودروس التصميم|   |--الشعر والقصائدْ|   |--الروايات|   |--الصور|   |--شؤون تعليمية|   |--شؤونْـ تعليمية|   |--الدراسة والمنَاهِجْـ التعليمية|   |--شؤون إسلامية|   |--منتديات الترفيه|   |--العاب الالكترونيةْ|   |--السيَاراتْـ|   |--الفن والسينما|   |--الصوتيات والمرئِيَاتْـ|   |--الافلامْـ|   |--الاغاني الشعبية والوطنية|   |--إقترحاتكم و أسئلتكم|   |--قوانين|   |--قوانينن|   |--الرياضة|   |--كرة القدم|   |--وصلة|--نظرة على|--منتدى لتحميل ملفات|--منتدى تحميا ملفات|--منتدى بيع وشراء المواقع    |--بيع المواقع وشراء  عدد المتصفحين الحاليين للمنتدى: لا أحد المشرف Admin صلاحيات هذا المنتدى: لاتستطيع وضع مواضيع جديدة في هذا المنتدى لاتستطيع الرد على المواضيع في هذا المنتدى المفتاح  مساهمات جديدة  مساهمات جديدة [ موضوع شعبي ]  مساهمات جديدة [ موضوع مقفل]  لا مساهمات جديدة  لا مساهمات جديدة [موضوع شعبي ]  لا مساهمات جديدة [موضوع مقفل]  القراصنة  مثبت  إعلان عام الرئيسية ©phpBB | Ahlamontada.com | منتدى مجاني للدعم و المساعدة | التبليغ عن محتوى مخالف | آخر المواضيع