External code separation method

" & .getTemplate ("Message. TPL ", TRUE) &" ". Tag (" aspcode ") = .getTemplate (" INDEX.ASP ", false) .tag (" howtouse ") = .getTemplate (" Howtouse.tpl ", false) .display () end with

Set Otemplate = Nothingend Subgo ()%>

TemplateClass.asp ----------------------------------------------- ------------------------- <% 'this is the template Object. It allows the creation, reading' and editing of templates on the server. ' Created by: Christopher Brown-Floyd 'Date: November 3, 1999Class Template

'This variable stores the templateprivate mytemplate' AS STRING

'This method gets a template from the server and returns' the whole file as a string.public function gettemplate (pathfilename, encodetohtml) 'as stringdim oFSO' as objectdim oTemplate 'as objectdim temptemplate' as string

'Open type for the template (read-only) const forreading = 1, boolcreatefile = false

If isnull (encodetohtml) or encodetohtml = "" or encodetohtml = false burodetohtml = falseelseencodetohtml = trueEnd IF

On Error ResMject 'Create FileSystemObjectSet OFSO = Server.createObject ("scripting.filesystemObject")

'Create template objectset oTemplate = oFSO.opentextfile (server.mappath (pathfilename), forreading, boolcreatefile) if err <> 0 thenerr.clearexit functionend if' Get the whole file as a stringtemptemplate = oTemplate.readall 'Encode template to HTML? If Encodetohtml ThengetTemplate = Tohtml (TempTemplate) ElsegetTemplate = TempTemplateEnd IF

'Close the TemplateTemplate.Close

'Free the server resourcesset teemplate = Nothing

Set ofso = nothingend function

'This Procedure Gets and Stores A TemplatePublic Sub UseTemplate (PathFileName) thistemplate = getTemplate (PathfileName, False) End Sub

'This Property Replaces Tags with the user's templatepublic Property Let Tag (Tagname, UserString) Dim LD, RD' AS Stringdim Temptag 'AS Stringdim TagStart, TAGEND' AS INTEGER

LD = "" tagstart = 1

do while tagstart> 0 and tagstart 0 thentagend = instr (tagstart, thistemplate, rd) if tagend> (tagstart 3) thentemptag = mid (thistemplate, tagstart 4, tagend- (tagstart 4)) if (trim (temptag) = tagname) or (temptag = tagname) thenif IsNull (userstring) thenthistemplate = replace (thistemplate, ld & temptag & rd, "") elsethistemplate = replace (Thistemplate, LD & Temptag & Rd, UserString) end ifxit doelsetagStart = TagStart 4END IFEND IFEND IFELOOPEND Property

Public Sub Removetags () Dim LD, RD 'As Stringdim Temptag' AS Stringdim TagStart, TAGEND 'AS INTEGER

LD = "" tagstart = 1

do while tagstart> 0 and tagstart 0 thentagend = instr (tagstart, thistemplate, rd) if tagend> (tagstart 3) thentemptag = mid (thistemplate, tagstart 4, tagend- (tagstart 4)) thistemplate = replace (thistemplate, ld & temptag & rd, "") tagstart = tagendend ifend ifloopend sub 'This property allows the user to assign the current templatepublic property let thistemplate (template_as_string) if Vartype (Template_as_String) = VBString_or Vartype = VBnull ThenmyTemplate = Template_as_stringend iFend Property

'This Property Returns The Current TemplatePublic Property Get thistemplate ()' as stringthistemplate = MyTemplateEnd Property

'This subroutine displays the current templatepublic sub displet () Response.write thistemplateend Sub

'This subroutine encodes the current template to htmlpublic sub htmlencode () TOHTML (thistemplate) End Sub

'This Procedure Saves The Current Template To The Serverpublic Sub Saves (PathfileName) DIM OFSO' As Objectdim Otemplate, OBACKUP 'As Objectdim StRTRUEPATH' AS STRING

'Open type for the template (read-only) const forreading = 1, forwriting = 2, boolcreatefile = true

ON Error ResMe next

'Create FileSystemObjectSet OFSO = Server.createObject ("Scripting.FileSystemObject")

'Create template objectstrTruePath = server.mappath (pathfilename) if oFSO.fileexists (strTruePath) thenoFSO.copyfile strTruePath, strTruePath & ".bak", trueend ifset oTemplate = oFSO.opentextfile (strTruePath, forwriting, boolcreatefile) if err <> 0 thenerr .cleArExit Subend if 'Write The Whole Template to the ServeroteMplate.write thistemplate

'Close the TemplateTemplate.Close

