לוגו אתר Fresh          
 
 
  אפשרות תפריט  ראשי     אפשרות תפריט  צ'אט     אפשרות תפריט  מבזקים     אפשרות תפריט  צור קשר     חץ שמאלה ‎print ‎"Hello World!"; if‎ ‎not rules.‎know ‎then rules.‎read(); חץ ימינה  

לך אחורה   לובי הפורומים > מחשבים > תכנות ובניית אתרים
שמור לעצמך קישור לדף זה באתרי שמירת קישורים חברתיים
תגובה
 
כלי אשכול חפש באשכול זה



  #3  
ישן 12-01-2011, 10:49
  noy_siam noy_siam אינו מחובר  
 
חבר מתאריך: 31.05.02
הודעות: 1,076
תודה שימי על התגובה המהירה
בתגובה להודעה מספר 1 שנכתבה על ידי noy_siam שמתחילה ב "מערכת טפסים ב-ASP"

הבנתי את הרעיון שלך אבל אין לי מושג איך ליישם זאת ולכן אני יציג עבורך את הקוד
בדף ה-contact.asp יש את הקוד הזה
קוד PHP:
 <form action="contact_us2.asp" method="post"


עכשיו הדף contact_us2.asp ששם בעצם רשומה המערכת ללא העיצוב
קוד PHP:
 <%
' Form DATA
 Dim rFname,rLname,rSubject,rEmail,rPhone,rMessage

 rFname = request.form("First Name")
 rLname = request.form("Last name") 
 rSubject = request.form("Subject of letter") 
 rEmail = request.form("Email address") 
 rPhone = request.form("Phone") 
 rMessage = request.form("thetext")  

dim sFrom , sTo, sSubject, sMessage 
sFrom = "contact@mydomain.com"
sTo = "noy@mydomain.com"
sSubject = "Contact information (WEB Form)"

'
email's content

sMessage =     "First Name: " & rFname & vbcrlf & "Last Name: " & rLname & vbcrlf  & "Subject: " 
& rSubject & vbcrlf   & "Email: " & rEmail & vbcrlf & "Phone: " 
& rPhone & vbcrlf  & "Message "& vbcrlf  & rMessage

Creating new instance of the CDONTS Object 
Set objNewMail 
CreateObject("CDONTS.NewMail")

' Firing the email
objNewMail.Send sFrom, sTo, sSubject, sMessage
    
Response.Redirect "http://www.mydomain.com/contact.asp?sent=1"
%> 


תודה
נוי
תגובה ללא ציטוט תגובה עם ציטוט חזרה לפורום
  #6  
ישן 13-01-2011, 23:14
צלמית המשתמש של Eran
  משתמש זכר Eran Eran אינו מחובר  
 
חבר מתאריך: 27.02.02
הודעות: 4,536
שלח הודעה דרך ICQ אל Eran
בתגובה להודעה מספר 5 שנכתבה על ידי noy_siam שמתחילה ב "כן זה נכון, קוד ה-combobox..."

זה בסדר גמור

במקום sTo = "noy@mydomain.com"
נתנה אותו לפי הנושא, הרי הוא rSubject
קוד PHP:
 if cInt(rSubject) <= 1 Then
  sTo 
"noy@mydomain.com" 
Else
  
sTo "noy2@mydomain.com" 
End if 
כל נושא שהערך שלו קטן או שווה ל1 ישלח ל noy והיתר ל noy2
אם כבר נתת ערך מספרי אז חשבתי שככה יהיה לך נוח..



או אם אתה רוצה לפזר את זה על יותר אימיילים
קוד PHP:
 Select Case rSubject
    
Case "1"
        
sTo "noy1@mydomain.com" 
    
Case "2"
        
sTo "noy2@mydomain.com" 
    
Case "3"
        
sTo "noy3@mydomain.com" 
    
Case "4"
        
sTo "noy4@mydomain.com" 
    
Case Else
                
'//'hacker or strange error :|
        
sTo "other@mydomain.com"
End Select 



אחח איזו חיה משונה זו ASP
_____________________________________

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://fresh.clanteam.com/list.png]

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://fresh.clanteam.com/?https://2010-uploaded.fresh.co.il/2010/09/21/52868411.gif,http://www.boredpanda.com/blog/wp-content/themes/mimbo2.2/images/subscribe-panda-605px.png]

תגובה ללא ציטוט תגובה עם ציטוט חזרה לפורום
  #8  
ישן 14-01-2011, 12:20
  noy_siam noy_siam אינו מחובר  
 
חבר מתאריך: 31.05.02
הודעות: 1,076
קודם כל תודה על הקוד
בתגובה להודעה מספר 6 שנכתבה על ידי Eran שמתחילה ב "זה בסדר גמור במקום sTo =..."

קודם כל תודה על הקוד
ניסיתי את שנייהם ולהלן התוצאות:
בקוד הראשון
קוד PHP:
 dim sFrom sTosSubjectsMessage  
sFrom 
"contact@mydomain.com" 
 
if cInt(rSubject) <= 1 Then 
  sTo 
"noy@mydomain.com"  
Else 
  
sTo "noy2@mydomain.com"  
End if  
sSubject "Contact information (WEB Form)" 

קבלתי הודעת שגיאה על cInt מהדפדפן (אני משתמש בכרום)

בקוד השני
קוד PHP:
 dim sFrom sTosSubjectsMessage  
sFrom 
"contact@mydomain.com" 
 
Select Case rSubject 
    
Case "1" 
        
sTo "noy1@mydomain.com"  
    
Case "2" 
        
sTo "noy2@mydomain.com"  
    
Case "3" 
        
sTo "noy3@mydomain.com"  
    
Case "4" 
        
sTo "noy4@mydomain.com"  
    
Case Else 
                
'//'hacker or strange error :| 
        
sTo "other@mydomain.com" 
End Select  
sSubject 
"Contact information (WEB Form)" 

המייל תמיד נישלח ל- Case Else
תגובה ללא ציטוט תגובה עם ציטוט חזרה לפורום
  #9  
ישן 14-01-2011, 13:25
צלמית המשתמש של Eran
  משתמש זכר Eran Eran אינו מחובר  
 
חבר מתאריך: 27.02.02
הודעות: 4,536
שלח הודעה דרך ICQ אל Eran
בתגובה להודעה מספר 8 שנכתבה על ידי noy_siam שמתחילה ב "קודם כל תודה על הקוד"

אתה שולח בלי לבצע בחירה של Option
לפי השגיאה שלך עכשיו אני שם לב שזה לא כתוב כמו שצריך.
חסר לך =
<OPTION value="1">Sales related</OPTION>
...
(strange error ...)

במה נוח לך להשתמש?


בקוד הראשון בגלל שהוא לא קיבל ערך אז זה החזיר שגיאה
אם אתה הולך על הראשון אז תתקן לזה:
קוד PHP:
 dim sFrom sTosSubjectsMessage  
sFrom 
"contact@mydomain.com" 
 
if cInt("0" rSubject) <= 1 Then 
  sTo 
"noy@mydomain.com"  
Else 
  
sTo "noy2@mydomain.com"  
End if  
sSubject "Contact information (WEB Form)" 

תבדוק מה קורה אם אתה לא בוחר כלום, כלומר נשאר עם ה [select topic]. אני לא בטוח אבל יש מצב שגם זה יחזיר שגיאה


השני בסדר גמור
_____________________________________

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://fresh.clanteam.com/list.png]

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://fresh.clanteam.com/?https://2010-uploaded.fresh.co.il/2010/09/21/52868411.gif,http://www.boredpanda.com/blog/wp-content/themes/mimbo2.2/images/subscribe-panda-605px.png]

תגובה ללא ציטוט תגובה עם ציטוט חזרה לפורום
  #14  
