Hi I'm after a good link exchange script, wherby I can check if a link has been reciprocated.
Im just wondering what scripts people use, that are reliable and work well.
Cheers!
I don't know of any pre-made scripts, but you could always just write something yourself, its pretty easy. Just store the links in a database. Ask the user to enter the location of the page they have added your link on, and scrape that page for your link. If you find it, then show their link, otherwise don't.
Websites for Sale - Browse sites for sale and place an ad for free.
Social Shopping - Join our affiliate program
Try http://www.hotscripts.com I'm sure they have a load - some free, some for a nominal fee.
Dave
Hi,Originally Posted by mobillica
If you look for a simple script try this one:
Site:
http://www.phpjunkyard.com/php-link-manager.php ,
Forum:
http://developers.phpjunkyard.com/vi...eff5dabd82ad42 .
I use it for some of our sites and it works fine.
Link checker
DoCheck.asp
Code:<html> <head> </head> <body bgcolor="#FFFFFF" leftmargin="10" topmargin="0" marginwidth="10" marginheight="0"onmouseover="window.status='';return true;"> <center> <P> </P><P><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B>Check If A URL actualy exists....... <BR>and also check for a specific string of text in a Remote website.</B></FONT></P><form method="POST" action="CheckLink.asp" name="CheckURL"> <table BORDER="0" CELLSPACING="0" CELLPADDING="4"> <tr> <td BGCOLOR="#FF0000"> <div align="right"><FONT COLOR="#FFFFFF" SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif"><b>URL to check:</b></FONT></div></td><td> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <input type="text" name="url" value="http://" title="REMEMBER we check ALL sites !!!!!" size="80"> </b></font></td></tr> <tr> <td BGCOLOR="#FF0000"> <div align="right"><FONT COLOR="#FFFFFF" SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif"><b>Text to search for:</b></FONT></div></td><td> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <input type="text" name="des" title="Please enter a DECENT Text!" size="80"> </b></font></td></tr> <tr> <td colspan=2> <div align="center"><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif" COLOR="#FFFFFF"> <input type="submit" value="Add Your Site" name="B1"> <input type="reset" value="Oops" name="B2"> </FONT></div></td></tr> </table></form></center><p align="center"> </p> </body> </html>
CheckLink.asp
handy dandy google pr link checker if you are plannig a link exchange site could prove usefulCode:<html> <head> <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% Dim SCheckUrl, Back URL = Request.Form("url") ValidateText = Request.Form("des") SCheckUrl = VerifyUrl( sUrl ) Function VerifyUrl( s1 ) set xmlhttp = server.CreateObject("MSXML2.ServerXMLHTTP") on error resume next xmlhttp.open "GET", URL, false xmlhttp.send "" if err.number <> 0 then VerifyUrl = "The website you submited could NOT BE FOUND.<br> Check your spelling of "& URL & " <a href=" & URL & " target=blank ><b><i>here</i></b></a>" Exit Function else if instr(xmlhttp.responseText,ValidateText)>0 then Exit Function else VerifyUrl = "There is <b>NO</b> No Text containing: <b>"& ValidateText &" </b><br>found on <a href=" & URL & " target=blank >"& URL & "</a>" Exit Function end if end if set xmlhttp = nothing End Function %> <BR><BR><BR><TABLE BORDER="1" CELLSPACING="0" CELLPADDING="4" BORDERCOLOR="#FFFFFF" ALIGN="CENTER"> <TR><TD BGCOLOR="#FF0000"><DIV ALIGN="RIGHT"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" COLOR="#FFFFFF"><% If SCheckUrl <> "" Then Back = 1 %><B>check--></B></FONT></DIV></TD><TD><DIV ALIGN="LEFT"><FONT FACE="Verdana, Arial, Helvetica, sans-serif"><%=SCheckUrl%><%End If%></FONT></DIV></TD></TR></TABLE><BR><% If Back = 1 Then %><DIV ALIGN="CENTER"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><FONT SIZE="5"><B>There is an <FONT COLOR="#FF0000" FACE="Times New Roman, Times, serif">ERROR</FONT> !!!</B></FONT></font></DIV><p align="CENTER"><font size="1"><a href=javascript:history.go(-1)> <FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><FONT COLOR="#FF0000"><<-- back</FONT></B></FONT></a> </font> <FONT COLOR="#FF0000"><B><%End If If SCheckUrl="" Then 'Do something here %> </B></FONT><p align="CENTER"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="3">Your text search for</FONT><FONT COLOR="#FF0000" SIZE="3"><B><FONT FACE="Verdana, Arial, Helvetica, sans-serif"> <%=ValidateText%> </FONT></B></FONT><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="3">was found</FONT><FONT COLOR="#FF0000" SIZE="3"><B><FONT FACE="Verdana, Arial, Helvetica, sans-serif"> </FONT></B></FONT><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="3">on</FONT><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1"> <A HREF="<%=URL%>" TARGET="_blank"> <%=URL%></A></FONT><p align="CENTER"> <a href=javascript:history.go(-1)> <FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><FONT COLOR="#FF0000"><<-- Search again ?</FONT></B></FONT></a> <%end if %> </body> </html>
'' not mine but a great little func
to useCode:Function GetPR(ByRef Address) On Error Resume Next SET objSpider = Server.CreateObject("Microsoft.XMLHTTP") strHeaders = "email=can@aspindir.com" _ & "&site=http://www.finarfin.net" _ & "©right=Can HANHAN > finarfin" _ & "&A=" & Server.URLEncode(Address) objSpider.open "GET", "http://www.aspindir.com/finarfin/hilal/pr.asp?" & strHeaders, False objSpider.send IF Err THEN GetPR = "n/a" ELSE GetPR = objSpider.ResponseText END IF End Function
<%=GetPR("http://www.future-websites.com")%>
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Reply With Quote
Bookmarks