Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


VB kod till ASP-kod???

Postades av 2003-10-27 11:47:36 - Joachim Feldt, i forum asp - allmänt, Tråden har 3 Kommentarer och lästs av 558 personer

Hej,
Vi har en webservice som jag tänkte använda, men fattar inte så mycket...
Själva webservicen används till att få information om den inloggade användaren.

Efter mycket om och men fick jag lite vb-kod som skall användas, den ser ut så här:
<code>
Dim objXML As New DOMDocument40
Dim objRootElem As IXMLDOMNodeList
Dim result As IXMLDOMNodeList
Dim resElem As IXMLDOMElement
Dim email As IXMLDOMNodeList
Dim inn As String
inn = "kdcm006"
'Load XML in DOM Document
objXML.LoadXml ("<performSearchRequest xmlns=""PeopleSearchers""><PeopleSearch><PDLogonName value=""ditt id""/><PDPassWord value=""ditt lösenord""/><SearchAttribute name=""Username""><SearchValue value=""" + inn + """/></SearchAttribute><RequestedAttribute name=""Email""/><RequestedAttribute name=""Domain""/><RequestedAttribute name=""PRID""/></PeopleSearch></performSearchRequest>")

' Populate the IXMLDOMNodeList with the XML Document nodes
Set objRootElem = objXML.childNodes
' Instantiate the proxy, change to your implementation
Set objPDWS = New clsws_PDSearcherService
' Call the method on the proxy and put result in IXMLNodeList
Set result = objPDWS.wsm_performSearchRequest(objRootElem)
Dim doc2 As MSXML2.DOMDocument30
Dim node As IXMLDOMNode
Set doc2 = New MSXML2.DOMDocument30
'Load new Xml Document with result from search.
doc2.LoadXml (result.Item(0).xml)
MsgBox (doc2.xml)

' Get specified tag in DOM document
Set objNodeList = doc2.getElementsByTagName("Email")
MsgBox ("Found Email: "+objNodeList.Item(0).Text)
</code>
Detta skall fungera att använda från en asp-sida också säger dom, men jag vet inte hur jag "konverterar detta" till asp-kod.

Någon vänlig själ som kan hjälpa mig??

/Jocke


Svara

Sv: VB kod till ASP-kod???

Postades av 2003-10-27 13:04:36 - Andreas Hillqvist

Detta kanske kan var en början. MEn du måste kolla upp Biblioteksnamnet för clsws_PDSearcherService och ersätta xxxxxxxx med det.
<code>
Dim objXML 'As New DOMDocument40
Dim objRootElem 'As IXMLDOMNodeList
Dim result 'As IXMLDOMNodeList
Dim resElem 'As IXMLDOMElement
Dim email 'As IXMLDOMNodeList
Dim doc2 'As MSXML2.DOMDocument30
Dim node 'As IXMLDOMNode
Dim inn 'As String
inn = "kdcm006"


'Load XML in DOM Document
Set objXML = Server.CreateObject("MSXML2.DOMDocument40")
objXML.LoadXml "<performSearchRequest xmlns=""PeopleSearchers""><PeopleSearch><PDLogonName value=""ditt id""/><PDPassWord value=""ditt lösenord""/><SearchAttribute name=""Username""><SearchValue value=""" + inn + """/></SearchAttribute><RequestedAttribute name=""Email""/><RequestedAttribute name=""Domain""/><RequestedAttribute name=""PRID""/></PeopleSearch></performSearchRequest>"

' Populate the IXMLDOMNodeList with the XML Document nodes
Set objRootElem = objXML.childNodes

' Instantiate the proxy, change to your implementation
Set objPDWS = Server.CreateObject("xxxxxxxx.clsws_PDSearcherService")

' Call the method on the proxy and put result in IXMLNodeList
Set result = objPDWS.wsm_performSearchRequest(objRootElem)

Set doc2 = Server.CreateObject("MSXML2.DOMDocument30")
'Load new Xml Document with result from search.
doc2.LoadXml result.Item(0).xml

' Response.Write Server.HTMLEncode(doc2.xml)

' Get specified tag in DOM document
Set objNodeList = doc2.getElementsByTagName("Email")
Respoinse.Write "Found Email: " & objNodeList.Item(0).Text
</code>


Svara

Sv: VB kod till ASP-kod???

Postades av 2003-10-28 08:59:21 - Joachim Feldt

Tack för ditt svar!!

Jag kom en bit längre på vägen, men ett problem har jag:
Jag kan inte skapa DOM dokumentet
<code>
Set objXML = Server.CreateObject("MSXML2.DOMDocument40")
</code>
inte heller om jag byter mot "30". Jag får felmeddelande "Server.CreateObject Failed".
Tar jag däremot bort 40 och bara skriver:
<code>
Set objXML = Server.CreateObject("MSXML2.DOMDocument")
</code>
Så fungerar den delen, men då får jag problem längre ner i min kod.

MSMXL 4 är installerat på servern.

Några idéer??

/Jocke


Svara

Sv: VB kod till ASP-kod???

Postades av 2003-10-29 20:39:27 - Joachim Feldt

löste det..
Skall ju vara:
<code>
Set objXML = Server.CreateObject("MSXML2.DOMDocument.4.0")
</code>


Svara

Nyligen

  • 08:28 Butiksskyltar: Hur upplever utbude
  • 22:31 Slappna av
  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 792
27 960
271 761
479
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies