Files
Facilitor/APPL/API/shorturl.asp
Jos Groot Lipman 3e47b4a002 FSN#22214 lcl2db
svn path=/Website/trunk/; revision=5465
2012-01-30 09:08:34 +00:00

54 lines
1.8 KiB
Plaintext

<%@language = "javascript" %>
<% /*
$Revision: 6 $
$Modtime: 30-01-12 10:46 $
File: shorturl.asp
Description: Redirect naar een bookmark url
Parameters: u Bookmark die in de bookmark tabel moet zitten.
Dit moet de eerste parameter zijn als er nog meer komen
-- Optionele parameter(s): die worden allemaal blind
doorgegeven naar het volgende scherm
Context: Vanuit root
Note: Welbeschouwd is dit gewoon een url-shortener
http://sgf12/Facilitor5iWork/?u=J448UIrR43
Het is verleidelijk de u= parameter ook door te geven maar
dat is in tegenspraak met het betekenisloos zijn van de u-param
Als je dat wilt moet je maar BOOKMARK's gebruiken
*/
LCL_Disable = 1;
%>
<!-- #include file="../Shared/common.inc"-->
<%
var u = getQParam("u");
// For flexiblity reasons: Literal or runtime parameter(s), just pass through...
var rest = String(Request.ServerVariables("QueryString"));
rest = rest.substring(("u="+u).length+1);
var sql = "SELECT fac_bookmark_path, fac_bookmark_query"
+ " FROM fac_bookmark"
+ " WHERE fac_bookmark_id = " + safe.quoted_sql(u)
+ " AND (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)";
var oRs = Oracle.Execute(sql);
if (oRs.Eof)
{
Response.Write("URL NOT FOUND");
Response.End;
}
var url = oRs("fac_bookmark_path").Value;
if (oRs("fac_bookmark_query").Value)
{
url += "?" + oRs("fac_bookmark_query").Value + (rest?"&"+rest:"");
}
else
{
if (rest)
url += "?" + rest;
}
oRs.Close();
Response.Redirect(url);
%>