|
Grave Groomers, LLC <?=$_GET['catname']?> Resources
$value) {
$GLQS .= "&$key=".urlencode(stripslashes($value));
}
if(intval(get_cfg_var('allow_url_fopen')) && function_exists('readfile')) {
if(!@readfile("http://www.gotlinks.com/engine2.php?".$GLQS)) {
print "Error processing request";
}
}
elseif(intval(get_cfg_var('allow_url_fopen')) && function_exists('file')) {
if(!($content = @file("http://www.gotlinks.com/engine2.php?".$GLQS))) {
print "Error processing request";
}
else {
print @join('', $content);
}
}
elseif(function_exists('curl_init')) {
$ch = curl_init ("http://www.gotlinks.com/engine2.php?".$GLQS);
curl_setopt ($ch, CURLOPT_HEADER, 0);
curl_exec ($ch);
if(curl_error($ch))
print "Error processing request";
curl_close ($ch);
}
else {
print "It seems that your web host has disabled all functions for handling remote pages and as a result the GotLinks software
will not function on your web site. Please contact your web host and ask them to enable PHP curl or fopen.";
}
?>
<%
if Request.QueryString("ownerCode")="true" then
Response.Write("fc8701b6c16eb02ff1e2d32431b8b095")
else
dim textlength, nonslashtext
dim objXMLHTTP, sHTML
textlength = Len(Request.ServerVariables("SCRIPT_NAME"))
nonslashtext = textlength - 1
if request.querystring("newdata")="true" then
cid=request.querystring("cid")
uid=request.querystring("uid")
cat_name=request.querystring("cat_name")
fpath="http://www.links-exchange.net/English/sites.asp?cid="&cid&"&uid="&uid&"&cat_name="&cat_name&"&sid="&Right(Request.ServerVariables("SCRIPT_NAME"),nonslashtext)
On Error Resume Next
Set objXMLHTTP = Server.CreateObject ("Microsoft.XMLHTTP")
objXMLHTTP.open "GET", fpath, False
objXMLHTTP.send
sHTML=objXMLHTTP.ResponseText
Set objHTTP=Nothing
response.Write sHTML
elseif request.querystring("newdata")="t1" then
abc=request.querystring("abc")
siname=request.QueryString("siname")
name=request.querystring("name")
url=request.querystring("url")
criteria=request.querystring("criteria")
userid=request.querystring("userid")
On Error Resume Next
Set objXMLHTTP = Server.CreateObject ("Microsoft.XMLHTTP")
objXMLHTTP.open "GET", "http://www.links-exchange.net/English/links_directory.asp?name="&name&"&url="&url&"&criteria="&criteria&"&abc="&abc&"&SiteId=4107",
False
objXMLHTTP.send
sHTML=objXMLHTTP.ResponseText
Set objHTTP=Nothing
response.Write sHTML
else
On Error Resume Next
Set objXMLHTTP = Server.CreateObject ("Microsoft.XMLHTTP")
objXMLHTTP.open "GET", "http://www.links-exchange.net/English/links.asp?SiteId=4107&sid="&Right(Request.ServerVariables("SCRIPT_NAME"),nonslashtext),
False
objXMLHTTP.send
sHTML=objXMLHTTP.ResponseText
Set objHTTP=Nothing
response.Write sHTML
end if
end if
%>
|
