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


答案：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. 
//         <!-- portions (c) james@CoverYourASP.com--> 
// (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=>   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 ); 
} 
%>
上一个：Microsoft Script Debugger说明书
下一个：彻底终结浏览器Cahce页面的解决方案
更多图片编程知识: