日期:2013-01-22  浏览次数:20606 次

<?

     $ASPservername  :  此变量必须有IP在
                         /etc/hosts文件内.
    
     $ASPport        :  ASP文件服务器端口号.
    
     $ASPpath        :  在服务器端的ASP文件路径.
           
     $ASPfile        :  ASP文件名
    
     $ASPurlredirect :  $ASP文件参数.
    
    //设置变量
   $ASPservername  =  "WEB_SQLSERVER";
   $ASPport        = 80;
   $ASPpath        =  "/development/sqlserver/";
   $ASPfile        =  "storedprocs.asp?";
   $ASPurlredirect =  "clienthostpage=".strstr($SCRIPT_NAME, "/");

    //连接IIS/ASP服务器  
   $fp=fsockopen($ASPservername, $ASPport, &$errno, &$errstr);

   if($fp) {
       //GET模式到服务器  
      $sRequest = "GET ".$ASPpath.$ASPfile;
      $sProtocol= " HTTP/1.0 \n\n";

      if (!strlen(chop($QUERY_STRING))){
         $httpget=$sRequest.$ASPurlredirect.$sProtocol;
      } else {
         $httpget=$sRequest.$QUERY_STRING.$sProtocol;
      }

       //从客户端发送请求到ASP文件
      fputs($fp,$httpget);

       //处理返回结果
      while(!feof($fp)) {
         $line=fgets($fp,128);

          //显示ASP文件返回结果
         if ($bTripped){
            echo $line;
         } else {
             //处理IIS头信息
            $bTripped=strstr(strtoupper($line), "<HTML>");
            if ($bTripped) echo $line;
         }
      }
      fclose($fp);
   } else {
      echo  "$errstr ($errno)<br>\n";  
   }
?>
转自:动态网制作指南 www.knowsky.com