مساعده فى asp Message

#111 يناير 2003 في 17:20 صاحب الموضوع

انا عاوز مساعدة فى ال masseage انا اعمل عامل message بين الاعضاء حيث انه يمكن لكل عضو ارسال رساله الى عضو اخر فيتم تسجيل الرساله فى قاعدة البيانات وعند دخول العضو المرسال ليه يتم استدعاء الرسالة من قاعدة البيانات

المشكلة هى انا عاوز انا العضو يمكنه ارسال رساله لعدد من الاشخاص مش لشخص واحد ويتم اختيارهم عن طريق شيك بوكس

<% @LANGUAGE = VBScript %>

<%

  

  Dim objConn1 , objRS1 , strQ1 , strConn1, strOutput1 

  Set objConn1 = Server.CreateObject("ADODB.Connection")



  objConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Search.mdb") & ";"

  Set objRS1 = Server.CreateObject("ADODB.Recordset") 

  

  

  strQ2 = "SELECT User_Name FROM users where Title = '" & Session("node") & "' OR Title = 'Secretariat' OR MyGroup = 1  ORDER BY User_Name ASC"









  objRS1.Open strQ2 ,  objConn1 , 1, 2

  

  



  Dim objConn , objRS , strQ , strConn, strOutput 

  Set objConn = Server.CreateObject("ADODB.Connection")



  objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("users.mdb") & ";"

  Set objRS = Server.CreateObject("ADODB.Recordset") 

  

  

  strQ1 = "SELECT *  FROM internalmail "









  objRS.Open strQ1 ,  objConn , 1, 2

  If Request.form("submit") = "send" Then

  

  objRS.AddNew

  objRS("sender") = Request.QueryString("username")

  objRS("reciever") = Request.form("to")

  objRS("subject") = Request.form("subject")

  objRS("message") = Request.form("message")

  objRS("date") = Date()

  objRS.Update

  

  End If

  

  'Response.Write Request.QueryString("username")





%> 



<table width="73%" height="387" border="0" align="center"  cellpadding="0" cellspacing="0" > 

<tr> <td background="IMAGES/formtop.gif" height="43"> 

                <font size="4" color="#FFFFFF">Compose 

                  New Message</font>


              </td></tr> <tr> <td height="319" valign="top" bgcolor="#336699"> 

              

                              <table width="100%" border="0" bgcolor="#336699" >

                                <tr > 

                                  <td colspan="4"> <div align="center">
</td>

                                </tr>

                                <tr bordercolor="#FFFFCC"> 

                                  <td width="8%"> </td>

                                  <td width="27%"> <font color="#FFFFFF">From:</font>
</td>

                                  <td width="70%"> <font color="#FFFFFF"> 

                                      <font color="#0000FF"><%=session("temp")%> </font> 

                                      <input type="hidden" name="username" size="34" value="<%=session("temp")%>">

                                      </font>
</td>

                                  <td width="4%"> </td>

                                </tr>

                                <tr bordercolor="#FFFFCC"> 

                                  <td width="8%"> </td>

                                  <td width="27%"> <font color="#FFFFFF">To:</font>
</td>

                                  <td width="70%"> <select name="to">

                                      <% Do While Not objRS1.EOF%>

                                      <option value="<%Response.Write objRS1("User_Name")%>"> 

                                      <%Response.Write objRS1("User_Name")%>

                                      <%

  objRS1.MoveNext

  Loop	

  %>

                                    </select> </td>

                                  <td width="4%"> </td>

                                </tr>

                                <tr bordercolor="#FFFFCC"> 

                                  <td width="8%"> </td>

                                  <td width="27%"> <font color="#FFFFFF">Subject:</font>
</td>

                                  <td width="70%"> <input type="text" name="subject" size="34"> 

                                  </td>

                                  <td width="4%"> </td>

                                </tr>

                                <tr bordercolor="#FFFFCC"> 

                                  <td width="8%" height="171"> </td>

                                  <td width="27%" valign="top"> <font color="#FFFFFF">Message:</font>
