asp中有什么方法可以代替php的fsockopen函数

[歪歪]

主要是伪装http头的问题，郁闷的，我用xmlhttp.setRequestHeader伪装没调试成功

function HttpPostConnect($host,$path,$fieldArray=array())
{
$port=80;
if(sizeof($fieldArray) > 0) {
$body = _encodeFields( $fieldArray );
}else{
$body = "";
}
$len = strlen( $body );

$request=($body ? "POST" : "GET")." $path HTTP/1.0\r\n".
"Host: $host\r\n".
"Accept: */*\r\n".
"Accept-Language: en-us,zh-cn;q=0.5\r\n".
($body ? "Content-type: application/x-www-form-urlencoded\r\n" : "").
"Proxy-Connection: Keep-Alive\r\n".
($len ? "content-length: $len\r\n" : "").
"\r\n".
($body ? "$body" : "");
$fp = fsockopen( "$host", $port, $errno, $errdesc, 30 );
if(!$fp) return false;
fputs($fp,$request);
while(trim(fgets($fp,1024)) != "");
return $fp;
}

[歪歪]

自己先顶

[cpp2017]

asp没有socket函数, xmlhttp.setRequestHeader伪装不成功,说来听听有什么问题?

[歪歪]

提示
Error: Can not access from Browser

[歪歪]

function HttpPostConnect(host,path,fieldArray)
port=80
if IsObject(fieldArray) then
body = encodeFields(fieldArray )
else
body = ""
end if
xlen = len(body)
if xlen > 1 then
hMot = "POST"
hx = "Content-type: application/x-www-form-urlencoded" & mbr
lx = "content-length: " & xlen & chr(10) & mbr & body
else
hMot = "GET"
hx = ""
lx = "" & mbr & body
end if
hBod = hMot & " " & path & " HTTP/1.0" & mbr & "Host: " & right(host,len(host)-7) & mbr & "Accept: */*" & mbr
hBod = hBod & "Accept-Language: en-us,zh-cn;q=0.5" & mbr & hx & "Proxy-Connection: Keep-Alive" & mbr & lx

set Http=Server.createobject("MSXML2.XMLHTTP")
Http.Open hMot,host & path,False
Http.send(hBod)
Result = Http.Responsetext
HttpPostConnect = Result
end function

[歪歪]

mbr = chr(13)

:)

[deknight]

我觉得写个socket的动态库更好一些，在asp调用

[歪歪]

多谢楼上的朋友，呵呵

[hongwei1230]

哪位大哥能不能告诉我怎么开始学习ASP技术

[sib2000]

自己定议一个function