Asp De Html Kodları Aktif Etmek

Tahribat.com Forumları
line

Asp - Php - Cgi - Perl
line

31/Ağu/08 13:04 Kısayol Şikayet Özel Mesaj

sabiano

Kayıt Tarihi: 11/Aralık/2007

S.a
Veritanımda Html kodalr mevcut bunları kod olarak sayfada gösteriyorum ama ben aynı kodları önizleme die bi link koyup ordada gösel olarak göstermek istiyorum fakat kodlar yine kod şeklinde yani html aktif değil aktif etmek için hne yapmam gerek kodlar bunlar

onizle.asp

<%
Set sabiano = Server.CreateObject("ADODB.Connection")
sabiano.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
%>
<%
id=request.querystring("id")
set Girdi = server.createobject("adodb.recordset")
Girdi.open " select * from kodlar where id=" &id ,sabiano,1,3
%>





<% Response.Write Girdi("baslik")%>


<% Response.Write Girdi("kod")%>



@mod:Konu ASP Bölümüne Taşınmıştır...

Alıntı yap
31/Ağu/08 13:22 Kısayol Şikayet Özel Mesaj

FOXXLY

Kayıt Tarihi: 19/Haziran/2006

replace yapmadan gösterr :|

eğer db ye replace edilipde eklenmişse benim bildiğim onu html olarak okutamazsın.

kelimeler albayım bazı anlamlara gelmiyor.

Alıntı yap
31/Ağu/08 14:01 Kısayol Şikayet Özel Mesaj

Ayro

Kayıt Tarihi: 08/Ağustos/2005

yani!
kodlarda sorun yok dbye nasıl kaydediyorsun birde o kodu ver

Alıntı yap
31/Ağu/08 14:04 Kısayol Şikayet Özel Mesaj

sabiano

Kayıt Tarihi: 11/Aralık/2007


<%
Function temizle(trh)
if trh<10 then
trh=Right(trh,1)
end if
temizle=trh
End Function
Function Duzelt(duzgun)
if mid(duzgun,3,1)="." then
x=split(duzgun,".")
ay=x(1)
gun=x(0)
yil=x(2)
duzgun= temizle(ay) & "/" & temizle(gun) & "/" & yil
end if
duzelt=duzgun
End Function
if (Request.QueryString("Blog"))="ekle" then
Konu=request.form("Konu")
Mesaj=request.form("Mesaj")
kat_id=request.form("kat_id")
gorunsun=request.form("gorunsun")
yorumdurum=request.form("yorumdurum")
If konu="" or mesaj="" or kat_id="" or yorumdurum="" Then
Response.Write "<center>Boş Bıraktığınız Alan Var.<br> Geri Dönüp Doldurunuz.<br><a href=""javascript:history(back)""><<<GERİ</a></center>"
Response.End
End if
Set blgekle = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from blog"
blgekle.Open SQL,data,1,3
blgekle.Addnew
blgekle("Mesaj")=Mesaj
blgekle("Konu")=Konu
blgekle("kat_id")=kat_id
blgekle("Tarih")=duzelt(date)
blgekle("gorunsun")=gorunsun
blgekle("yorumdurum")=Int(yorumdurum)
blgekle.update
etiket=Trim(Request.Form("etiketler"))
if not etiket="" then
etiketler=Split(etiket,",")
for i=0 to Ubound(etiketler)
Set etk = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from etiket"
etk.Open SQL,data,1,3
etk.Addnew
etk("etiket")=Trim(etiketler(i))
etk("blog_id")=blgekle("id")
etk.update
next
end if
blgekle.close : set blgekle=nothing
Response.Redirect("?Blog=Eklendi")
End if
if (Request.QueryString("Blog"))="Eklendi" then
response.write("<script>alert('Blog Başarıyla Eklendi');</script>")
End if
%>

Alıntı yap
31/Ağu/08 14:07 Kısayol Şikayet Özel Mesaj

alp

Kayıt Tarihi: 28/Ekim/2003

hocam onizle.asp buysa, ve kod kısmında da bildiğimiz <html> kodları varsa sen bunu nasıl kod olarak gösterebiliyosun onu anlayamadım.. Sayfanda kod kutucuğu, textbox'a benzer bişiler mi var?

Alıntı yap
31/Ağu/08 14:14 Kısayol Şikayet Özel Mesaj

sabiano

Kayıt Tarihi: 11/Aralık/2007

link bu
http://html-kod.sabilisim.com/

Alıntı yap

Toplam Hit: 1317 Toplam Mesaj: 6

Cevapla