</td>

                                  <td width="70%"> <textarea name="message" cols="40" rows="10"></textarea> 

                                  </td>

                                  <td width="4%"> </td>

                                </tr>

                                <tr bordercolor="#FFFFCC"> 

                                  <td height="44" colspan="4">




                                      <input type="image"  src="IMAGES/Send_NUntitled-1.gif" name="submit2" value="send" WIDTH="83" HEIGHT="23">

                                      <font color="#000033"></font>
</td>

                                </tr>

                              </table>

                           </div></td></tr> 

<tr> <td height="25" valign="top" >[img=IMAGES/fotttttt.gif]</td></tr> 

</table>

=====================================================================================



<% @LANGUAGE = VBScript %>

<%



  



  Dim objConn1 , objRS1 , strQ1 , strConn1, strOutput1 

  Set objConn1 = Server.CreateObject("ADODB.Connection")



  objConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("users.mdb") & ";"

  Set objRS1 = Server.CreateObject("ADODB.Recordset") 

  

  

  strQ2 = "SELECT *  FROM usernames "









  objRS1.Open strQ2 ,  objConn1 , 1, 2

  

  



  Dim objConn , objRS , strQ , strConn, strOutput 

  Set objConn = Server.CreateObject("ADODB.Connection")



  objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("users.mdb") & ";"

  Set objRS = Server.CreateObject("ADODB.Recordset") 

  

  

  strQ1 = "SELECT *  FROM internalmail "









  objRS.Open strQ1 ,  objConn , 1, 2

  

  

  objRS.AddNew

  objRS("sender") = Session("temp")

  objRS("reciever") = Request.form("to")

  objRS("subject") = Request.form("subject")

  objRS("message") = Request.form("message")

  objRS("date") = Date()

  objRS.Update

  



  

  'Response.Write Request.QueryString("username")





%>

<% 

If Session("seccheck") <> "yes" Then 

Response.Redirect("secerror.asp")

End If

%>

<html><!-- InstanceBegin template="/Templates/Template2.dwt" codeOutsideHTMLIsLocked="false" -->

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<meta name="GENERATOR" content="">

<meta name="ProgId" content="FrontPage.Editor.Document">

<!-- #BeginEditable "changetitle" --> 

<title>Template</title>

<!-- #EndEditable -->

<style>

BODY{

scrollbar-arrow-color: #FFFFFF;

scrollbar-3dlight-color: #FFFFFF;

scrollbar-highlight-color: #FFFFFF;

scrollbar-face-color: #023C9B;

scrollbar-shadow-color: #023C9B;

scrollbar-darkshadow-color: #023C9B;

scrollbar-track-color: #FFFFFF;

}

</style>

<script language="JavaScript">

<!--

<!--

function MM_reloadPage(init) { //reloads the window if Nav4 resized

  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}

  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);

// -->



function MM_swapImgRestore() { //v3.0

  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a)&&x.oSrc;i++) x.src=x.oSrc;

}

//-->

</script>

<script language="JavaScript"> 



// Source: CodeFoot.com



function blockError(){return true;}

window.onerror = blockError;

</script>

</head>

<body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">



  <table border="0" width="767" height="850" bordercolor="#003399" cellpadding="0" cellspacing="0">

    <tr align="center"> 

      <td height="75" colspan="2"> <div align="left">[img=/IMAGES/banner-logo.gif]
</td>

    </tr>

    <tr> 

      <td height="25" colspan="2"> 

        <% If Session("type")  = 1 Then%>

        <div id="Layer2" style="position:absolute; width:802px; height:29px; z-index:2; left: -22px; top: 76px"> 

          

            <applet name=aptab code=apTabMenu archive=apTabMenu.jar width=800 height=23>

              <param name="Copyright" value="Apycom Software - www.apycom.com">

              <param name="bottomLine" value="true">

              <param name="pressedItem" value="7">

              <param name="overSound" value="pix/kap2.au">

              <param name="tabType" value="5">

              <param name="backColor" value="ffffff">

              <param name="tabColor" value="3775ff">

              <param name="tabHighColor" value="0066CC">

              <param name="fontColor" value="ffffff">

              <param name="fontHighColor" value="000099">

              <param name="font" value="Times New Roman,13,1">

              <param name="menuItems" value="

     {File Manager,start2.asp,_self}

     {Messages,maillist.asp,_self}

     {E-Mail,tellafriend1.asp,_self}

     {My Pad,pad.asp,_self}

     {Board,forums.asp,_self}

     {Administrator,fil.asp,_self}

     ">

            </applet>

          


        </div>

        <% End If%>

        <% If Session("type")  = 0 Then %>

        <div id="Layer3" style="position:absolute; width:800px; height:32px; z-index:3; left: -20px; top: 76px"> 

          

            <applet name=aptab code=apTabMenu archive=apTabMenu.jar width=800 height=23>

              <param name="Copyright" value="Apycom Software - www.apycom.com">

              <param name="bottomLine" value="true">

              <param name="pressedItem" value="7">

              <param name="overSound" value="pix/kap2.au">

              <param name="tabType" value="5">

              <param name="backColor" value="ffffff">

              <param name="tabColor" value="3775ff">

              <param name="tabHighColor" value="0066CC">

              <param name="fontColor" value="ffffff">

              <param name="fontHighColor" value="000099">

              <param name="font" value="Times New Roman,13,1">

              <param name="menuItems" value="

     {File Manager,start2.asp,_self}

     {Messages,maillist.asp,_self}

     {E-Mail,tellafriend1.asp,_self}

     {My Pad,pad.asp,_self}

     {Board,forums.asp,_self}

     {Help,help.asp,_blank}

     ">

            </applet>

          


        </div>

        <% End If%>

      </td>

    </tr>

    <tr> 

      <td width="182" height="750" align="left" valign="top"> <!-- InstanceBeginEditable name="Menu1" -->

        <table border=0 cellpadding=0 cellspacing=0 width="182" height="750">

          <tr> 

            <td>[img=/menu/Menu2_01.gif]</td>

            <td width="150" height=15 background="/menu/Menu2_02.gif"></td>

            <td>[img=menu/Menu2_03.gif]</td>

          </tr>

          <tr> 

            <td width=16 background="/menu/Menu2_04.gif" height="719"></td>

            <td height=719 bgcolor="#3775ff" valign="top"> 

              <%  If (Session("logoff") = 1) Then%>

              <font color="#FFFFFF"><strong><font size="3">Welcome</font></strong></font><font color="#00FF00" size="3">


                <strong><font color="#FFFF99"><%=Session("temp")%></font></strong><font color="#FFFF99">


                <strong><font color="#FFFFFF">to</font></strong>


                <strong><%=Session("node")%></strong></font></font> <font color="#FFFF99" size="3"><strong> 

                <%End If%>

                </strong></font><font color="#0000FF" size="3"><strong><font color="#FFFFFF">


                Node/Cluster</font></strong></font><font color="#0000FF"><strong><font color="#FFFFFF" size="4"> 

                


                </font></strong></font>


              <table width="141" height="285" border="0" align="center">

                <tr> 

                  <td width="131" height="281" align="left" valign="top"> <applet name=apop code="apPopupMenu" archive="apPopupMenu.jar" width="135" height="260" " align="absmiddle">

                      <param name="Copyright" value="Apycom Software - www.nbcbn.com">

                      <param name="buttonType" value="0">

                      <param name="3dborder" value="true">

                      <param name="solidArrows" value="true">

                      <param name="systemSubFont" value="false">

                      <param name="backColor" value="3775ff">

                      <param name="backHighColor" value="0066CC">

                      <param name="fontColor" value="ffffff">

                      <param name="fontHighColor" value="ffffff">

                      <param name="font" value="Times New Roman,12,1">

                      <param name="menuItems" value="

     {Home,Main.asp,_self,}

     {Nile Basin,Home.asp,_self,}

  {Site Map ,Sitemap.asp,_self,}

  {About NBCBN RE,}

     {|Brief Hisrory,Briefhisrory.asp,_self}

     {|Our Project,Ourproject.asp,_self}

  {|Our Program,Ourprogram.asp,_self}

  {|Borad Staff,Boradstaff.asp,_self}

  {|Privacy Policy,Privacypolicy.asp,_self}

  {Network Map,Networkmap.asp,_self,}

     {Resources Library,}

  {|News Letter,Newsletter.asp,_self}

  {|Digital Library,Digitallibrary.asp,_self}

  {|General Reports,Generalreports.asp,_self}

  {|Project Documents,documents.asp,_self}

  {News&Events,Newsevents.asp,_self,}

  {|Events ,Workshop.asp,_self}

  {|News ,Workshop.asp,_self}

  {How We Can Help,}

  {|Consultation,Consultation.asp,_self}

  {|Ask Our Staff,Askourstaff.asp,_self}

  {|Related Links,Relatedlinks.asp,_self}

  {Training Activities,Trainingactivities.asp,_self}

  {Interact,}

     {|Contact Us,Contactus.asp,_self}

  {|Join Mail List,Add.asp,_self}

  {|Feed Back,Feedback.asp,_self}">

                    </applet> </td>

                </tr>

              </table>

              <%  If (Session("logoff") = 1) Then%>

              


                [img=Images/logout.gif] 

                <a  style="cursor:hand;" onClick="open('/chat/frame.asp','chatwindow','toolbar=no,location=0,directories=no,status=yes,menubar=0,scrollbars=yes,resizable=0,copyhistory=0,width=500,height=400, left=93 , top=100');">[img=Images/Chatting.gif]</a>


                <a  style="cursor:hand;" onClick="open('userslist.asp','newWindow','toolbar=no,location=0,directories=no,status=yes,menubar=0,scrollbars=yes,resizable=0,copyhistory=0,width=150,height=400,left=600, top=100');">[img=Images/Onlineusers.gif]</a> 

                


                <%End If%>

                


                <a href="/chat/default.asp?mode=userLogin&username=<%=Session("temp")%>%0A" target="_new">Enter 

                chatroom</a> 
