YENİ KODLANDI DENENDİ!
Bağlantı Stringimiz
<%
'veritabanı yolumuz
Set Conn = server.createObject("adodb.connection")
Conn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source="&server.mappath("/data/xxx.accdb")
%>
Değişkenlerimiz
<%
' ------------------ [SİTE AYARLARI] ------------------
site_adi = "Sorhocam.com"
site_url = "http://www.sorhocam.com"
s_title = "Sorhocam.com - Sınavlara Online Ortamda Hazırlanın"
%>Konu.asp
<%do while not rsdoc.eof%>
- " href="yonlendir.asp?mode=indir&id=<%=rsdoc("id")%>"><%=rsdoc("baslik")&" "&"("&int(rsdoc("boyut")/1024)&" "&"kb"&")"%> <%=rsdoc("hit")%>
<%rsdoc.movenext : loop%>
Yonlendir.asp
<%
id = request.querystring("id")
if request.querystring("mode") = "indir" then
set rs = server.createobject("adodb.recordset")
rs.open "select id,url,hit from dokumanlar where id="&id&"", conn,1,3
if not request.cookies("docs")(id) = "true" then
rs("hit") = rs("hit")+1
rs.update
response.cookies("docs")(id) = "true"
response.cookies("docs").expires = now() + 1
response.redirect site_url&rs("url")
rs.close : set rs = nothing
else
response.redirect site_url&rs("url")
end if
end if
conn.close : set conn = nothing
%>* Not : Bundan sonra yeni projelerimde geliştirmiş olduğum uygulamaları burada paylaşacağım. Beni takip etmeye devam edin. Özel msj göndermeyin. Sorularınızı buradan paylaşın. Ayrıca isteğe özel uygulamalar geliştirilir. Bu konuda fiyat almak için özel pm atabilirsiniz.
