Asp De Yorum Sistemi, Yardım Lazım

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    masumsunsen
    masumsunsen's avatar
    Kayıt Tarihi: 15/Aralık/2009
    Erkek

    Arkadaşlar seo ile yaptığım sayfada konu ve konuya ait yorum bölümü var. 404 sayfasında gereken işlemleri yaptım. Yorum yapmak için gönderi tıkladığımızda hiç bir gelişme olmuyor. Şöyle bir şey de denedim: yorum sayfasını ayrı yaptım ve iframe ile konu sayfasına yerleştirdim.Bu sefer kayıt yapıyor ama yapılan yorumu konu sayfasında göstermiyor.databaseye baktım,orada userid yi kaydetmediğini farkettim.Şuan paylaştığım şey,konu,yorum ve yorumların sıralandığı bölümün birarada olduğu şekli.

    Yardımcı olursanız sevinirim.

     

     

    <%

    Function seo(strmiz)

    Str = strmiz

    Str = Replace(Str, Chr(199), "C" ,1,-1,0)

    Str = Replace(Str, "Ç", "C" ,1,-1,0)

    Str = Replace(Str, Chr(208), "G" ,1,-1,0)

    Str = Replace(Str, "Ğ", "G" ,1,-1,0)

    Str = Replace(Str, Chr(214), "O" ,1,-1,0)

    Str = Replace(Str, "Ö", "O" ,1,-1,0)

    Str = Replace(Str, Chr(220), "U" ,1,-1,0)

    Str = Replace(Str, "Ü", "U" ,1,-1,0)

    Str = Replace(Str, Chr(221), "I" ,1,-1,0)

    Str = Replace(Str, "İ", "I" ,1,-1,0)

    Str = Replace(Str, Chr(222), "S" ,1,-1,0)

    Str = Replace(Str, "Ş", "S" ,1,-1,0)

    Str = Replace(Str, Chr(231), "c" ,1,-1,0)

    Str = Replace(Str, "ç", "c" ,1,-1,0)

    Str = Replace(Str, Chr(240), "g" ,1,-1,0)

    Str = Replace(Str, "ğ", "g" ,1,-1,0)

    Str = Replace(Str, Chr(246), "o" ,1,-1,0)

    Str = Replace(Str, "ö", "o" ,1,-1,0)

    Str = Replace(Str, Chr(252), "u" ,1,-1,0)

    Str = Replace(Str, "ü", "u" ,1,-1,0)

    Str = Replace(Str, Chr(253), "i" ,1,-1,0)

    Str = Replace(Str, "ı", "i" ,1,-1,0)

    Str = Replace(Str, Chr(254), "s" ,1,-1,0) 

    Str = Replace(Str, "ş", "s" ,1,-1,0)

    Str = Replace(Str, "", "" ,1,-1,0)

    Str = Replace(Str, "", "" ,1,-1,0)

    Str = Replace(Str, " ", " " ,1,-1,0)

    Str = Replace(Str, "+", "" ,1,-1,0)

    Str = Replace(Str, "'", "" ,1,-1,0)

    Str = Replace(Str, "´", "" ,1,-1,0)

    Str = Replace(Str, ",", "" ,1,-1,0)

    Str = Replace(Str ,";","" ,1,-1,0)

    Str = Replace(Str ,":","" ,1,-1,0)

    Str = Replace(Str ,"[","" ,1,-1,0)

    Str = Replace(Str ,"]","" ,1,-1,0)

    Str = Replace(Str ,"/","" ,1,-1,0)

    Str = Replace(Str ,"\","" ,1,-1,0)

    Str = Replace(Str ,"(","" ,1,-1,0)

    Str = Replace(Str ,")","" ,1,-1,0)

    Str = Replace(Str ,"`","" ,1,-1,0)

    Str = Replace(Str ,"=","" ,1,-1,0)

    Str = Replace(Str ,"-","" ,1,-1,0)

    Str = Replace(Str ,"&","" ,1,-1,0)

    Str = Replace(Str ,"%","" ,1,-1,0)

    Str = Replace(Str ,"+","" ,1,-1,0)

    Str = Replace(Str ,"!","" ,1,-1,0)

    Str = Replace(Str ,"#","" ,1,-1,0)

    Str = Replace(Str ,"<","" ,1,-1,0)

    Str = Replace(Str ,">","" ,1,-1,0)

    Str = Replace(Str ,"*","" ,1,-1,0)

    Str = Replace(Str ,"And","" ,1,-1,0)

    Str = Replace(Str ,"'","" ,1,-1,0)

    Str = Replace(Str ,Chr(34),"" ,1,-1,0)

    Str = Replace(Str ,Chr(39),"" ,1,-1,0)

    Str = Replace(Str ,".","" ,1,-1,0)

    Str = Replace(Str ,"?","" ,1,-1,0)

    Str = Replace(Str ,",","" ,1,-1,0)

    Str = Replace(Str ," ","-" ,1,-1,0)

    Str = Replace(Str ,"__","-" ,1,-1,0)

    Str = Replace(Str ,"--","-" ,1,-1,0)

    seo = Str

    End Function

     

    Set istekurl = Request.ServerVariables("QUERY_STRING") 

    istekbolum = Split(istekurl,"/")

     

    istekbolum2=istekbolum(3)

    parcala=split(istekbolum2,"-")

    id=parcala(1)

    %>

     

     

    İçerik Kısmı

     

     <%   

    veritabaniyolu = "x.mdb"

    Set baglantimiz = Server.CreateObject("ADODB.Connection")

    baglantimiz.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("x.mdb")

     

    Set rs = Server.CreateObject("ADODB.Recordset")

    sql="select * from tb1 where id="& id &""

    rs.Open sql, baglantimiz,1,3

     

    if rs.eof or rs.bof then

    response.write "böyle bir kayıt yok"

    else

    %>

     <%=rs("baslik")%>

     

     <%

    end if

    rs.close

    set rs = nothing

    %>

     

    Yorum Kısmı

     

    <%

    Function avla(byval hedef)

    hedef = Replace(hedef ,"''","",1,-1,1)

    hedef = Replace(hedef ,"'","",1,-1,1)

    hedef = Replace(hedef ,"#","",1,-1,1)

    hedef = Replace(hedef ,"*","",1,-1,1)

    hedef = Replace (hedef ,"`","",1,-1,1) 

    hedef = Replace (hedef ,"&","",1,-1,1) 

    hedef = Replace (hedef ,"'","",1,-1,1) 

    hedef = Replace (hedef ,"Chr(34)","",1,-1,1) 

    hedef = Replace (hedef ,"Chr(39)","",1,-1,1) 

    avla=trim(hedef)

    end function

     

    veritabaniyolu = "x.mdb"

    Set baglantimiz = Server.CreateObject("ADODB.Connection")

    baglantimiz.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("x.mdb")

     

    yazan=Request.Form("yazan")

    mesaj=Request.Form("mesaj")

     

    set kayit = server.createObject("Adodb.Recordset")

    sql = "SELECT * From tb1yorum"

    kayit.open sql, baglantimiz, 1,3

     

    if Request.QueryString("islem")="yorumkaydet" Then

     

    Kayit.addnew

    kayit("mesaj") = avla(request.form("mesaj"))

    kayit("yazan")=avla(request.form("yazan"))

    kayit("userid") =id

     

    if  yazan=""  then

    Response.Redirect("?sorunyazan=Lütfen isminizi giriniz.")

    else 

     

    if  mesaj=""  then

    Response.Redirect("?sorunmesaj=Lütfen mesajınızı yazınız.")

    else 

    kayit.update

    Response.Redirect("?islem=True")

    kayit.close

    set kayit = Nothing

    end if

    end if

    end if

    %>

     

    < ="?islem=yorumkaydet" method="post">

     

    < id="yazan" name="yazan" ="text" />

    < id="mesaj" name="nesaj" ="text" />

    < id="Submit" name="Submit" ="submit" value="Gönder" />

     

     

    Yapılan yorumların sıralanması

    <% 

     

    Vt_Yol=Server.Mappath("x.mdb")  

    Set Baglantimiz=Server.CreateObject("Adodb.Connection")

    Baglantimiz.Open "DBQ="& Vt_Yol & ";Driver={Microsoft Access Driver (*.mdb)}"

     

    Set yor=Server.CreateObject("ADODB.Recordset")

    Sor = "Select * From tb1yorum where userid="& id &" order by id desc"

    yor.Open sor,Baglantimiz,1,3

     

    Toplam = yor.RecordCount ' Tablodaki kayıt sayısı

    yor.PageSize =10

    If Toplam = 0 Then

    Response.Write "İlk Yorumu Sen Yap"

    Else

    %>

     <% for k=1 to yor.pagesize %>

     <% if yor.eof or yor.bof then exit for %>

    <%=yor("yazan")%>

    <%=yor("yazan")%>

     

     

     <%

      yor.movenext

      Next

     %>

     

    <%

    end if

    yor.close

    set yor = nothing

    %>

     

     

     

  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    masumsunsen
    masumsunsen's avatar
    Kayıt Tarihi: 15/Aralık/2009
    Erkek

    asp bilen yok mu?

  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Mali
    Mali's avatar
    Kayıt Tarihi: 28/Mart/2007
    Erkek

    Al burdan buyur işini görür


    http://www.duckload.com/download/5633585/Yorum.zip


    Akilli olanlar sebepler konusunda tartışırlar. Ama nihai kararı sonuçta sürekli aptallar verir...!
Toplam Hit: 1500 Toplam Mesaj: 3