14. april 2005 - 14:54
Der er
1 kommentar
XML Post
Jeg har brug for at poste nogle variabler til en URL, som så giver mig et XML-dokument tilbage.
Jeg har prøvet nogle forskellige ting af med XMLHTTP, men det funker ikke.
Det burde ikke være det store trick - mon der er nogen, der har et script liggende?
14. april 2005 - 18:58
#1
hej...
du kan forsøge at få lidt inspiration fra dette her (har bare lige losset lidt forskellige ting sammen) :o):
<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<FORM ACTION="" METHOD="POST">
<INPUT TYPE="TEXT" NAME="string1" VALUE="string1"><br>
<INPUT TYPE="TEXT" NAME="string2" VALUE="string2"><br>
<INPUT TYPE="SUBMIT" NAME="SUBMIT" VALUE="SUBMIT"><br>
</FORM>
<%
dim xmldoc, bagitems
function loadxmlbag()
'tjekker og loader XML alt efter om det findes i session variablen...
set xmldoc = server.createobject("microsoft.xmldom")
if isempty(session("bagitems")) = false AND Len(session("bagitems")) > 0 then
xmldoc.loadxml Cstr(session("bagitems"))
set bagitems = xmldoc.documentelement
else
set bagitems = xmldoc.createelement("bagitems")
set xmldoc.documentelement=bagitems
end if
set loadxmlbag = bagitems
end function
sub addtoXML(sessionID, string1, string2)
'tjek om string eksisterer
set nodefind = bagitems.selectnodes("strings[@sessionID=""" & sessionID & """]")
if not nodefind.length > 0 then
set product = xmldoc.createelement("strings")
set attr = xmldoc.createattribute("sessionID")
attr.text = Server.HTMLEncode(sessionID)
product.attributes.setnameditem(attr)
set attr = xmldoc.createattribute("string1")
attr.text = Server.HTMLEncode(string1)
product.attributes.setnameditem(attr)
set attr = xmldoc.createattribute("string2")
attr.text = server.HTMLEncode(string2)
product.attributes.setnameditem(attr)
bagitems.appendchild(product)
end if
end sub
'load XML
set bagitems = loadxmlbag()
'put strings i XML
call addtoxml(session.SessionID, Request.Form("string1"), Request.Form("string2"))
'udskriv hvad der er skrevet i XML'en
for each item in bagitems.childnodes
Response.write item.getattribute("sessionID") & " "
Response.write item.getattribute("string1") & " "
Response.write item.getattribute("string2") & "<br>"
next
session("bagitems") = bagitems.xml
session.Abandon
%>
</BODY>
</HTML>
/hiks
Ny bruger
Nybegynder
Opret
Preview