</td>

            <td width=16 background="/menu/Menu2_06.gif" height="719">[img=/IMAGES/pixel.gif]</td>

          </tr>

          <tr> 

            <td>[img=/menu/Menu2_07.gif]</td>

            <td height=16 background="/menu/Menu2_08.gif"></td>

            <td>[img=/menu/Menu2_09.gif]</td>

          </tr>

        </table>

        <!-- InstanceEndEditable --></td>

      <td width="585" align="left" valign="top"><table width="597" height="753" border="0" align="left" cellpadding="0" cellspacing="0">

          <tr> 

            <td width="591" height="50" align="left" valign="top"> <div align="top"></div>

              <!-- InstanceBeginEditable name="Edit-banner1" -->Edit-banner1<!-- InstanceEndEditable -->
</td>

          </tr>

          <tr> 

            <td align="center" valign="top" background="/IMAGES/nbcbn.gif"><!-- InstanceBeginEditable name="Edit-Banner2" -->


              


              


     <FORM Name="SimpleSearchForm" ACTION="maillist.asp" METHOD="POST"  action="--WEBBOT-SELF--"> 

              <table width="59%" border="0" cellspacing="0"  cellpadding="0" >

                <tr> 

                  <td background="IMAGES/formtop.gif" height="43"> <font size="4" color="#FFFFFF">Compose 

                      New Message</font>
</td>

                </tr>

                <tr> 

                  <td bgcolor="#336699">  

                      <table width="80%" border="0" bgcolor="#336699" >

                        <tr> 

                          <td colspan="2"> <div align="center"> 

                              <p> </p>

                              <p><font color="#FFFFFF">The Message Was Sent 

                                Successfully


                                Click Inbox To Return To Your Messages List</font><font color="#0000CC">


                                


                                


                                </font></p>

                            
</td>

                        </tr>

                        <tr> 

                          <td width="98%" bordercolor="#FFFFCC"> 


                              <input type="hidden" name="sender" value="<%=Request.form("to")%>">

                              <input type="hidden" name="username" value="<%=Request.form("username")%>">

                              <input type="image"  name="submit2" value="Inbox" src="IMAGES/In_Box_NUntitled-1.gif" width="83" height="23">

                              <font color="#000033"></font>
</td>

                          <td width="2%" bordercolor="#FFFFCC"> </td>

                        </tr>

                      </table>

                    </div></td>

                </tr>

                <tr> 

                  <td >[img=IMAGES/fotttttt.gif]</td>

                </tr>

              </table>

     </form>

              <!-- InstanceEndEditable --></td>

          </tr>

        </table></td>

    </tr>

  </table>

</div>

<script language="JavaScript1.2">

//************************ flash button *****************************************

if (document.all&&document.all.flashit){



var flashelement=document.all.flashit

if (flashelement.length==null)

flashelement[0]=document.all.flashit



function changecolor(which){

if (flashelement[which].style.color=='')

flashelement[which].style.color="#FF0000"

else

flashelement[which].style.color=""

}





if (flashelement.length==null)

setInterval("changecolor(0)",500)

else

for (i=0;i<flashelement.length;i++){

var tempvariable='setInterval("changecolor('+i+')",'+'500)'

eval(tempvariable)

}

}

</script>

</body>



<!-- InstanceEnd --></html>

http://www.egyptwebsolutions.com

Egypt Web design

Egypt Web Hosting

Egypt Web Maintenance

Egypt Search Engine Optimization

#211 يناير 2003 في 19:53

أنا وضعت طريقة للتعامل مع عدد من البيانات .. ساجهز لك مثال و في الغد سأرسله لأني مشغول الان بدراسة اختباري ..

كل اللي أريده منك بس دعوة بالنجاح :)

You can fly while you can touch the sky

#312 يناير 2003 في 10:39

يا رب التوفيق والنجاح المستمر

http://www.egyptwebsolutions.com

Egypt Web design

Egypt Web Hosting

Egypt Web Maintenance

Egypt Search Engine Optimization

#412 يناير 2003 في 12:49

ها أنا قد أرسلت الملف و هو عن كيفية حذف مجموعة مرة واحدة أو حسب ال checkbox المعلمة .. طبعا الفكرة بسيطة و إذا فهمتها انحل كل شيء و ليس هنا فقط بل في مشاكل برمجية أخرى (f)

multi.zip

You can fly while you can touch the sky

#512 يناير 2003 في 18:41

المشكلة لسيت حذف مجموعه مرة وحدة

المشكلة انا اضيف مجموعه مرة واحدة اى ابعت رسالة لمجموعه من الاشخاص ويتم ذالك بعمل عمليه اختيار لاشخاص المراد الارسال لهم فيتم التسجيل فى قاعدة البيانات شخص شخص حسب الاختيار الذى تم

وهذا الكود الذى استخدمة بس لبعت رسالة واحدة لشخص واحد حيث بيتم الادخال لشخص واحد والمطلوب هو تغير هذا الكود لادخال اكثر من شخص

Dim objConn , objRS , strQ , strConn, strOutput 

Set objConn = Server.CreateObject("ADODB.Connection")



objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("users.mdb") & ";"

Set objRS = Server.CreateObject("ADODB.Recordset") 





strQ1 = "SELECT * FROM internalmail "









objRS.Open strQ1 , objConn , 1, 2

