UzmanWeb.Net Forum

Makaleler, Dosyalar, Resimler bölümüne güvenlik kodu doğrulaması ekle (Güncel..) (Okunma sayısı 4099 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

burajan

* Nisan 19, 2008, 22:48:38 ÖS
Konu başlığında da yazdığı gibi makaleler bölümüne güvenlik kodu doğrulaması yerleştirmek istiyorsanız aşağıdaki değişiklikleri yapmanız yeterlidir. Bu güvenlik kodu uygulaması maxwebportalın kendi bünyesinde bulunduğu için herhangi bir ek güvenlik kodu uygulaması gerekmiyor. Ayrıca burada olduğu gibi diğer dosyalar, linkler, resimler bölümlerindeki eklemeler içinde güvenlik kodu uygulamasını gerçekleştirebilirsiniz.

Ayrıca sitelerine anlaşılmayan şekilde gelen makaleler içinde bu güvenlik kodu doğrulamasını kullanın. Tam çözüm olabilir mi emin değilim ama denemenizde fayda vardır. Eğer bu güvenlik kodu doğrulaması işe yararsa bu konuya cevap olarak sonucu yazmanızı rica ediyorum.

Makaleler Bölümü İçin Güvenlik Kodu Doğrulaması:

Gelelim yapmanız gereken işlemlere!...

article_add_form.asp dosyasını (not defteri vb...) açın ve aşağıdaki kodu bulun:
Kod: [Seç]
  <tr bgColor="<% =strPopUpTableColor %>">
    <td bgcolor="<%= strForumCellColor %>" colspan="2" height="1">
    <%if strDBNTUserName = "" then%>
    <input type="hidden" name="poster" value="Anonymous">
    <% else %>
    <input type="hidden" name="poster" value="<%=strDBNTUserName %>">
    <% end if%>
    </td>
  </tr>

Bu kodun altına aşağıdaki kodu yerleştirin:
Kod: [Seç]
  <tr>
    <td valign="top" bgcolor="<%= strForumCellColor %>" height="25" align="right"><font color=red>*</font><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor%>">
    Güvenlik Kodu Doğrula:&nbsp; </font></td>
    <td bgcolor="<%= strForumCellColor %>" height="25"><input CLASS="textbox" type="text" name="secCode" size="8" maxLength="8" value="" onFocus="javascript:this.value='';">&nbsp;&nbsp;<img align="absolute" src="securelog/image.asp" /></td>
  </tr>

Bu dosyayı kaydedin.

Daha sonra article_add.asp dosyasını (not defteri vb...) açın ve aşağıdaki kodu bulun:
Kod: [Seç]
if len(trim(posteremail)) = 0 then
sString = sString & "<li>E-Mail Adresinizi Yazın.</li>"
else
if EmailField(posteremail) = 0 then
sString = sString & "<li>Geçerli Bir Email Adresi Yazın!</li>"
end if
end if

Bu kodun altına aşağıdaki kodu yerleştirin:
Kod: [Seç]
if DoSecImage(Ucase(request.form("SecCode"))) <> 1 Then
sString = sString & "<li>Yazdığınız Güvenlik Kodu Hatalı, Geri Dönüp Tekrar Deneyin.</li>"
end if

Ve bu dosyayı da kaydedin.
Son Düzenleme: Haziran 18, 2008, 03:30:56 ÖÖ Gönderen: burajan
Kayıtlı
Kişisel İnternet Sitem => http://www.buraksimsek.com.tr

burajan

#1 * Haziran 18, 2008, 03:19:17 ÖÖ
Dosyalar Bölümü İçin Güvenlik Kodu Doğrulaması:

dl_add_form.asp dosyasını (not defteri vb...) açın ve aşağıdaki kodu bulun:
Kod: [Seç]
   <tr>
    <td align="right" bgcolor="<%= strForumCellColor %>">
      <font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor%>">Gönderen: </font>
    </td>
    <%if strDBNTUserName = "" then%>
    <td bgcolor="<%= strForumCellColor %>"><input type="text" name="uploader" size="40" maxlength="90"></td>
    <%else%>
    <td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor%>"><% =strDBNTUserName %></font><input type="hidden" value="<%=strDBNTUserName %>" name="uploader"></td>
    <%end if%>
  </tr>

Bu kodun altına aşağıdaki kodu yerleştirin:
Kod: [Seç]
    <tr>
    <td align="right" bgcolor="<%= strForumCellColor %>">
      <font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor%>"><font color=red>*</font> Güvenlik Kodu Doğrula: </font>
    </td>
    <td bgcolor="<%= strForumCellColor %>"><input CLASS="textbox" type="text" name="secCode" size="8" maxLength="8" value="" onFocus="javascript:this.value='';">&nbsp;&nbsp;<img align="absolute" src="securelog/image.asp" /></td>
  </tr>

Bu dosyayı kaydedin.

Daha sonra dl_add_url.asp dosyasını (not defteri vb...) açın ve aşağıdaki kodu bulun:
Kod: [Seç]
uploader = replace(ChkString(objUpload.Fields("uploader").Value,"title"), "''","'", 1, -1, 1)
Bu kodun altına aşağıdaki kodu yerleştirin:
Kod: [Seç]
SecCode = replace(ChkString(objUpload.Fields("SecCode").Value,"title"), "''","'", 1, -1, 1)
Yine aynı dosyayı (dl_add_url.asp) açın ve aşağıdaki kodu bulun:
Kod: [Seç]
if EmailField(EmaIl) = 0 then
Err_Msg = Err_Msg & "<li>Lütfen Geçerli Bir Email Adresi Yazın!</li>"
end if

Bu kodun altına aşağıdaki kodu yerleştirin:
Kod: [Seç]
if DoSecImage(Ucase(SecCode)) <> 1 Then
sString = sString & "<li>Yazdığınız Güvenlik Kodu Hatalı, Geri Dönüp Tekrar Deneyin.</li>"
end if

Ve bu dosyayı da kaydedin.
Son Düzenleme: Haziran 18, 2008, 03:25:10 ÖÖ Gönderen: burajan
Kayıtlı
Kişisel İnternet Sitem => http://www.buraksimsek.com.tr

burajan

#2 * Haziran 18, 2008, 03:28:11 ÖÖ
Resimler Bölümü İçin Güvenlik Kodu Doğrulaması:

pic_add_form.asp dosyasını (not defteri vb...) açın ve aşağıdaki kodu bulun:
Kod: [Seç]
    <tr>
    <td align="right" bgcolor="<%= strForumCellColor %>">
      <font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor%>">Telif Hakkı:  </font>
    </td>
    <td bgcolor="<%= strForumCellColor %>"><input type="text" name="copyright" size="40" maxlength="90"></td>
  </tr>

Bu kodun altına aşağıdaki kodu yerleştirin:
Kod: [Seç]
    <tr>
    <td align="right" bgcolor="<%= strForumCellColor %>">
      <font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor%>"><font color=red>*</font> Güvenlik Kodu Doğrula:  </font>
    </td>
    <td bgcolor="<%= strForumCellColor %>"><input CLASS="textbox" type="text" name="secCode" size="8" maxLength="8" value="" onFocus="javascript:this.value='';">&nbsp;&nbsp;<img align="absolute" src="securelog/image.asp" /></td>
  </tr>

Bu dosyayı kaydedin.

Daha sonra pic_add.asp dosyasını (not defteri vb...) açın ve aşağıdaki kodu bulun:
Kod: [Seç]
COPYRIGHT = replace(ChkString(objUpload.Fields("copyright").Value,"title"), "''","'", 1, -1, 1)
Bu kodun altına aşağıdaki kodu yerleştirin:
Kod: [Seç]
SecCode = replace(ChkString(objUpload.Fields("SecCode").Value,"title"), "''","'", 1, -1, 1)
Yine aynı dosyayı (pic_add.asp) açın ve aşağıdaki kodu bulun:
Kod: [Seç]
if len(trim(desc)) => 255 then
sString = sString & "<li>" &len(trim(desc))&" Açıklamanız çok uzun. Maksimum 255 karakter kullanabilirsiniz.</li>"
end if

Bu kodun altına aşağıdaki kodu yerleştirin:
Kod: [Seç]
if DoSecImage(Ucase(SecCode)) <> 1 Then
sString = sString & "<li>Yazdığınız Güvenlik Kodu Hatalı, Geri Dönüp Tekrar Deneyin.</li>"
end if

Ve bu dosyayı da kaydedin.
Kayıtlı
Kişisel İnternet Sitem => http://www.buraksimsek.com.tr

seheryeli

#3 * Eylül 07, 2010, 12:15:23 ÖS
Teşekkür ederim.Makale ve resim yüklemek artık güvenlikli oldu.
Kayıtlı