|
|
|
|
VBScript and HTML escape codes.
There are only 255 visual basic escape codes, so for the first 255 cells,
you will find three rows. The first row is the VB Chr code.
The second row is the HTML escape code and the last row is the result of that code
along with the chosen font.
After number 255, there are only two rows. The top row is the HTML escape code (sometimes
called a HTML decimal code) and the bottom row is the result of that code along with the
chosen font.
Just a quick note on the symbol fonts: in order to see what the symbol is
you will need to have that font installed on your computer.
Here is the ASP code for this script:
<%
IF Len(Trim(Request("SelFont"))) > 0 Then
SelFont = Request("SelFont")
Else
SelFont = "Arial"
End If
%>
<form name="ChooseFont" method="post" action="<%=Request.ServerVariables("URL")%>">
<div class="breg">Select a Font:
<select name="SelFont" onchange="ChooseFont.submit()" class="breg">
<%
IF Len(Trim(Request("SelFont"))) > 0 Then
SelFont = Request("SelFont")
Else
SelFont = "Arial"
End If
FontList = "Arial|Almanac MT|Arial Alternative Symbol|Bon Apetit MT|Bookshelf Symbol 3|" & _
"Candid|Directions MT|Holidays MT|Keystrokes MT|Marlett|Monotype Sorts|" & _
"MS Outlook|MT Extra|Parties MT|Signs MT|Sports Two MT|Sports Three MT|" & _
"symbol|Parties MT|Transport MT|Vacation MT|Webdings|Wingdings|" & _
"Wingdings 2|Wingdings 3|ZapfDingbats"
FontArr = Split(FontList,"|")
For x = 0 to Ubound(FontArr)
If FontArr(x) = SelFont Then
Response.Write "<option value='" & FontArr(x) & "' selected>" & FontArr(x) & "</option>"
Else
Response.Write "<option value='" & FontArr(x) & "'>" & FontArr(x) & "</option>"
End If
Next
%>
</form>
</select>
<%
Response.Write "<table align=" & chr(34) & "center" & chr(34) & " " & _
"cellspacing=" & chr(34) & "0" & chr(34) & " " & _
"cellpadding=" & chr(34) & "1" & chr(34) & " " & _
"class=" & chr(34) & "DataTble" & chr(34) & ">" & _
chr(13)
cells = 0
For x = 1 to 10000
If cells = 0 Then
Response.Write "<tr style=" & chr(34) & "text-align:center;" & chr(34) & ">" & chr(13)
End If
cells = cells + 1
Response.Write "<td class=" & chr(34) & "DataCell" & chr(34) & ">" & chr(13)
Response.Write "<div class=" & chr(34) & "breg" & chr(34) & ">" & chr(13)
TheNum = CStr(x)
If TheNum < 256 Then
Response.Write "<div class=" & chr(34) & "bnotes" & chr(34) & ">" & _
"Chr(" & TheNum & ") </div>" & chr(13)
End If
Response.Write "<div class=" & chr(34) & "bnotes" & chr(34) & ">" & _
"&#" & TheNum & ";</div>" & chr(13)
Response.Write "<div class=" & chr(34) & "breg" & chr(34) & " " & _
"style=" & chr(34) & "font-family:" & SelFont & ";" & chr(34) & ">" & _
"&#" & TheNum & ";" & chr(13)
Response.Write "</td>" & chr(13)
If cells = 10 then
Response.Write "</tr>" & chr(13)
cells = 0
End if
Next
Response.Write "</table>" & chr(13)
%>