'Free the server resourcesset teemplate = Nothing

Set ofso = nothingend sub

'This function encodes text to htmlprivate function tohtml (temptemplate) temptemplate = replace (temptemplate, "<", "<") temptemplate = replace (temptemplate, "", "") temptemplate = replace (temptemplate, vbcrlf, "
")

TOHTML = TempTemplateEnd Function

'This procedure clears the variable what the current template' is stored in when the object is created.private sub coplass_initialize () mytemplate = "" End Sub

'This procedure clears the variable what the current template' is stored in When a object is terminated.private sub class_terminate () set mytemplate = nothingnd suend class%>

Howtouse.tpl ------------------------------------------------- -------------------------

Object's Properties:

thistemplate = string loads a dynamically built template infa Template Object . Use this methodwhen there isn't a file to read from.

Object's procedures:

tag ( tag name as string ) = string Replaces All Occurrence of a Tag with the specified string.

variable = getTemplate ( Path as string , [Encode to HTML] As Boolean ) returns the template from the specified path; however, it isn't loading into the object.

Object's methods:

useemplate ( path as string ) loads the template from the specified Path Into the Object.

htmlencode () EncoDes the current template loaded Into HTML.

display () Writes the current template to the user's brohing.

removetags () removes all tags what have't been replaced.

saveas () saves the current template to the specified path. Use this method when Youwant to save the change: if a Template.note: if A FILE OF THE SAME NAME EXISTS At the Specified Path, ".bak" Will Beadded to the end of its name; thus "myfile.tpl" would be "myfile.tpl.bak".

Message.tpl --------------------------------------------- -------------------------

 this is an example of how to use my template class.dynamic data for your Template can come from anywhere.

IT can come from a built-in asp function:  it can come from a file: 
You can Even Use IT As an Online Source Editing Tool For Your ASP Code: 
  <! - aspcode -> </ textarea> </ form></p>
<p><! - howtouse -> Note: Templates CAN't Have Any ASP Code in Them. It'll Only Process Html.This Is Good Practice, Because IT Products Cleaner Code and HTML. </ pre> </ body> < / html></p>
<p>hope it is of help to you!</p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-96305.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>)
</div><div></div></div></div><ul class="postlist list-unstyled">


</ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="96305" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved
                

</div><div class="col text-right">Processed:
<b>0.039</b>, SQL:
                <b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script>
var debug = DEBUG = 0;
var url_rewrite_on = 1;
var url_path = './';
var forumarr = {"1":"Tech"};
var fid = 1;
var uid = 0;
var gid = 0;
xn.options.water_image_url = 'view/img/water-small.png';
</script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script>
var forum_url = 'list-1.html';
var safe_token = 'xMwfCD4tDya55D8tqcoBA2qYBiFvLsCTqjD5at1C77utTf3VZYXw3LmPsPkrwlpFe5vHguljEENXqdjKqg4I9A_3D_3D';
var body = $('body');
body.on('submit', '#form', function() {
var jthis = $(this);
    var jsubmit = jthis.find('#submit');
jthis.reset();
jsubmit.button('loading');
var postdata = jthis.serializeObject();
$.xpost(jthis.attr('action'), postdata, function(code, message) {
if(code == 0) {
location.reload();
} else {
$.alert(message);
jsubmit.button('reset');
}
});
return false;
});


function resize_image() {
var jmessagelist = $('div.message');
var first_width = jmessagelist.width(); 
jmessagelist.each(function() {
var jdiv = $(this);
var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width();
var jmessage_width = Math.min(jdiv.width(), maxwidth);
jdiv.find('img, embed, iframe, video').each(function() {
var jimg = $(this);
var img_width = this.org_width;
var img_height = this.org_height;
if(!img_width) {
var img_width = jimg.attr('width');
var img_height = jimg.attr('height');
this.org_width = img_width;
this.org_height = img_height;
}

if(img_width > jmessage_width) {
if(this.tagName == 'IMG') {
jimg.width(jmessage_width);
jimg.css('height', 'auto');
jimg.css('cursor', 'pointer');
jimg.on('click', function() {

});
} else {
jimg.width(jmessage_width);
var height = (img_height / img_width) * jimg.width();
jimg.height(height);
}
}
});
});
}


function resize_table() {
$('div.message').each(function() {
var jdiv = $(this);
jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); 
});
}

$(function() {
resize_image();
resize_table();
$(window).on('resize', resize_image);
});


var jmessage = $('#message');
jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); });
jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); });

$('#nav li[data-active="fid-1"]').addClass('active');
</script>