haber gonder sayfasnın kodu aşağıdaki gibi. yalnız veri tabanına bilgileri atarken. haber metnindeki html özel karakterlerini değiştirerek yolluyo. ben karakterleri aynen yollamasını istiyorum. mesela backspace boşluğu ( ) bu şekilde görüküyo veri tabanında ben boşluk olarak görünsün istiyorum. yani özel haber metninin textareası özel karakterleri arındırma işlemine maruz kalmasın istiyorum..
<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="inc_ayarlar.asp"-->
<!--#include file="inc_fonksiyonlar.asp"-->
<%
'// Sayfanın önbellekten alnması önleniyor
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"
'// Değişkenler Tanımlanıyor
Dim intKategori
Dim strBaslik
Dim blnYorum
Dim strOzet
Dim strHaber
Dim strKelime
Dim strKategori
Dim i
Dim strIslem
Dim blnGuvenlikOK
Dim SQL
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title><%=strSiteAdi%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<link rel="stylesheet" type="text/css" href="stil.css">
<script language="Javascript1.2"><!-- // load htmlarea
_editor_url = ""; // URL to htmlarea files
var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE")[1]);
if (navigator.userAgent.indexOf('Mac') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Windows CE') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Opera') >= 0) { win_ie_ver = 0; }
if (win_ie_ver >= 5.5) {
document.write('<scr' + 'ipt src="' +_editor_url+ 'editor.js"');
document.write(' language="Javascript1.2"></scr' + 'ipt>');
} else { document.write('<scr'+'ipt>function editor_generate() { return false; }</scr'+'ipt>'); }
// --></script>
<script language="javascript">
function Kontrol()
{
if (frmHaber.baslik.value.length < 3){
alert("Lütfen Yazınızın başlığını yazınız...");
frmHaber.baslik.focus();
return (false);
}
if (frmHaber.ozet.value.length < 3) {
alert("Lütfen Yazınızın özetini yazınız...");
frmHaber.ozet.focus();
return (false);
}
if (frmHaber.habermetni.value.length < 10){
alert("Lütfen Yazınızın metnini yazınız...");
frmHaber.habermetni.focus();
return (false);
}
<% If blnOnayKodu Then %>
if (frmHaber.OnayKodu.value.length < 6){
alert("Lütfen onay kodunu yazınız...");
frmHaber.OnayKodu.focus();
return (false);
}
<% End If %>
return (true);
}
//-->
</script>
</head>
<body bgcolor="#3333FF">
<!--#include file="inc_banner.asp"-->
<!--Orta Bölüm Başlangıcı-->
<table width="100%" cellpadding="0" cellspacing="0" border="0" style="height:100%">
<tr>
<td class="SolMenu" rowspan="2"><!--#include file="inc_menu.asp"--></td>
<td style="padding:5px 0px 0px 10px;vertical-align:top">
<table width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td class="OrtaBaslik"><a class="bLink">Yazıyı Gönder</a></td></tr>
<tr>
<td class="Orta" style="padding-left:0px"><%
strIslem = Temizle(Trim(Request.QueryString("islem")))
strBaslik = BaslikTemizle(Trim(Request.Form("baslik")))
strOzet = BaslikTemizle(Trim(Request.Form("ozet")))
strHaber = BaslikTemizle(Trim(Request.Form("habermetni")))
blnYorum = Temizle(Trim(Request.Form("yorum")))
intKategori = Temizle(Trim(Request.Form("kategori")))
If blnYorum = "" Then blnYorum = True
'// Onay Kodu Doğrulanıyor
If blnOnayKodu Then
If Session("OnayKodu") = Temizle(Trim(Mid(Request.Form("OnayKodu"), 1, 6))) Then
blnGuvenlikOK = True
Else
blnGuvenlikOK = False
End If
Else
blnGuvenlikOK = True
End If
If strIslem = "kaydet" Then
'// Boş Alanlar Kontrol Ediliyor
If blnGuvenlikOK AND Len(strBaslik) > 3 AND Len(strozet) > 3 AND Len(strHaber) > 10 AND intKategori <> "" AND blnYorum <> "" Then
SQL = "SELECT * FROM tblHaberler"
kd.Open SQL, adoCon, 1, 3
kd.AddNew
kd("baslik") = strBaslik
kd("ozet") = strOzet
kd("haber") = strHaber
kd("yorum") = CBool(blnYorum)
kd("durum") = True
kd("onay") = False
kd("onemli") = False
kd("kilit") = False
kd("kategori") = CInt(intKategori)
kd("tarih") = Now()
kd("editor") = 2
kd.Update
Response.Redirect "haber_yolla.asp?islem=OK"
Else %>
<span class="yazi">Formda Boş Alanlar Bulundu.</span><br><br>
<form method="post" action="haber_yolla.asp">
<input type="hidden" name="baslik" value="<%=strBaslik%>">
<input type="hidden" name="ozet" value="<%=strOzet%>">
<input type="hidden" name="habermetni" value="<%=strHaber%>">
<input type="hidden" name="yorum" value="<%=blnYorum%>">
<input type="hidden" name="kategori" value="<%=intKategori%>">
<input type="submit" value=" Geri Dön " class="buton">
</form><%
End If
Elseif strIslem = "OK" Then
Response.Write "Yolladığınız yazı, Site yöneticimiz tarafından kontrol edildikten sonra siteye eklenecektir."
Else %>
<form method="post" action="haber_yolla.asp?islem=kaydet" name="frmHaber" onsubmit="return Kontrol();">
<table width="100%" cellpadding="4" border="0" cellspacing="0">
<tr>
<td width="19%"><span class="yazi">Kategori:</span></td>
<td><select name="kategori" class="input"><%
kd.Open "SELECT * FROM tblKategoriler ORDER BY kategori", adoCon, 1, 3
Do While Not kd.EOF %>
<option value="<%=kd("katID")%>"<% If CInt(intKategori) = kd("katID") Then Response.Write " selected"%>><%=kd("kategori")%></option><%
kd.MoveNext
Loop
kd.Close %>
</select>
</td>
</tr>
<tr>
<td><span class="yazi">Başlık:</span></td>
<td><input type="text" name="baslik" size="75" maxlength="255" class="input" value="<%=strBaslik%>"></td>
</tr>
<tr>
<td valign="top"><span class="yazi">Yorumlar:</span></td>
<td><select name="yorum" class="input">
<option value="True"<% If blnYorum = True Then Response.Write " selected"%>>Aktif</option>
<option value="False"<% If blnYorum = False Then Re |
Basılabilir versiyon
Tüm forumlar >> [Web Tasarım - Programlama] >> Yazılım Geliştirme >> Asp / Asp.NET >> Bir soru 
26 Ağustos 2008; 18:39:14