ישן 16-01-2011, 15:01
צלמית המשתמש של Eran
  משתמש זכר Eran Eran אינו מחובר  
 
חבר מתאריך: 27.02.02
הודעות: 4,536
שלח הודעה דרך ICQ אל Eran
בתגובה להודעה מספר 13 שנכתבה על ידי noy_siam שמתחילה ב "פתרתי את הבעיה הראשונה בצורה..."

אתה מתחיל לקלוט את העניין

שים לב מאיפה ה "5" הגיע...



אז שני דרכים


1. לא לגעת ב contact.asp
כלומר להשאיר בOPTIONS את המספרים וזה מש contact_us2.asp יקבל
ואז בדף הזה לתרגם את המספרים לכותרות.

איך? לדרוס את rSubject בערך חדש. די דומה למה שאתה עושה כרגע עם sTo

מכיוון שאתה ב if אז זה - או כותרת מסוג א' או כותרת מסוג ב'
ואולי תרצה לחזור ל CASE שם אפשר להבדיל בין המספרים.


2. לשנות ב contact.asp את המספרים לכותרות
ואז contact_us2.asp מקבל את הכותרת ממש
מה שנותר לשנות זה את המספרים לכותרות גם כאן כי עכשיו rSubject לא מכיל מספר אלא כותרת (מחרוזת)
זתומרת במקום
if cInt(rSubject) <= 1 Then
if rSubject == "news" Then
זה יגרום רק לכותרת אחת להשלח לאימייל א'
וכל היתר לאימייל ב'
אז אם אני רוצה עוד כותרות באימייל א' אני יעשה כך
if rSubject == "news" OR rSubject == "feedback" Then
אפשר להוסיף כמו כותרות שרוצים רק תודא שזה בדיוק כמו מה שכתוב ב value של ה option.



דבר נוסף.
על אותו עניין אתה גם יכול להחזיר שגיאה ולא לשלוח אימייל אם הטופס לא מולא כנדרש
אם תגדיר ל [select topic]
value = ""
ובדף הקולט תעשה בדיקה אם לא קיים ערך אז הדפס שגיאה
קוד PHP:
 '//' קבל נתונים
rSubject 
request.form("Subject of letter"

'//' בצע בדיקה
IF rSubject="" Then

  Response
.write "error! you must fill a subject"

ELSE

... 
send mail ...

END IF 

וכן לכל שאר הערכים שאתה קולט מהמשתמש...


תשחק עם זה. אתה תקלוט את זה מהר...
_____________________________________

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://fresh.clanteam.com/list.png]

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://fresh.clanteam.com/?https://2010-uploaded.fresh.co.il/2010/09/21/52868411.gif,http://www.boredpanda.com/blog/wp-content/themes/mimbo2.2/images/subscribe-panda-605px.png]

תגובה ללא ציטוט תגובה עם ציטוט חזרה לפורום
תגובה

כלי אשכול חפש באשכול זה
חפש באשכול זה:

חיפוש מתקדם
מצבי תצוגה דרג אשכול זה
דרג אשכול זה:

מזער את תיבת המידע אפשרויות משלוח הודעות
אתה לא יכול לפתוח אשכולות חדשים
אתה לא יכול להגיב לאשכולות
אתה לא יכול לצרף קבצים
אתה לא יכול לערוך את ההודעות שלך

קוד vB פעיל
קוד [IMG] פעיל
קוד HTML כבוי
מעבר לפורום



כל הזמנים המוצגים בדף זה הם לפי איזור זמן GMT +2. השעה כעת היא 13:13

הדף נוצר ב 0.07 שניות עם 10 שאילתות

הפורום מבוסס על vBulletin, גירסא 3.0.6
כל הזכויות לתוכנת הפורומים שמורות © 2024 - 2000 לחברת Jelsoft Enterprises.
כל הזכויות שמורות ל Fresh.co.il ©

צור קשר | תקנון האתר