求ASP socket例子

今天从网上找了一天，关于ASP Socket的例子，都没有找到。希望大家能给个例子，实现从服务器上获取信息就可以。
下面是PHP的源码，求相关的ASP源码
function getBalance($reg, $pwd){
        $res = new ResFee();
        if($reg == null || strlen($reg) == 0){
            $res->result = -1;
            $res->des = "注册号不能为空！";
            return res;
        }
        if($pwd == null || strlen($pwd) == 0) {
            $res->result = -1;
            $res->des = "密码不能为空！";
            return res;
        }
        $path = "<END><COMMAND>S059</COMMAND><REGISTRYCODE>$reg</REGISTRYCODE><PWD>$pwd</PWD></END>";
        
        
        $path=mb_convert_encoding($path, "UTF-8", "GBK");      

            $address = gethostbyname($this->host);
            /* Create a TCP/IP socket. */
            $socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);   //主要是这个方法，在ASP里不知道怎么用
            $result = socket_connect($socket, $address, $this->port); //还有这个

            // make header
            $in = "GET ".$path." HTTP/1.0\r\n";
            $in .= "Content-Type: application/x-www-form-urlencoded\r\n";
            $in .= "\r\n\r\n";
            // out data
            $out = '';
            
            socket_write($socket, $in, strlen($in));          //不知道这个方法在ASP里有没有对应的方法
            while ($out = socket_read($socket, 2048)) {        
                $temp_out .= $out;
                //结束标志
                if (preg_match("/<\/DES>/",$temp_out )) {
                    break;
                }
            }
            //关闭socket链接
            socket_close($socket);

            //处理返回结果
            preg_match("/<DES>(.*)<\/DES>/i",$temp_out,$matches);
            
            //处理返回结果$matches[1]
            $i = strpos($matches[1],'result=', 0);
            $j = strpos($matches[1],'&balance=', 0);
            if($j >0){
                if(($j - $i - 7) <= 0){
                    $res->result = -1;
                    $res->des = '接收服务器错误！';
                    $res->balance = -1;
                }else if (($j - $i - 7) > 0) {
                    $result = (int)substr($matches[1],$i+7,$j);
                    if((strlen($matches[1])- $j - 4)>0){
                        $des = substr($matches[1],$j + 9,strlen($matches[1]));
                        $res->result = $result;
                        $res->des = '查询余额成功';
                        $res->balance = (int)$des;
                    }else{
                        $res->result = -1;
                        $res->des = '接收服务器错误！';
                        $res->balance = -1;
                    }
                }
            }
            return $res;        
    }