;############################################################################# ;# Author: N_T_H # ;# # ;# Description: An HTML Clip Library. Revisions (including corrections and # ;# additional commands for tables and frames)will be posted soon. # ;# Version: 1.0 # ;# # ;# Date: 2/12/02 11:23 AM Made a few more corrections, # ;# and some improvements (I HOPE!) # ;# # ;# Web site: http://www24.brinkster.com/netsearcher/default.htm # ;############################################################################# [HTML4 specification] #run http://www.w3.org/TR/1998/REC-html40-19980424 [About "MyClips"] #if #promptdlg(Would you like to visit the %qu%myclips%qu% webpage to see a guide and check for more %qu%myclips%qu%?,36)=6 #then #goto @visit #else #goto @end @visit #run http://www24.brinkster.com/netsearcher/myclips.htm [] #showmessage 4.0 is strict #set %strict%=4.0%sp% #set %loose%=4.0%sp%Transitional #set %frameset%=4.0%sp%Frameset #set %doctype%=%strict%;%loose%;%frameset% #inputdlg([i=list;v=%type%;d=1]choose DOCTYPE:=%doctype%) #if %type%=%cl% #then #goto @end #if %type%=%strict% #then #set %type2%=strict #if %type%=%loose% #then #set %type2%=loose #if %type%=%frameset% #then #set %type2%=frameset %cr%%cr% %cr%%cr% %^% [shell] #showmessage You can remove the %qu%if%qu% statements and everything except the title variable, and simply put your info in where the other variables are! #inputdlg([v=%title%]Enter page title:|[v=%Author%]Enter Document Author Name:|[v=%email%]Enter Author Email Address:|[v=%url%]Enter Author Home Page (url):) #if %author%=%cl% #then #set %author%=anonymous #if %email%=%cl% #then #set %email%=none #if %url%=%cl% #then #set %url%=none %cr% %cr%%cr% %cr% %cr% #if %title%=%cl% #then #goto @gettitle @gottitle %cr%%title% %cr% %cr%%cr% %cr% %cr% %cr% %cr%%cr%%^% %cr%%cr% %cr%%cr% %cr%%cr% %cr% %cr% #goto @end @gettitle #inputdlg([v=%title%]Please enter page title.) #if %title%=%cl% #then #set %title%=***TITLE**GOES**HERE*** #goto @gottitle [comment] ["..."] "%^%" [ ]   [STYLE] #set %styletype%=linked;embedded;inline #inputdlg([i=list;v=%type%;d=1]Choose style type:=%styletype%) #if %type%=%cl% #then #goto @end #if %type%=linked #then #goto @linked #if %type%=embedded #then #goto @embedded #if %type%=inline #then #goto @inline @linked #inputdlg([v=%linkhref%]Enter stylesheet url:) #if %linkhref%=%cl% #then #goto @emptylink #else #goto @sheetlink @emptylink #showmessage !!!HREF IS EMPTY!!! #set %linkhref%=!!!HREF IS EMPTY!!! @sheetlink #showmessage To edit your linked style sheet,%cr% Switch to the CSS Clip Library. #goto @end @embedded #showmessage To edit the stlye within your tags%cr% Switch to the CSS Clip Library. #goto @end @inline #inputdlg([v=%style%]Enter style values:) %sp%style=%qu%%style%%qu% #showmessage To edit your inline style=" "%cr% Switch to the CSS Clip Library. #if %sender%=1 #then #goto @returnstyle #else #goto @end [] #set %slanguage%=VBscript;javascript; #inputdlg([i=list;v=%lang%;d=1]Select Language:=%slanguage%) #if %lang%=%cl% #then #goto @end #if %lang%=VBscript #then #set %language%=VBscript #if %lang%=javascript #then #set %language%=javascript #showmessage To edit your script, %cr%%cr%switch to the %qu%%language%%qu% Clip Library%cr%%cr%Coming Soon.%sp%%sp%%sp%%sp%%sp%%sp%http://www24.brinkster.com/netsearcher/myclips.htm #goto @end [tags <>...] #set %tag2%=a;abbr;acronym;address;applet;b;bdo;big;blockquote;body;button;caption;center;cite;code;colgroup;dd;del;dfn;dir;div;dl;dt;em;fieldset;font;form;frameset;h1;head;html;i;iframe;ins;kbd;label;legend;li;map;menu;noframes;noscript;object;ol;optgroup;option;p;pre;q;s;samp;script;select;small;span;strike;strong;style;sub;sup;table;tbody;td;textarea;tfoot;th;thead;title;tr;tt;u;ul;var; #inputdlg([i=list;v=%tagpair%;d=21]Select tag from drop-list:=%tag2%) #if %tagpair%=%cl% #then #goto @end #if %tagpair%=a #then #goto @anchor #if %tagpair%=style #then #goto @embedded <%tagpair%>%^% #goto @end @anchor #set %anchorproperty%=href;name #inputdlg([i=list;v=%anchor%;d=1]Select anchor property:=%anchorproperty%) #if %anchor%=href #then #goto @anchorurl <%tagpair% %anchor%=%qu%#inputdlg(Enter anchor name:)%qu%>%^% #goto @end @anchorurl #set %hrefvalue%=http%co%//;../; #inputdlg([i=list;v=%anchorhref%;d=1]Enter anchor href:=%hrefvalue%) <%tagpair%%sp%%anchor%=%qu%%anchorhref%%qu%%sp%>%^% [tag ] #set %tag1%=img;area;base;basefont;br;col;frame;hr;input;link;meta;param; #inputdlg([i=list;v=%tag%;d=1]Select Tag:=%tag1%) #if %tag%=%cl% #then #goto @end #if %tag%=img #then #goto @imageattributes <%tag%/> #goto @end @imageattributes #inputdlg([v=%source%]Enter image source:|[v=%width%]Enter image width:|[v=%height%]Enter image height:|[v=%alt%]Enter text description:) <%tag%%sp%src=%qu%%source%%qu%%sp%width=%qu%%width%%qu%%sp%height=%qu%%height%%qu%%sp%alt=%qu%%alt%%qu%/> [intrinsic events] #set %inevent%=onclick;ondblclick;onmousedown;onmouseup;onmouseover;onmousemove;onmouseout;onkeypress;onkeydown;onkeyup #inputdlg([i=list;v=%event%;d=1]Select event:=%inevent%) #if %event%=%cl% #then #goto @end #inputdlg([v=%script%]Enter script functon or procedure name:) #if %script%=%cl% #then #goto @end %sp%%event%=%qu%%script%%qu%%sp%%^% #goto @end #showmessage To edit your script, switch to the %qu%VBscript%qu% Clip Library %cr%%cr%or the %qu%javascript%qu% Clip Library.%cr%%cr%Coming Soon. #goto @end [attributes] @repeatatts #set %comatt%=id;class;src;style;title;alt;href;height;width;border #inputdlg([i=list;v=%att%;d=1]Enter attribute name, or select from the drop-list:=%comatt%) #if %att%=%cl% #then #goto @end #if %att%=style #then #set %sender%=1 #goto @inline #inputdlg([v=%attval%]Enter values:=%attval%) #if %attval%=%cl% #then %sp%%att%=%qu%*value*is*empty*%qu% #else %sp%%att%=%qu%%attval%%qu% @returnstyle #if #promptdlg(Another attribute?,36)=6 #then #goto @repeatatts #else #goto @end [special characters] #if #promptdlg(*Tip%sp%%sp%%sp%%sp%%sp%Cut and Paste from the chart!%cr%%cr%Would you like to see a chart of these HTML special characters?,36)=6 #then #run http://www24.brinkster.com/netsearcher/specchars.htm #set %varSpcChar%=quot;amp;lt;gt;nbsp;iexcl;cent;pound;curren;yen;sect;copy;ordf;laquo;not;shy;reg;macr;deg;plusmn;sup2;sup3;acute;micro;para;middot;cedil;sup1;ordm;raquo;frac14;frac12;frac34;iquest;Agrave;Aacute;Acirc;Atilde;Auml;Aring;AElig;Ccedil;Egrave;Eacute;Ecirc;Euml;Igrave;Iacute;Icirc;Iuml;ETH;Ntilde;Ograve;Oacute;Ocirc;Otilde;Ouml;times;Oslash;Ugrave;Uacute;Ucirc;Uuml;Yacute;THORN;szlig;agrave;aacute;acirc;atilde;auml;aring;aelig;ccedil;egrave;eacute;ecirc;euml;igrave;iacute;icirc;iuml;eth;ntilde;ograve;oacute;ocirc;otilde;ouml;divide;oslash;ugrave;uacute;ucirc;uuml;yacute;thorn;yuml #inputdlg([i=list;v=%SpcChar%]Select special character:=%varSpcChar%) #if %SpcChar%=%cl% #then #goto @end &%SpcChar%; #goto @end [selection is mailto link] #inputdlg([v=%emailaddress%]Enter email address:) #if %emailaddress%=%cl% #then #goto @end %^% #goto @end [mailto:me] #showmessage set the %pr%mailtome%pr% variable to a list of link titles you use, and then remove this message box%cr% Don't forget to fill in your email address in the clip! #set %mailtome%=Reply;Email me;any thing you want to put here #inputdlg([i=list;v=%mailto%]Which Title?=%mailtome%) %mailto% #goto @end [mailto:other] #inputdlg([v=%otheraddress%]Enter email address:) #if %otheraddress%=%cl% #then #goto @end #inputdlg([v=%other%]Enter link title:) #if %other%=%cl% #then #goto @emptymailto %other% #goto @end @emptymailto *MAILTO:*LINK**TITLE**GOES**HERE*