使用<meta>标签的ASP源程序例子

作者： unknow

utils/Init.asp
<%
// ============================================
// NOTE: all source code downloaded from CoverYourASP was written by
// James Shaw (unless stated otherwise), and is copyright (c) 2000 by
// James Shaw. You may use this source code on your web sites, but
// please don@#t publish or distribute in any way.
//
// I would appreciate an HTML comment in any code you use, i.e.
// 
// (see Footer(), documented in SSI.asp for details on how to do this)
//
// <shameless plug>
// Please contact me to discuss any ASP contract work you may have.
// </shameless plug>
// ============================================

// ============================================
// the standard meta tags to start document
// ============================================
function Init ( sTitle, sKeywords )
{
Out ( @#<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-
html40/loose.dtd">@# );
Out ( @#<html><head>@# );
Out ( @#<base target="_top">@# );

// for any browsers
Out ( @#<link rev=MADE href="mailto:james@CoverYourASP.com">@# );
Out ( @#<meta name="resource-type" content="document">@# );
Out ( @#<meta http-equiv="Content-Type" Content="text-html; charset=iso8859-1">@# );
Out ( @#<meta http-equiv="PICS-Label" content=\@#(PICS-1.1 "http://www.rsac.org/ratingsv01.html" l gen
true comment "RSACi North America Server" for "http://CoverYourASP.com/" on "2000.09.08T03:03-0800" r (n 0
s 0 v 0 l 0))\@#>@# );

// for spiders only - I hide these lines from browsers
var sBrowser = "" + Request.ServerVariables ( @#HTTP_USER_AGENT@# );

if ( ( -1 == sBrowser.indexOf ( @#Mozilla@# ) && -1 == sBrowser.indexOf ( @#Opera@# ) ) || IsDebug () )
{
// it@#s an unknown browser - probably a spider
Out ( @#<meta name="Author" content="James Shaw">@# );
Out ( @#<meta name="Keywords" content="coveryourasp, cya, james shaw, asp, active server pages,
active, server, pages, scripts, microsoft, iis, email, cdonts, form, access, database, free code, source,
code, programmer, programming, developer, development, javascript, jscript, com, atl, c++@# );
// add any passed-in keywords
if ( sKeywords != undefined )
Out ( @#, @# + sKeywords );
Out ( @#"><meta name="Description" content="Live examples and full source code for solving practical
problems using ASP (Active Server Pages), C++ ATL COM components, Server and Client-side JavaScript and
DHTML.">@# );
}
else
{
// it@#s a known browser - show "throwaway" keywords so we don@#t arouse suspicion!
Out ( @#<meta name="Keywords" content="James Shaw">@# );
Out ( @#<meta name="Description" content="James Shaw\@#s site">@# );
}

Out ( @#<title>@# + sTitle + @#</title>@# );

Out ( @#<style>@# );
Out ( @#a:link { color:#FF3300; }@# );
Out ( @#a:vlink { color:#FF3300; }@# );
Out ( @#a:alink { color:#CC0000; }@# );
Out ( @#body { font:8pt/11pt verdana;}@# );
Out ( @#table { font:8pt/11pt verdana;}@# );
Out ( @#</style></head>@# );
}

// ============================================
// are we being run from a special debug URL?
// ============================================
var bDebug;

function IsDebug ( )
{
// for efficiency, only work out if we@#re in debug mode
// the first time we@#re used on a page.
if ( bDebug == undefined )
{
// the test can be if we@#re on localhost (i.e. on development machine)
/*
var sServer = "" + Request.ServerVariables ( "SERVER_NAME" );

bDebug = ( -1 != sServer.indexOf ( "localhost" ) );
*/

//..or for demo purposes, if a certain QueryString exists
bDebug = ( 0 != Request.QueryString ( "debug" ).Count );
}

return bDebug;
}

// ============================================
// shorthand to save me typing Response.Write all the time!
// ============================================
function Out ( sHTML )
{
Response.Write ( sHTML );
}

// ============================================
// only display when special URL
// ============================================
function DebugOut ( sHTML )
{
if ( !IsDebug () )
return;

Out ( sHTML );
}
%>

返回顶部

下一篇：彻底终结浏览器Cahce页面的解决方案 >>