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

[burajan]

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.

[burajan]

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.

[burajan]

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.

[seheryeli]

Teşekkür ederim.Makale ve resim yüklemek artık güvenlikli oldu.