Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

Disable (kilitli) olan alanı nasıl eposta atarım

Konu, 'ASP' kısmında Hasceviz tarafından paylaşıldı.

  1. Hasceviz

    Hasceviz Üye

    Kayıt:
    25 Şubat 2007
    Mesajlar:
    221
    Beğenilen Mesajlar:
    0
    Üye giriş yaptıktan sonra formu doldurduğunda üye adını ve eposta adresini bir daha yazmasın diye "disable" yapıyor. Burada bir sorun yok.

    Sorun bu formu eposta atar iken Ad Soyad ve Eposta disable olduğundan Eposta da oralar boş geliyor.

    Disable iken onları nasıl eposta ya ekleyebilirim.

    Şimdiden Teşekkürler.

    PHP:
    <%
    kilit="DISABLED"
    %>
    <
    table width="100%" height="36">
    <
    form method="POST" name="defter" action="gonder.asp" onsubmit="return defter_onsubmit()">
        <
    tr>
      <
    td width="39%" height="32" align="right">
            
    Ad Soyad:</td>
            <
    td width="4" height="32">&nbsp;</td>
            <
    td align="center" width="464" height="32">
            <
    p align="left">
            <
    input type="text" size="40" name="gonderen" <%=kilit%> value="<%=deger%>"></p>
            </
    td>
        </
    tr>
        <
    tr>
            <
    td width="30%" height="25" align="right">
            
    E Posta:</td>
            <
    td width="5" height="25">&nbsp;</td>
            <
    td align="center" width="595" height="25">
            <
    p align="left">
            <
    input type="text" size="40" name="gon_mail" <%=kilit%> value="<%=deger2%>"></td>
         </
    tr>
         <
    tr>
            <
    td width="30%" height="27" align="right">
            
    Konu Başlığı:</td>
            <
    td width="5" height="27">&nbsp;</td>
            <
    td width="598" height="27">
            <
    p align="left">
            <
    input type="text" size="40" name="baslik"></td>
          </
    tr>
         <
    tr>
            <
    td width="30%" height="136" align="right">
            
    Konu:</td>
            <
    td width="5" height="136">&nbsp;</td>
            <
    td width="598" height="136">
            <
    p align="left">
            <
    textarea rows="8" cols="34" name="mesaj" style="font-family: Verdana; font-size: 10pt"></textarea></td>
            </
    tr>
     <
    tr>
      <
    td width="784" height="31" colspan="3" background="resimler/ust.gif">
            <
    center>
      <
    input type="submit" onClick="return checkmail(this.form.gon_mail)" value="Gönder">
      </
    center>
            </
    td>
     </
    tr>
     
    </
    form>
    </
    table>
     
    GONDER.ASP KODLARIDA BUNLAR
    <%
    gonderen=guvenlik(Trim(request.form("gonderen")))
    gon_mail=guvenlik(Trim(request.form("gon_mail")))
    baslik=guvenlik(Trim(request.form("baslik")))
    mesaj=vtkaydet(Trim(request.form("mesaj")))
    %>
    <%
    Dim MailTo
    Dim mailcomp
    Dim smtp
    Dim From
    If request ("email") = "" Then 
    FromName 
    Request.Form ("gonderen")
    From Request.Form ("gon_mail"
    End If
    MailTo "zzzzz@yyy.com"
    mailcomp "ASPEmail"
    smtp "mail.yyy.com"
    user "yyyyyy@yyy.com"
    pass "xxxxxxxxx"
    %>
    <%
    html=html "<b><div align=center><u><font face=Tahoma color=#333333 size=2>Soru Cevap Bölümü - Konu Açan</font></u></div></b><br>"
    html=html "<table width=100% height=2  align=center border=1 cellspacing=0 cellpadding=0 bordercolor=#CCCCCC>"
     
    html=html "<tr><td height= 27 % width= 25 % ><b> <font face=Tahoma  size=2>&nbsp;&nbsp;&nbsp;Konu&nbsp;Açan&nbsp;</font></b></td>"
    html=html "<td><b>&nbsp;</b> <font face=Tahoma  size=2> "Request.Form("gonderen") & "&nbsp;&nbsp;&nbsp;</td></tr>"
    html=html "<tr><td height= 27 % width= 25 % ><b> <font face=Tahoma  size=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;E&nbsp;Posta&nbsp;</font></b></td>"
    html=html "<td colspan=3 ><b>&nbsp;</b> <font face=Tahoma  size=2> "Request.Form("gon_mail") & "&nbsp;&nbsp;&nbsp;</td><tr>"
     
    html=html "<td height= 27 % width= 25 % ><b><font face=Tahoma  size=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Başlık&nbsp;</font></b></td>"
    html=html "<td colspan=3 ><b>&nbsp;</b> <font face=Tahoma  size=2> "Request.Form("baslik") & "&nbsp;&nbsp;&nbsp;</td><tr>"
    html=html "<td height= 27 % width= 25 % ><b><font face=Tahoma  size=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Mesaj&nbsp;</font></b></td>"
    html=html "<td colspan=3 ><b>&nbsp;</b> <font face=Tahoma  size=2> "Request.Form("mesaj") & "&nbsp;&nbsp;&nbsp;</td></tr>"
    %>
    <%
    if 
    mailcomp "CDOSYS" then        
            set imsg 
    createobject("cdo.message")
        
    set iconf createobject("cdo.configuration")
        
    Set Flds iConf.Fields
        With Flds
       
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
       
    .Update
       End With
       With iMsg
       Set 
    .Configuration iConf
            
    .To MailTo
            
    .From From
            
    .Subject Request.Form("Subject")
            .
    HTMLBody HTML
            
    .fields.update
            
    .Send
        End With
        set imsg 
    nothing
        set iconf 
    nothing
        set HTML 
    nothing        
    else
    if 
    mailcomp "CDONTS" then
       Dim Avanos
       Set Avanos 
    CreateObject("CDONTS.NewMail")
        
    Avanos.FromFrom
        Avanos
    .ToMailTo
        Avanos
    .SubjectRequest.Form("Subject")
        
    Avanos.BodyFormat=0
        Avanos
    .MailFormat=0
        Avanos
    .Body=HTML
        Avanos
    .Send
            set HTML 
    nothing
        set Avanos
    =nothing
            
    else
     
    if 
    mailcomp "ASPEmail" then
        Set WSweb 
    Server.CreateObject("Persits.MailSender")
        
    WSweb.Host smtp
        WSweb
    .FromName FromName
        WSweb
    .From From
        WSweb
    .Username user
        WSweb
    .Password pass
        WSweb
    .AddAddress MailTo
        WSweb
    .Charset "ISO-8859-9"
        
    WSweb.Subject baslik
        WSweb
    .Body HTML
        WSweb
    .IsHTML True                        
        WSweb
    .Send
        set WSweb 
    Nothing
        set HTML 
    Nothing
            
    else
     
    if 
    mailcomp "JMail" then
        set msg 
    Server.CreateObject"JMail.Message" )
        
    msg.Logging true
        msg
    .ContentType "text/html"
        
    msg.From From
        msg
    .AddRecipient MailTo
        msg
    .Charset "ISO-8859-9"
        
    msg.Subject "İletişim Bölümü"
        
    msg.Body HTML
        msg
    .Sendsmtp )
        
    Set msg Nothing
        set HTML 
    Nothing
    end 
    if
    end if
    end if
    end if
    %>
     
  2. djinn

    djinn Aktif Üye

    Kayıt:
    19 Aralık 2006
    Mesajlar:
    313
    Beğenilen Mesajlar:
    0
    Meslek:
    turizm / öğrenci
    Şehir:
    izmir
    disabled yerine read only yapabilirsin. ama burda da güvenlik sorunu olabilir. bence en güzeli hem read only yap hemde üye girişi yaptıgı için formdan çekmek yerine direk gonder.asp içinde degerleri yazdır..
     
  3. Hasceviz

    Hasceviz Üye

    Kayıt:
    25 Şubat 2007
    Mesajlar:
    221
    Beğenilen Mesajlar:
    0
    if lesekmi acaba

    Sayın Ayberk Atasay,Önerin için teşekkürler. Read only yapınca kilit çözülüyor ve orası değişebilir hale geliyor Tabiiki gönderirken read only olduğu için yeni yazılanı göndermeyecek. Buraları bir "If" lesek olurmu acaba diye aklıma geldi fakat bilemiyorum.


    localde denemiştim. web te deneyince kilit çözülünce değişebiliyor olmadı read only
     
    Son düzenleme yönetici tarafından yapıldı: 2 Temmuz 2008
  4. Hasceviz

    Hasceviz Üye

    Kayıt:
    25 Şubat 2007
    Mesajlar:
    221
    Beğenilen Mesajlar:
    0
    Sayın Ayberk Atasay,

    read only i böyle yazmışım

    readonly olunca tamam