S

Er
31 Ocak 2007
Tarihinde Katıldı
Takip Ettikleri
0 üye
Görüntülenme (?)
3 (Bu ay: 0)
Gönderiler Hakkında
S
16 yıl
işlem yapılmadığında mause takılması
merhaba arkadaşlar uzun zamandır bu sorunla karşı karşıyayım ne yaptıysam netice vermedi. bilgisayar ilk açıldığında normal olarak fare çalışıyor. sürekli kullanırken bir sorun yok. ama masamdan kalkıyorum tekrar geldiğimde fareyi oynatmaya çalışıyorum hareket etmiyor. düzeltmek için her defasında farenin usb kablosunu tekrar çıkarıp takmak zorunda kalıyorum o zaman düzeliyo. ara sıra masama gelip fareye dokunduğumda statik elektrikden dolayı çarpılıyorum. lütfen birisi yardım etsin. saygılarımla.
S
16 yıl
Asp Soap webservices
Merhaba asp sitemde soap ile sorgu gönderdiğimde böyle bir xml geri dönüyor. Sebebi ne olabilir. Aynı bilgiyi iki kere de göndermiyorum.

<?xml version="1.0" encoding="utf-8" ?>
<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<soap:Body>
<soap:Fault>
<soap:Code>
<soap:Value>soap:Receiver</soap:Value>
</soap:Code>
<soap:Reason>
<soap:Text xml:lang="en">Server was unable to process request. ---> The entry 'Database Trace Listener' has already been added. (C:\Web\connact\web.config line 14)</soap:Text>
</soap:Reason>
<soap:Detail />
</soap:Fault>
</soap:Body>
</soap:Envelope>

Buda soap ile sorgu yaptığım kod. Aşağıda iki kere yaptığım birşey var mı ?

postdata = postdata & "</soap12:Body>"
postdata = postdata & "</soap12:Envelope>"

Set Xobj = Server.CreateObject("MSXML2.ServerXMLHTTP")
Xobj.open "POST","http://www.site.com/post.asmx" ,false
Xobj.setRequestHeader "Content-Type", "application/soap+xml; charset=utf-8"
Xobj.setRequestHeader "Content-Length", "postdata.length"
Xobj.setRequestHeader "SOAPAction", "http://site.com/Sales"
Xobj.send postdata

result = Xobj.Responsetext
Set Xobj = Nothing
xactResult = result
response.write xactResult
response.end
S
17 yıl
Vakıfbank Sanal Pos
Arkadaşlar Asp ile kodlanmış bir alışveriş sitemiz var. Sitemize Vakıfbank tanımlı değildi. Şimdi vakıfbank ıda aldık ve bize kod gönderdiler. Ama ne kadar uğraştıysam entegre edemedim. Sistem hangi taksite tıklanırsa o bankanın dosyasını otamatik olarak seciyor. (vposvakif.asp)

Bize gönderdiği kodlar.

<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>VakıfBank VPos-724</title>
</head>
<body>

<%

Dim Donus
Dim RequestMsg

RequestMsg="V3 MESAJ FORMATINA UYGUN OLARAK MESAJ"

Set x = Server.CreateObject("Msxml2.XMLHTTP")
x.open "GET", "https://subesiz.vakifbank.com.tr/vpos724v3/?" & RequestMsg, False
x.send

Donus=x.responseText

response.write("<p>Cevap:" & Donus)

response.write("<p>Donus cevabi XML formatindadir.Parse edilerek dokumana uygun sekilde kullanilmalidir.")

%>

</body>
</html>


Talep mesajı bu şekilde olucakmış.

HTTP GET methodu için aşağıdaki query string kullanılabilir:
?kullanici=0001&sifre=12345678&islem=PRO&uyeno=061234567&posno=04123456&kkno=0000000000000000&gectar=0000&cvc=000&tutar=000010000000&provno=000000&taksits=00&islemyeri=I&uyeref=UYEREF&vbref=0&khip=195.195.195.195&xcip=1111111111


Örnek geri dönen cevap mesajı

