亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

一個免費的郵件列表源程序(二)

2019-11-18 22:27:29
字體：大 中 小
來源：轉載
供稿：網友
ShowSource.asp
<%@ Language=javaScript %>

<!--#include file = "include/SetGlobals.asp"-->

<%
// get the page to display from the URL
var sPage = "" + Request.QueryString ( "page" );

// make sure it's a page we allow them to view!
switch ( sPage )
{
case "Wider":
case "COM":
case "Handle404":
case "Categories":
case "CategoryPage":
case "Columns":
case "ResultsPage":
case "Date":
case "Contact":
case "Subscribe":
case "MailToList":
   break;

default:
   Response.Redirect ( "NaughtyNaughty!" );
}

// output relevant meta tags
Init( "ASP source example" );

// output common top of page
Header( '<a href="work.asp">Work</a> --> <a href="' + sPage + '.asp">"' + sPage + '.asp"</a> --> Source', 3 );

// output page content
Content ( );

// output common bottom of page
Footer ( );
%>

<% /* standard page elements */ %>
<!--#include file = "utils/Init.asp"-->
<!--#include file = "utils/Header.asp"-->
<!--#include file = "utils/Footer.asp"-->
<!--#include file = "utils/ShowFile.asp"-->

<%
// ============================================
// the content of this page
// ============================================
function Content ( )
{
   Out ( '<td width="20%">&nbsp;</td>' );
   Out ( '<td width="60%">' );

      // create handle to FileSystemObject
      var ofso = Server.CreateObject ( 'Scripting.FileSystemObject' );

      // each source file that we show source for could have a related
      // documentation file for us to display before and after the
      // source. for now, I use a generic header and footer file. the
      // 'true' tells ShowFile to pass through any HTML to the browser.

      ShowFile ( oFSO, 'Generic.
      switch ( sPage )
      {
      case "Categories":
      case "CategoryPage":
      case "Columns":
         Out ( '<p><img src="images/new.gif">&nbsp;<a href="Categories.zip">Download</a> all the source for the category demonstration!<p>' );
         break;
      }

      ShowSource ( oFSO, sPage + '.asp', true );

      // show any extra utility file(s) too
      switch ( sPage )
      {
      case "Wider":
         ShowSource ( oFSO, 'include/SetGlobals.asp', true );
         ShowSource ( oFSO, 'utils/Header.asp', true );
         break;

      case "Categories":
      case "CategoryPage":
      case "Columns":
      case "Subscribe":
      case "MailToList":
         ShowSource ( oFSO, 'utils/Database.asp', true );
         break;

      case "Categories":
      case "CategoryPage":
      case "Columns":
         ShowSource ( oFSO, 'utils/ShowCategory.asp', true );
         break;
      }

      // show the generic footer
      ShowFile ( oFSO, 'Generic.pst', true, false );

      // we've finished with the object so free the resource
      oFSO = null;

      Out ( '<p><center><a href="FSO.asp"><img src="images/source.gif" border=0></a></center>' );

   Out ( '</td>' );
   Out ( '<td width="20%">&nbsp;</td>' );
}
%>
     
utils/ShowFile.asp
<%
// have we advertized our mailing list yet?
var bDoneLink = false;

// ============================================
// display the contents of the given file
// ============================================
function ShowFile ( oFSO, sFile, bPassHTML, bShowName )
{
   var ForReading = 1;
   // var ForWriting = 2;
   // var ForAppending = 8;

   // open asp file for reading
   var fFile = oFSO.OpenTextFile ( Server.MapPath( sFile ), ForReading );

   // read entire file contents into variable
   var s = fFile.ReadAll ( );

   if ( !bPassHTML )
   {
      // replace & with &amp; so HTML displayed, not interpreted
      s = s.replace ( /&/g, '&amp;' );

      // replace < with &lt; so HTML displayed, not interpreted
      s = s.replace ( /</g, '&lt;' );

      // replace newline with HTML equivalent
      s = s.replace ( //n/g, '<br>' );

      // replace tabs with 3 spaces
      s = s.replace ( //t/g, '&nbsp;&nbsp;&nbsp;' );

      // show filename and change font color for source code
      s = '<font color="black">' + s + '</font>';

      if ( bShowName )
         s = '<h4>' + sFile + '</h4>' + s;
   }

   Out ( s );

   fFile.Close ( );
}

// ============================================
// show a source file outside the table
// ============================================
function ShowSource ( oFSO, sFile, bShowName )
{
   // advertize our mailing list before the first source file
   if ( !bDoneLink )
   {
      bDoneLink = true;
      Out ( '<p><b>Get informed when the source code below changes!</b> <a href="subscribe.asp">Subscribe to our mailing list.</a>' );
   }

   Out ( '</td>' );
   Out ( '<td width="20%">&nbsp;</td></tr><tr><td colspan=3 width="100%" bgcolor="#ff9900">' );

      // show news file
      ShowFile ( oFSO, sFile, false, bShowName );

   Out ( '</td></tr><tr><td width="20%">&nbsp;</td>' );
   Out ( '<td width="60%">' );
}
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
中文字幕在线视频日韩| 日韩大陆毛片av| 国产精品影片在线观看| 国产精品日韩电影| 日韩精品中文字幕视频在线| 亚洲成年人在线| 国产69精品久久久久9999| 亚洲第一色中文字幕| 欧美在线一级视频| 日韩在线视频观看正片免费网站| 亚洲午夜未满十八勿入免费观看全集| 欧美激情第1页| 精品一区二区三区四区在线| 欧美日韩xxx| 成人网欧美在线视频| 亚洲网址你懂得| 亚洲天堂第二页| 久久久天堂国产精品女人| 久久五月天色综合| 欧美精品一区在线播放| 91国产一区在线| 国产精品小说在线| 少妇av一区二区三区| 亚洲韩国欧洲国产日产av| 国产亚洲视频中文字幕视频| 91中文精品字幕在线视频| 欧美风情在线观看| 日韩在线播放一区| 国内精品久久久久| 中文字幕一区二区三区电影| 日韩精品免费看| 欧美激情在线播放| 国产精品影片在线观看| 久久久免费观看| 精品一区电影国产| 国产精品嫩草影院久久久| 91精品久久久久久久久不口人| 久久亚洲精品成人| 亚洲精品免费一区二区三区| 宅男66日本亚洲欧美视频| 日韩激情视频在线| 丝袜美腿精品国产二区| 亚洲国产精品福利| 亚洲国产一区二区三区在线观看| 久久久97精品| 在线午夜精品自拍| 国产精品日韩av| 久热精品视频在线免费观看| 国产日韩综合一区二区性色av| 欧美精品www| 国产丝袜视频一区| 久久免费少妇高潮久久精品99| 国产精品激情自拍| 亚洲白拍色综合图区| 亚洲精品98久久久久久中文字幕| 欧美极品第一页| 亚洲香蕉伊综合在人在线视看| 97久久精品人人澡人人爽缅北| 久久这里有精品| 91精品久久久久久久久青青| 91久久中文字幕| 91精品久久久久久久久久入口| 懂色aⅴ精品一区二区三区蜜月| 欧美成人免费一级人片100| 国产精品吊钟奶在线| 亚洲肉体裸体xxxx137| y97精品国产97久久久久久| 欧美乱大交做爰xxxⅹ性3| 亚洲精品国偷自产在线99热| 日韩精品中文字| 97人人模人人爽人人喊中文字| 国产97在线视频| 欧美激情成人在线视频| 91精品国产色综合| 亚洲成人激情在线| 成人福利在线观看| 热门国产精品亚洲第一区在线| 久久五月天综合| 欧美激情一级二级| 国内精品久久久久影院 日本资源| 国产福利视频一区| 性欧美xxxx| 欧美成人精品不卡视频在线观看| 久久天天躁狠狠躁夜夜躁| 中文字幕亚洲一区二区三区五十路| 欧美精品中文字幕一区| 成人网在线视频| 亚洲美女福利视频网站| 国产一区二区三区直播精品电影| 欧美激情精品久久久久久变态| 国产97在线|亚洲| 国产视频在线一区二区| 亚洲女人天堂视频| 亚洲国模精品私拍| 久久久久久久香蕉网| 亚洲天堂久久av| 奇米成人av国产一区二区三区| 国内精品久久久久| 亚洲在线观看视频网站| 国产主播欧美精品| 久久久久久久一| 亚洲精品网址在线观看| 隔壁老王国产在线精品| 日韩精品高清在线观看| 亚洲自拍偷拍区| 欧美重口另类videos人妖| 欧美激情一区二区三区久久久| 欧美在线一级视频| 久久中文精品视频| 播播国产欧美激情| 亚洲国产欧美一区二区三区同亚洲| 萌白酱国产一区二区| 国产精品91在线观看| 国内精品视频一区| 欧美成人精品不卡视频在线观看| 91久久久精品| 亚洲欧美精品伊人久久| 国产精品免费久久久久久| 国产精品欧美一区二区三区奶水| 成人黄色激情网| 高清一区二区三区日本久| 日本sm极度另类视频| 欧美精品激情blacked18| 亚洲最大av网| 久久久久久com| 国内成人精品一区| 亚洲天堂av在线免费观看| 在线激情影院一区| 亚洲男人第一av网站| 国产激情久久久久| 美女啪啪无遮挡免费久久网站| 黑人狂躁日本妞一区二区三区| 色综合亚洲精品激情狠狠| 欧美在线视频在线播放完整版免费观看| 精品久久久久久久久久国产| 日韩电影在线观看中文字幕| 日韩在线视频国产| 国产精品视频自在线| 日韩小视频网址| 538国产精品一区二区在线| 国产精品老牛影院在线观看| 亚洲欧美日韩国产精品| 亚洲欧洲在线免费| 国内精品视频在线| 欧美大全免费观看电视剧大泉洋| 久久这里有精品视频| 精品久久久久久久中文字幕| 亚洲图片欧美日产| 福利视频第一区| 欧美精品成人在线| 九九热精品在线| 欧日韩不卡在线视频| 国产成人午夜视频网址| 久久福利网址导航| 色yeye香蕉凹凸一区二区av| 欧美限制级电影在线观看| 欧美精品免费在线观看| 成人精品aaaa网站| 欧美日韩在线一区| 91在线视频免费| 91亚洲精品视频| 日韩美女在线播放| 日韩电影中文 亚洲精品乱码| 黑人狂躁日本妞一区二区三区|