The apple web site used to have a script for converting AppleScript to HTML, and a writeup about AppleScript tags (can’t find it any more). I do know that the script looks like the following, but don’t recall seeing anything about how to put a script on a website so it would make the tags active for a reader.
-- this script encodes the script text currently on the clipboard
try
display dialog "Choose the link action and enter the link text:" buttons {"Append", "Insert", "New"} default answer "link text" default button 3
copy the result as list to {link_text, script_action}
set this_text to (get the clipboard) as string
set this_text to my encode_text(this_text)
if the script_action is "Append" then
set the URL_opening to "<a href=\"applescript://com.apple.scripteditor?action=append&script="
else if the script_action is "Insert" then
set the URL_opening to "<a href=\"applescript://com.apple.scripteditor?action=insert&script="
else if the script_action is "New" then
set the URL_opening to "<a href=\"applescript://com.apple.scripteditor?action=new&script="
end if
set the clipboard to (URL_opening & this_text & "\">" & link_text & "</a>")
display dialog "The encoded script has been placed on the clipboard." buttons {"OK"} default button 1 with icon 1 giving up after 2
on error error_message
display dialog error_message buttons {"Cancel"} default button 1
end try
-- this sub-routine is used to encode text
on encode_text(this_text)
set the acceptable_characters to "abcdefghijklmnopqrstuvwxyz0123456789_"
set the encoded_text to ""
set the character_list to {}
repeat with this_char in this_text
set this_char to the contents of this_char
if this_char is in the acceptable_characters then
set the end of the character_list to this_char
else
set the end of the character_list to encode_char(this_char)
end if
end repeat
return (the character_list) as string
end encode_text
-- this sub-routine is used to encode a character
on encode_char(this_char)
set the ASCII_num to (the ASCII number this_char)
set the hex_list to {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"}
set x to item ((ASCII_num div 16) + 1) of the hex_list
set y to item ((ASCII_num mod 16) + 1) of the hex_list
return ("%" & x & y) as string
end encode_char