webForumDet fria alternativet

asp/xml

1 svar · 240 visningar · startad av SteveP

StevePMedlem sedan mars 2003772 inlägg
#1

Här är en funktion som kollar om login o pass finns via xml.
Laddar xml och skapar ett objekt av <session> som finns i xml.

Sessionen blir tom, nån ide?

<%Option Explicit%>
<%

Dim wcUrl
wcUrl = "http://www.generationv.se/worldclient/WorldClient.dll"

Function GetSessionID (ByVal userName, ByVal password)
	'// SEND ORDER
	Dim objSrvHTTP, objXMLDocIn, sessionID, sessions
	
	Set objXMLDocIn = Server.CreateObject("MSXML2.DOMDocument")
	objXMLDocIn.preserveWhiteSpace = True
	objXMLDocIn.async = False
	Set objSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
	
	objSrvHTTP.open "POST", wcUrl & "?View=StatusCheck&GetSession=Yes&User=" & userName & "&password=" & password  , False
	objSrvHTTP.send ()
	objXMLDocIn.loadxml(objSrvHTTP.responseText)
	
	Set objSrvHTTP = Nothing
	Set sessions = objXMLDocIn.selectSingleNode(".//session")
	If sessions Is Nothing Then
		sessionID = "UNABLE TO LOGIN"
	Else
		sessionID = sessions.text
	End If
	GetSessionID = sessionID
End Function

Dim sessionID
sessionID = "dude."
sessionID = GetSessionID(request("name"),request("pass"))

response.write "sessionID = " & sessionID
response.write "<br><a href=""http://www.generationv.se/worldclient/WorldClient.dll?View=StatusCheck&GetSession=Yes&User=" & request("user") & "&password=" & request("pass") & """>[url]http://www.generationv.se/worldclient/WorldClient.dll?View=StatusCheck&GetSession=Yes&User=[/url]" & request("user") & "&password=" & request("pass") & "</a>"

Response.write "<br><br><a href=""" & wcUrl & "?Session=" & sessionID & "&View=List"">" & wcUrl & "?Session=" & sessionID & "&View=List</a>"

%>
@ndersMedlem sedan juni 200032 969 inlägg
#2

Hur ser xml:en ut?

134 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)