Forum
Aktif konular
Üyeler
Kurallar
Arama
Asp Soruları Asp Soruları
-
Arakdaşlar Sorular gelecektir şimdilik ilk sorum
<%
Set veritabani = Server.CreateObject("ADODB.Connection")
veritabani.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt1.mdb")
%>bunu komi.asp diye kaydettim sonra dingil koydum tablo adını tabi.Default.asp ye
<!-- include file="komi.asp" -->
diye include ettim daha sonra dingil tablosunda metin,sayı,nick,sifre colon mu neyse onları koydum.nickleri ben yazdırmak istiyorum.
<% SQL = "Select * from dingil ORDER by ID desc" %>
dedim fakat bir türlü yazdıramadım.
<%
set rs = server.createobject("ADODB.Recordset")
SQL = "Select * from TabloAdi"
rs.open SQL,veritabani,1,3
%>
bu kodlar gerekiyormuş bunları default.asp ye mi yoksa komi.asp ye mi ekliyicem yani dingil tablosundaki nick alan adını yazdırcam abuzer birde kadayif var.Ne yapmam gerekiyor?çözemedim daha devamı gelcek gibi soruların :)
-
<td width="25%" style="border: 1px dotted #C0C0C0"><font size="2" face="Tahoma"><%=Rs("isim")%> <%=Rs("soyisim")%></font></td>
buradaki nick tablo da belirttiğin link anladın sen.Yazdıra bilmen için tablo bilgilerini dışarı vermen gerekli.bunuda sen örneğe göre ayarlaman lasım.İdare et eğer yanlışım varsa veya yanlış anladıysam.
-
saolasın anladım sanırım.Birde şu olay var
<%
IP = Request.ServerVariables("REMOTE_ADDR")
set objFSO = CreateObject("Scripting.FileSystemObject")
set objLogFile = objFSO.GetFile("log.txt")
set objLogwrite = objLogFile.OpenAsTextStream(8,0)
objLogwrite.WriteLine( IP )
objLogwrite.close
set objLogwrite = nothing%>
Burda IP var değişkene atadım ama sitede şu sorun çıkıyor
Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'IP'
/s/metyus.asp, line 100
99-<%
100-IP = Request.ServerVariables("REMOTE_ADDR")
set objFSO = CreateObject("Scripting.FileSystemObject")
set objLogFile = objFSO.GetFile("log.txt")
set objLogwrite = objLogFile.OpenAsTextStream(8,0)
objLogwrite.WriteLine( IP )
objLogwrite.close
set objLogwrite = nothing
%>çözemedim bunuda metyus.asp dediği işte bu kodları çok sık çağıran bir dosyaya ekledim.
-
asp yolun da hata var sanıyorum.Yolları düzgün göstermemiş yada ufak bir kod hatası olabilir ama sen dosyayollarını kontrol et bence.
-
degişken tanımlayıp dene, belki olur..
dim ip
ip = request.serverVariables("remote_addr")
ya da SAYFANIN EN BAŞINA
<%
option explicit
dim ip, ve sayfada kullanacağın tüm değişkenler
.
.
.
.
.
.
.
ip = request.serverVariables("remote_addr")
bi dene belki olur :) bu işler deneye deneye öğrenilir :) -
arkadaşlar resimlerde niye çerçeve çıkıyor?Birde linklşere tıklandımı mor olmaısn hep istediğim renkte kalsın istiyorum ne yapıcam.Forum yapma uğraşına girdim çünkü başka türlü öğreneme.Forumd iyorum da z.defteri olcak sonra geliştire geliştire gittiği yere kadar gitcek.
http://img411.imageshack.us/img411/8070/hayaqnc3.jpg
dipçiknot: çok sevdim ben bu aspyi.
-
<%
Set baglanti = Server.Createobject("Adodb.Connection")
Set kd = Server.Createobject("Adodb.Recordset")
strVeritabaniYolu = "vt2.mdb"
baglanti.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.Mappath(strVeritabaniYolu) &";"
kd.open "SELECT * FROM sitir", baglanti, 1, 3
strSiteBasligi = kd("veri")
strSite = kd("sallapapi")
kd.Close%>
<font color="red"><%=strSiteBasligi%></font><br>
<font color="red"><%=strSite%></font>Bu şekilde vt2.mdb veritabanından veri ve sallapapi deki verileri aldık.Ama bu id1,2,3,4 değil sadece tek mdb.Dosyayı buyrun (veritabanını);
http://www.yousend.net/files/vt252-rar.html
ancak şu var mesela 10 tane üye var.Sadece üye nicklerini yani kd.open "SELECT * FROM uyeler",baglanti, 1, 3 'ten struyeler = kd("nick")
i çekmek istiyorum.10 tanesini nasıl yapıcam.Birde baglanti den sonra gelen 1,3 neyi ifade ediyor ?
edit:
Ayrıca birisi dbye textareadaki veriyi dbye kaydetmeyi (z.defteri gibi id 1, 2 vs.. eklemeli), silmeyi söylerse kodlarını en azından çok minnettar olacağım.
-
walla şu an okuyamadım hepsini karmaşık olduğu için ama resimlerde neden kenarlık çıktığını diyim bordor=0 ekliceksin img nesnesine o kadar bide dedim gibi maddelendirerek sorularını yazarsan yardımcı olurum her türlü
-
zumsuk hacı sıradna gideyim
veritabanındaki top son 10 kayıtı sıralaman için (top 10)
<%
strsql = "SELECT Top 10 * FROM uyeler order by id desc"
Set abc= baglanti.Execute (strsql )
Dim k
k = 1
Do While Not abc.Eof
%>
<%=abc("uye" )%>
<%
k = k + 1
abc.Movenext
Loop
%>veri tabandakileri sayfalama yaparak sıralamak (tüm kayıtları)
<%
Uzone = "SELECT * FROM uyeler ORDER BY kullanici asc"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open Uzone, baglanti, 1, 3
toplam=rs.recordcount ' kaç kayıt var bunu öğrenmek istiyosak atadık değişkene
if Request.QueryString("s")="" Then
Sayfa=1
else
Sayfa=Cint(Request.QueryString("s"))
End if
if rs.eof Then
response.write "kayıt yok?"
end if
if Not rs.eof Then
rs.pagesize=10 ' burası kaç kayıt sıralanacak sayfalarda 10 ar 10 ar yaptık
rs.AbsolutePage=Sayfa
%>
»<%=rs("kullanici")%>
<%
rs.MoveNext
if rs.eof Then exit For
Next
end if
%>
<%
if rs.Pagecount >1 Then
if sayfa
%>
< a href="?s=<%=sayfa+1%> ">[»]</a>
< a href="?s=<%=rs.pagecount%> ">[»»]</a>
<%
End if
if sayfa>1 Then
%>
< a href="?s=1" >[««]</a>
< a href="?s=<%=sayfa-1%>" >[«]</a>
<%
End if
%>
sayfalar: [<%=sayfa%>/<%=rs.pagecount%>]
<%
End if
rs.Close
Set rs= Nothing
%>
input, textarea, select gibi şeyleri kayıt etmen için
http://www.asprehberi.net/icerik/2517.html burayı oku
resimlerde çerçeve çıkmaması için
< img src="resim" alt="resim adı" border="0">
-
çok teşekkür ederim ;) beyaz showdan hemen sonra hepsini deniyicem.
ibosoft hocam snaada teşekkür ederim ayrıca.
edit: arkadaşlar ayrıca şey var mesela bir linke tıklıyoruz http://tartisbenle.somee.com/arge/ alın örnek verdim burda anasayfaya tıkladık bordo oluyor onu sürekli aynı renk olarak nasıl tutabiliriz?
-
zumsuk hocam onun için ayriyeten css öğrenmen lazım
css içinde a:link a:hover a:active gibi şeylere aynı rengi ataman lazım
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla