<?
$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";
}
?>
|
