1 |
<%@ Language=VBScript %>
|
2 |
<OBJECT RUNAT="SERVER" PROGID="systools.sttohtml" ID="StToHTML"></OBJECT>
|
3 |
<OBJECT RUNAT="SERVER" PROGID="systools.ststringlist" ID="StStringList"></OBJECT>
|
4 |
<%
|
5 |
ShowConverted = False
|
6 |
|
7 |
if UCase(Request("StToHTMLGen")) = UCase("Convert") then
|
8 |
StToHTML.License("STD123456ABCDEF")
|
9 |
StStringList.License("STD123456ABCDEF")
|
10 |
|
11 |
Source = Request("Source")
|
12 |
|
13 |
select case Request("ConvertFrom")
|
14 |
case "PASCAL"
|
15 |
StToHTML.CommentMarkers.Add("{=};<I>;</I>")
|
16 |
StToHTML.CommentMarkers.Add("(*=*);<I>;</I>")
|
17 |
StToHTML.CommentMarkers.Add("//=;<I>;</I>")
|
18 |
StToHTML.StringMarkers.Add("'=';<FONT COLOR=""RED"">;</FONT>")
|
19 |
|
20 |
StStringList.Text = Source
|
21 |
StToHTML.Stream = StStringList.Stream
|
22 |
|
23 |
StToHTML.Keywords.LoadFromFile(Server.MapPath("kwpascal.txt"))
|
24 |
StToHTML.GenerateHTML
|
25 |
|
26 |
ShowConverted = True
|
27 |
case "C"
|
28 |
StToHTML.CommentMarkers.Add("(*=*);<I>;</I>")
|
29 |
StToHTML.CommentMarkers.Add("/*=*/;<I>;</I>")
|
30 |
StToHTML.CommentMarkers.Add("//=;<I>;</I>")
|
31 |
|
32 |
StStringList.Text = Source
|
33 |
StToHTML.Stream = StStringList.Stream
|
34 |
|
35 |
StToHTML.Keywords.LoadFromFile(Server.MapPath("kwbuildr.txt"))
|
36 |
StToHTML.GenerateHTML
|
37 |
|
38 |
ShowConverted = True
|
39 |
case else
|
40 |
|
41 |
end select
|
42 |
end if
|
43 |
%>
|
44 |
<HTML>
|
45 |
<HEAD>
|
46 |
<TITLE>SysTools Example: StToHTML</TITLE>
|
47 |
</HEAD>
|
48 |
<BODY>
|
49 |
|
50 |
<P> </P>
|
51 |
|
52 |
|
53 |
<FORM METHOD="POST" ID="FORM1" NAME="FORM1">
|
54 |
<TEXTAREA COLS="78" ROWS="15" NAME="Source" ID="Source"><%=Source%></TEXTAREA><BR>
|
55 |
<INPUT TYPE="Radio" NAME="ConvertFrom" ID="ConvertFrom" VALUE="PASCAL" CHECKED>Convert from Pascal source
|
56 |
<INPUT TYPE="Radio" NAME="ConvertFrom" ID="ConvertFrom" VALUE="C">Convert from C/C++ source
|
57 |
<BR><BR>
|
58 |
<INPUT TYPE="SUBMIT" NAME="StToHTMLGen" ID="StToHTMLGen" VALUE="Convert">
|
59 |
<INPUT TYPE="RESET">
|
60 |
</FORM>
|
61 |
|
62 |
<% if ShowConverted then %>
|
63 |
<HR>
|
64 |
<% Response.BinaryWrite StToHTML.Stream %>
|
65 |
<% end if %>
|
66 |
</BODY>
|
67 |
</HTML>
|
68 |
|
69 |
<%
|
70 |
On Error Resume Next
|
71 |
Set StStringList = nothing
|
72 |
Set StToHTML = nothing
|
73 |
%>
|