<Cevap><Msg>
<Kod>00</Kod><Status>01</Status>
<Tutar>999998</Tutar><ProvNo>793224</ProvNo>
<PPuan>000000050000</PPuan><PPuanTL>000000050000</PPuanTL>
<EPuan/><EPuanTL>000000000000</EPuanTL>
<SPuan>000000075000</SPuan><SPuanTL>000000075000</SPuanTL>
<HPuan>000000000000</HPuan><HPSatis>000000000000</HPSatis>
<HBPuan>000000603353</HBPuan>
<TaksitS>02</TaksitS>
<Mesaj>ONAY KODU:793224</Mesaj>
<VBRef>0DDF106A136A211645ECEF072D1077AA002A8D1E</VBRef><UyeRef>UYEREF123</UyeRef>
<BKMKod>08</BKMKod>
</Msg></Cevap>


Ve bizim sistemde oLan çalışır durumdaki Yapıkredi örnek kod.

<%

Number = Trim(Number)
Ay = Trim(Right(Ay,2))
Yil = Trim(Right(Yil,2))
Cvv2Val = Trim(Cvv2Val)
total = Trim(total)
gExpire = Ay & Yil

'--------------------------------------------
gServer = "https://www.posnet.ykb.com/PosnetWebService/XML"
'gServer = "http://setmpos.ykb.com/PosnetWebService/XML" 'TEST
'--------------------------------------------

postdata = "<posnetRequest>" & vbNewLine
postdata = postdata & " <mid>" & Name & "</mid>" & vbNewLine
postdata = postdata & " <tid>" & Password & "</tid>" & vbNewLine
postdata = postdata & " <sale>" & vbNewLine
postdata = postdata & " <amount>" & total & "</amount>" & vbNewLine
postdata = postdata & " <ccno>" & Number & "</ccno>" & vbNewLine
postdata = postdata & " <currencyCode>YT</currencyCode>" & vbNewLine
postdata = postdata & " <cvc>" &Cvv2Val& "</cvc>" & vbNewLine
postdata = postdata & " <expDate>" &gExpire& "</expDate>" & vbNewLine
postdata = postdata & " <orderID>" & OrderId & "</orderID>" & vbNewLine
postdata = postdata & " <installment>" &taksit& "</installment>" & vbNewLine
postdata = postdata & " </sale>" & vbNewLine
postdata = postdata & "</posnetRequest>" & vbNewLine

'------------------------------------
postData = "?xmldata=" & Server.URLEncode(postData)
'------------------------------------
Set Xobj = Server.CreateObject("Msxml2.XMLHTTP")
Xobj.Open "POST",gServer,false
Xobj.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
Xobj.Send postData
result = Xobj.Responsetext

'Set Xobj = CreateObject("SOFTWING.ASPtear")
'Xobj.FollowRedirects=True
'result = Xobj.Retrieve(gServer, 1, postData, "", "")

Set Xobj = Nothing

donenxml = result

'Response.Write "<P>" & donenxml
'Response.End

'------------------------------------
Set objXML = CreateObject("Microsoft.XMLDOM")
objXML.async = false
objXML.LoadXML donenxml

approved = objXML.childNodes(1).childNodes(0).text
respCode = objXML.childNodes(1).childNodes(1).text
respText = objXML.childNodes(1).childNodes(2).text
yourIP = objXML.childNodes(1).childNodes(3).text

sonuc ="<B>İşlem Sonucu dönen değerler</B><P> "
sonuc = sonuc & "approved :" & approved & "<BR>"
sonuc = sonuc & "respCode :" & respCode & "<BR>"
sonuc = sonuc & "respText :" & respText & "<BR>"
sonuc = sonuc & "yourIP :" & yourIP & "<BR>"

'response.write sonuc
'response.End

Set objXML=Nothing

'------------------------------------

If approved <> 0 Then

k_sonuc="ok"

Else

k_sonuc="hata"
hata = respCode &"<P>"& respText

End If

%>
S
19 yıl
acil yardım svideo çıkışı dv çıkışa dönüştüren kablo yada adaptör var mı yardım lütfen
acil yardım svideo çıkışı dv çıkışa dönüştüren kablo yada adaptör var mı yardım lütfen
S
19 yıl
acil yardım svideo çıkışı dv çıkışa dönüştüren kablo yada adaptör var mı yardım lütfen
acil yardım svideo çıkışı dv çıkışa dönüştüren kablo yada adaptör var mı yardım lütfen
S
19 yıl
Link ve Banner Degişimleri
arkadaslar link vermek isteyenler haber verebilirler

iletisim@ugurfoto.com email adresini kullanabilirsiniz

www.ugurfoto.com



< Resime gitmek için tıklayın >

< Resime gitmek için tıklayın >
DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.