Avatar billede celal Nybegynder
10. maj 2006 - 14:48 Der er 3 kommentarer og
1 løsning

Oversættelse fra PHP til ASP

Er der nogen som kan oversætte dette PHP script til APS?

  $user = $_POST[user];
  $password = $_POST[password];
 
  $host = "www.geo.dk";
  $path = "/dyrelexlogin/login.asp";
  $data = "user=$user&password=$password";
 
  $http_response="";
  $fp=fsockopen($host, 80);
  fputs($fp, "POST $path HTTP/1.1\r\n");
  fputs($fp, "Host: $host\r\n");
  fputs($fp, "Content-Type: application/x-www-form-urlencoded\r\n");
  fputs($fp, "Content-Length: " . strlen($data) . "\r\n");
  fputs($fp, "Connection: close\r\n\r\n");
  fputs($fp, "$data");
  while(!feof($fp)) $http_response.=fgets($fp, 128);
  fclose($fp);
  list($http_headers, $http_content)=explode("\r\n\r\n", $http_response);
 
if(ereg("<Access>(.*)</Access>",$http_content,$regs)) {
    $_SESSION[access]=$regs[1];
  } else {
  $_SESSION[access] = fejl;
  }
Avatar billede virus Nybegynder
11. maj 2006 - 15:39 #1
Bare lidt hurtigt, er ikke testet men skulle være derhen af..

sUser    = Request.Form("user")
sPassword = Request.Form("password")

sHost    = "www.geo.dk"
sPath    = "/dyrelexlogin/login.asp"
sData    = "user=" & sUser & "&password=" & sPassword

sFejl    = "Fejl!!"

Set oXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
    oXMLHTTP.Open "POST", sHost & sPath, False
    oXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    oXMLHTTP.Send sData

Set oRegEx = New RegExp
    oRegEx.Global = False
    oRegEx.IgnoreCase = True
    oRegEx.Pattern "(\n|.)*<Access>(.*)</Access>(\n|.)*"

Select Case oRegEx.Test(oXMLHTTP.ResponseText)
    Case True : oRegEx.Replace(oXMLHTTP.ResponseText, "$2")
    Case False: Session("access") = sFejl
End Select
Avatar billede virus Nybegynder
11. maj 2006 - 15:39 #2
Case True : oRegEx.Replace(oXMLHTTP.ResponseText, "$2")

Skal jo være

Case True : Session("access") = oRegEx.Replace(oXMLHTTP.ResponseText, "$2")
Avatar billede celal Nybegynder
14. maj 2006 - 13:19 #3
tak
Avatar billede celal Nybegynder
08. april 2010 - 13:54 #4
Lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester