Extended Urls / Fake Urls
:How to extend your urls dynamically using a Mysql Database without having file structures for every directory in your Url's, this code will improve search engine status of your website and much more.
Original Author: Mr.Miagi
Code
404.asp this <%option <% dim refer= indexc=instrrev(refer,"/") '++++++++++++++++++++++++++++++++++++++++++++++++++ '+ '+ and '+ '++++++++++++++++++++++++++++++++++++++++++++++++++ if ( strpage = Right(refer,Len(refer)- refer end if strpage=replace(strpage,".html","") strpage=replace(strpage,".htm","") '++++++++++++++++++++++++++++++++++++++++++++++++++ '+ '+ '+ '++++++++++++++++++++++++++++++++++++++++++++++++++ set connection SQL = dbcon.open(connection) set dbrs.open sql, dbcon if not '++++++++++++++++++++++++++++++++++++++++++++++++++ '+ '+ '+ '++++++++++++++++++++++++++++++++++++++++++++++++++ set session(" '++++++++++++++++++++++++++++++++++++++++++++++++++ '+ '+ ( '+ '++++++++++++++++++++++++++++++++++++++++++++++++++ server.transfer("/asp/"&realpage&".asp") else response.redirect("index.html") dbrs.close dbcon.close end if %> Wwwroot/asp/urlgen.asp this <% '++++++++++++++++++++++++++++++++++++++++++++++++++ '+ this page writes our very false urls '+ them into links '++++++++++++++++++++++++++++++++++++++++++++++++++ '++++++++++++++++++++++++++++++++++++++++++++++++++ '+ this is our domain, change it to your domain '+ domain format must include http://'YOUR DOMAIN'/ '++++++++++++++++++++++++++++++++++++++++++++++++++ const url="http://halonation.com/" '++++++++++++++++++++++++++++++++++++++++++++++++++ '+ our function for creating urls '+ writes a link with the db urls, '+ and pagename+ a . '++++++++++++++++++++++++++++++++++++++++++++++++++ Function CreateUrl(ID) set dbcon = server.createobject(" connection = "Driver={Mysql}; SQL = "SELECT * FROM `pages` WHERE PageID='"&ID&"'" dbcon.open set dbrs = server.CreateObject(" dbrs.open if not dbrs.eof then pagename pagedir CreateUrl end if dbrs.close dbcon.close End Function '++++++++++++++++++++++++++++++++++++++++++++++++++ '+ our function for making the link name '+ connects, gets linkname from the '++++++++++++++++++++++++++++++++++++++++++++++++++ Function CreateName(ID) set dbcon = server.createobject(" connection = "Driver={Mysql}; SQL = "SELECT `linktext` FROM dbcon.open set dbrs = server.CreateObject(" dbrs.open if not dbrs.eof then CreateName end if dbrs.close dbcon.close End Function '++++++++++++++++++++++++++++++++++++++++++++++++++ '+ connection strings '+ rowcount gets the number of rows '++++++++++++++++++++++++++++++++++++++++++++++++++ set dbcon = server.createobject(" connection = "Driver={Mysql}; SQL = "SELECT COUNT(*) as Count FROM `pages`" dbcon.open set dbrs = server.CreateObject(" dbrs.open RowCount '++++++++++++++++++++++++++++++++++++++++++++++++++ '+ we loop Loopvar1 to Rowcount to '+ inside the DB, you might want to change this '+ depending on which page it is displayed on., '+ just remove rowcount= '+ RowCount='YOUR COUNT '++++++++++++++++++++++++++++++++++++++++++++++++++ for LoopVar1=0 to RowCount%> <a href=<%=CreateUrl(LoopVar1)%>><%= <br> <%next '++++++++++++++++++++++++++++++++++++++++++++++++++ '+ disposing of garbage.. '+ '++++++++++++++++++++++++++++++++++++++++++++++++++ set dbrs=nothing set dbcon=nothing%> Use This SQL To create your table CREATE TABLE `pages` ( ) TYPE=MyISAM; To Conclude, write a <!--#include virtual=”./asp/ Summary: This Code has been provided free grant of use Copywrite
http errors. style='background:#B3B3B3;border-collapse:collapse;border:none;mso-border-alt:
solid windowtext .5pt;mso-yfti-tbllook:480;mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-border-insideh:.5pt solid windowtext;mso-border-insidev:.5pt solid windowtext'>
explicit%>
refer, indexc, strpage,strpagename,
dbcon, connection, sql,
getting the number of "/" in refer
stripping them off
then removing the .htm or .html from them
= Left(refer,indexc-1)
that we stripped above
= "Driver={Mysql}; Server=69.56.199.234;
Database=; UID=; PWD=;"
"SELECT * FROM `pages` WHERE PageName='"&
dbrs.eof then
setting our variables
setting the session of the pageID since we cannot
transfer regular variables in server.transfer
Sending the user a page, but not redirecting them
name. EX. "News"
then we redirect them to our main page if it is a REAL 404 error
style='background:#333333;border-collapse:collapse;border:none;mso-border-alt:
solid windowtext .5pt;mso-yfti-tbllook:480;mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-border-insideh:.5pt solid windowtext;mso-border-insidev:.5pt solid windowtext'>
and puts
page directories
Server=69.56.199.234; Database=; UID=; PWD=;"
DB, and returns it
Server=69.56.199.234; Database=; UID=; PWD=;"
`pages` WHERE PageID='"&ID&"'"
total, for our Loop
Server=69.56.199.234; Database=; UID=; PWD=;"
write every link
correctly. style='background:#0C0C0C;border-collapse:collapse;border:none;mso-border-alt:
solid windowtext .5pt;mso-yfti-tbllook:480;mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-border-insideh:.5pt solid windowtext;mso-border-insidev:.5pt solid windowtext'>
`PageID` tinyint(4)
NOT NULL auto_increment,
`PageName` tinytext,
`PageDir` text,
`RealPage` tinytext,
`LinkText` tinytext,
PRIMARY KEY (`
root/asp/ where you want your links generated. And always- CUSTOMIZE
Extended Urls help with marketing, page rank on
search engines, and much more. Without having to really make all the
directories physically. I have a running example of this code at
or any url you can think of that isn't on my web
server- J
On A side note, if anyone finds out a way to include char(63), ?, or ?
getting a server.mappath error, please tell me,
because that is one of the things that would make this script Very Good.
non-commercially
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.