If Request.form("submit") = "send" Then



objRS.AddNew

objRS("sender") = Request.QueryString("username")

objRS("reciever") = Request.form("to")

objRS("subject") = Request.form("subject")

objRS("message") = Request.form("message")

objRS("date") = Date()

objRS.Update



End If



'Response.Write Request.QueryString("username")





%>

http://www.egyptwebsolutions.com

Egypt Web design

Egypt Web Hosting

Egypt Web Maintenance

Egypt Search Engine Optimization

#612 يناير 2003 في 18:56

أخي انا قلتلك أفهم الفكرة و و سوي متلها و هذا هو الأفضل حتى تشغل مخك و تثبت علمك و أنا وضحت ذلك في ردي السابق..

لاضافة كود في المرة القادمة ضع كودك ثم علمه و اذهب للأدوات الخاصة بالرد و اختر منها # و شكرا لك

You can fly while you can touch the sky

#712 يناير 2003 في 19:22

هذا هو ملخص الفكرة اللي أتعبتك :

  id=request("id")
  id=replace(id,",","")
  id=split(id)

  for each item in id
    Put your insert SQL here insted of delete :)
   'cn.execute("delete * from users where userId="&item)
  next 

  %>

أخي أهم جزء هو الذي تراه بالأحمر .. ماذا تفعل ؟؟

اجعل لكل checkbox نفس الاسم و مثلا هو id و هو رقم الموضوع مثلا .. فماذا تتوقع سيحدث عند ارسال البيانات ؟؟

ستكون قيمة id تساوي 1,4,6,8,13 و جرب بنفسك لان من الجميل أن تعرف ماذا تفعل خطوة خطوة ..

طيب كيف ستتعامل معها ؟؟

كل ما عليك أن تحولها لمصفوفة بالطريقة التي تراها باللون الأحمر ..

تكونت المصفوفة و بعد ذلك ؟؟

خلاص انحلت تعمل دوارة لكل عنصر في المصفوفة لاجراء حدث معين مثل حذف او تعديل او ادخال او اي شيء .. طبعا في حالة الادخال لا يصلح أن ترسل قيمة رقم لانه رقم تلقائي سيكون أصلا ثم أنك لا تعلم إن تكرر أو لا لذا ارسل عنوان الموضوع مثلا ..

اتمنى ان الفكرة تكون تمام الان ..

سلام :)

You can fly while you can touch the sky

#812 يناير 2003 في 19:45

والله انا عارف انى تعبتك بس والله انا عاوز اتعلم دة حاجة وحاجة تانيا انا شغال فى مشروع ولازم اخلاصو علشان كدة اسألتى كتيرة

المهم

بص اصل انا لسه جديد فى asp انا بصرحه مش فاهم حكاية المصفوفة بس انا هشرحلك اللى انا عاوز

بص ياعم انا عمل كود بيبعت رسايل بين الاعضاء اللى عندى فى الموقع فانا كنت كاتب الكود على اساس انا كل واحد هيبعت رسالة لوحد بس تانى ولكن الدكتور طلب منى ان يمكن لكل واحد ان يرسل رساله واحد لاكثر من شخص

انا عامل الرسايل على اساس انا كل واحد بيكتب الرساله فيتم تسجلها فى قاعدة البيانات للشخص المراد الارسال له ولكن فى الكود الجديد هيتكرر اسم الشخص بس الرسالة ثابتة هذه هى الفكرة

فانا عاوز ازاى انا اسجل رسالة واحد لاكثر من شخص فى قاعدة البيانات

http://www.egyptwebsolutions.com

Egypt Web design

Egypt Web Hosting

Egypt Web Maintenance

Egypt Search Engine Optimization

#912 يناير 2003 في 20:20

طيب كيف انت راح تخلي اختيار الأعضاء مستقبلي الرسائل ؟؟ هل نظام checkbox ام متل الهوتميل بجانب بعض و بين كل ايميل و الاخر فواصل ؟؟

