Précédent   Forum des professionnels en informatique > Webmasters - Développement Web > Langages serveur > ASP
ASP Forum sur la programmation ASP. Avant de poster : Cours ASP, FAQ ASP
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 17/11/2011, 17h16   #1
Membre chevronné
 
Avatar de Oliv-
 
Inscription : mars 2006
Messages : 643
Détails du profil
Informations personnelles :
Âge : 41

Informations forums :
Inscription : mars 2006
Messages : 643
Points : 699
Points : 699
Par défaut tester existence url sur HTTPS SHAREPOINT

Bonjour,
J'ai un site web en ASP, avec des liens vers des dossiers dans une "document library" Sharepoint sur un site en HTTPS.

le but est de tester si le DOSSIER existe (mon URL), sinon j'ouvre le dossier parent.

Mon code fonctionne en HTTP mais pas sur ce site qui est du SHAREPOINT en HTTPS

Merci de m'indiquer une solution, eventuellement faisant appel à une autre technologie que Msxml2 pour tester cela ?

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function URLexiste(urlStr)
    Dim xmlHttp
    Dim retStr
    Set xmlHttp = Server.CreateObject("Msxml2.XMLHTTP")
    'Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
     'Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
    Err.Clear
    'On Error Resume Next
    xmlHttp.Open "HEAD", urlStr, False, "LOGIN", "PASSWORD"
 
    xmlHttp.setRequestHeader "Content-Type", _
                             "application/x-www-form-urlencoded"
    xmlHttp.send
    If Err.Number = 0 Then
        lapage = xmlHttp.responseText
        If xmlHttp.Status = 404 Or xmlHttp.Status = 401 Then
            'If InStr(LCase(lapage), "404") <> 0 Or xmlHttp.Status = 401 Then
            URLexiste = False
        Else
            URLexiste = True
        End If
    Else
        URLexiste = False
    End If
    Set xmlHttp = Nothing
End Function
Message d'erreur :
Citation:
msxml3.dll error '800c0008'
Erreur système : -2146697208.
test_url.asp, line 19
Edit : si je lance ce code en VBA excel, ça fonctionne ?!
Oliv- est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 13h48.


 
 
 
 
Partenaires

Hébergement Web