Asp De Yorum Sistemi, Yardım Lazım
-
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
%>
< 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
%>
-
asp bilen yok mu?
-
Al burdan buyur işini görür
http://www.duckload.com/download/5633585/Yorum.zip