You can fly while you can touch the sky

#1012 يناير 2003 في 20:34

لسه محدد كيف يتم الاختير ممكن انت تساعدنى انهى طريقة افضل

http://www.egyptwebsolutions.com

Egypt Web design

Egypt Web Hosting

Egypt Web Maintenance

Egypt Search Engine Optimization

#1112 يناير 2003 في 20:45

طريقة ال checkbox جيدة لكن مشكلة اذا عندك عدد كبير لا اعلم . انت اختر ما يناسب تطبيقك و خبرنا ..

You can fly while you can touch the sky

#1213 يناير 2003 في 00:08

ايوة انا عندى عدد كبير فما هو الحل المثالى

ملحوظة كيف اكتب الكود زاى مانت بتكتبوة كدة فى مكان محدد

http://www.egyptwebsolutions.com

Egypt Web design

Egypt Web Hosting

Egypt Web Maintenance

Egypt Search Engine Optimization

#1313 يناير 2003 في 00:54

هناك حل واحد لكن يصلح في حال انك تحدد عضوا واحدا او ترسل للكل ..

طبعا الارسال لواحد انت عاملها .. اما الارسال للجميع فتتم بعمل مجموعة سجلات و تعمل لهم دوارة مثلما تفعل عند عرض السجلات لكن بدل من عرضها قم بارسال البريد كالتالي :

  while not rs.EOF then
     set mail=createObject(CDONTS.newmail")
       mail.From="arabteam"
       mail.To=rs("email")
       mail.Subject="العنوان للرسالة هنا"
      mail.Body="اكتب هنا محتويات الرسالة او مررها كقيمة "
    mail.Send
   set mail=nothing
 rs.moveNext
 Wend

في الكود السابق قام بارسال رسالة لكل سجل أي لكل عضو موجود في قاعدة البيانات ..

للكتابة بهذا التنسيق قم فقط بتظليل الكود الذي كتبته و اذهب إلى أدوات التحكم بحجم الخط و ألوان النص و اختر الاشارة # فقط ..

You can fly while you can touch the sky

#1413 يناير 2003 في 01:02

انت مش فهمتنى انا مش برسل ايمال انا بارسل رساله داخليه بين الاعضاء فقط وبتتم عن طريق قاعدة بيانات فبيتم تسجيل الرسالة فى قاعدة البيانات ويتم عرضها حسب العضو والمشكلة التى اوجها كيف اضيف رسالة واحدة لاكثر من عضو حيث بيتم اختيار الاعضاء

http://www.egyptwebsolutions.com

Egypt Web design

Egypt Web Hosting

Egypt Web Maintenance

Egypt Search Engine Optimization

#1513 يناير 2003 في 01:12

نفس الفكرة طيب شو المشكلة .. بدل كود ارسال البريد قم بادخال البيانات إلى قاعدة البيانات لجدول الرسائل الخاصة ماخذا رقم id للمرسل و للمستقبل و بيانات الرسالة مثل المحتوى و التاريخ و خلاص .. بس عملية الاختيار كما قلت لك صعبة عن طريق ال checkbox لما تكون عايز ترسلها لألف عضو ..

You can fly while you can touch the sky

#1613 يناير 2003 في 01:22

سوف ارسل لك الكود علشان تساعدنى اكثر

message.rar

http://www.egyptwebsolutions.com

Egypt Web design

Egypt Web Hosting

Egypt Web Maintenance

Egypt Search Engine Optimization

#1713 يناير 2003 في 01:54

يا حبيبي المشكلة مو مشكلة كود .. انت ليك تفكير و انا ليه تفكير .. لكل واحد فكرته الخاصة فلا تتوقع شيء .. الحل انك تعرف شو بدك تسوي .. تبرمج اذا في خطأ فني خبرنا بنساعدك فيه فقط ..

You can fly while you can touch the sky

مساعده فى asp Message

مواضيع مشابهة