Forum
Aktif konular
Üyeler
Kurallar
Arama
Vbde Inet İle Postdata Yollamak Vbde Inet İle Postdata Yollamak
-
Zamaninda cok aramistim :) belki arayan vardir paylasim.
'Forma bir inet1 bir de command1 ekleyin.
const header="Content-Type:
application/x-www-form-urlencoded"Private Sub Command1_Click()
dim vtdata
Inet1.Execute "http://localhost/test.asp", "post",
"user=gver&password=123456", header
Do While Inet1.StillExecuting '
DoEvents
Loop
vtData = Inet1.GetChunk(1024, icString)
End Sub -
saol hoca işime yarıycak...
-
Sağolasın gver,başka post yolları bulmuştum,bu da basite benziyor.Deneyecem.
-
bu çalışıyomu ???
-
nie çalışmasın ?
-
-
Belki lazım olur
Visual kodları:
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Lütfen tüm alanları doldurunuz.."
ElseIf Text1.Text = " " Or Text2.Text = " " Then
MsgBox "Boş bırakmayınız!"
Else
Inet1.OpenURL ("http://site.com/kaydet.asp?isminiz=" & Text2 & "&soyisminiz=" & Text1 & "&mail=" & Text3)
End If
Kaydet.asp :
<%
response.buffer=true
dosya = Server.MapPath("database.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dosya
Set baglanti = Server.Createobject("ADODB.Connection")
baglanti.Open (Bcumle)
Set kayit = Server.Createobject("ADODB.Recordset")
kayit.open "SELECT * FROM bilgiler", baglanti, 1, 3
kayit.addnew
kayit("isminiz") = Request.querystring("isminiz")
kayit("soyisminiz") = Request.querystring("soyisminiz")
kayit("mail") = Request.querystring("mail")
kayit("tarih") = DateAdd("h", 8, now())
kayit.update
kayit.Close
Set kayit = Nothing
baglanti.Close
Set baglanti = Nothing
%>
Bilgiler.asp :
<%
dosya = Server.MapPath("Database.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dosya
Set baglanti = Server.Createobject("ADODB.Connection")
baglanti.Open Bcumle,1,3
set kayit = Server.CreateObject("ADODB.Recordset")
kayit.open "SELECT * FROM bilgiler",baglanti,1
%>
<%
if kayit.recordcount = "0" then
response.write "<center><font size=2 face=Verdana color=#333333>Bilgi bulunamadi!</Font><br><hr size=1></center>"
end if
isminiz = Replace(isminiz,"<html>","html", 1, -1)
soyisminiz = Replace(soyisminiz,"<html>","html", 1, -1)
mail = Replace(mail,"<html>","html", 1, -1)
While Not kayit.eof
Response.Write("<center><font size=2 face=Verdana color=#333333>İsminiz: " & kayit("isminiz") & "<br>Soyisminiz: " & kayit("soyisminiz") & "<br>Mail: " & kayit("mail") & "<br>Tarih:" & kayit("tarih") & "<br>ID:" & kayit("id") & "<hr color=#CCCCCC size=1 width=60% ></font></center>")
kayit.MoveNext
Wend
%><center>
<font size="2" face="Verdana" color="#333333">Toplam bilgi:<%=kayit.recordcount%>
</font></center>
<%
kayit.Close
Set kayit = Nothing
baglanti.Close
Set baglanti = Nothing
%> -
destroyerin verdiğiyle gverinkinin arasında ne fark var açıklarmısınız?
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla