1 |
<%@ Language=VBScript %>
|
2 |
<OBJECT RUNAT="SERVER" PROGID="systools.stmime" ID="StMime"></OBJECT>
|
3 |
<OBJECT RUNAT="SERVER" PROGID="systools.ststringlist" ID="StStringList"></OBJECT>
|
4 |
<%
|
5 |
ShowConverted = False
|
6 |
|
7 |
if UCase(Request("StMimeGen")) = UCase("Convert") then
|
8 |
|
9 |
StToHTML.License("STD123456ABCDEF")
|
10 |
StStringList.License("STD123456ABCDEF")
|
11 |
|
12 |
Source = Request("Source")
|
13 |
|
14 |
StStringList.Text = Source
|
15 |
StMime.Encoding = Request("EncodeType")
|
16 |
StMime.AddStreamAttachment StStringList.Stream, "StMimeExample.txt"
|
17 |
ShowConverted = True
|
18 |
end if
|
19 |
%>
|
20 |
<HTML>
|
21 |
<HEAD>
|
22 |
<TITLE>SysTools Example: StMime</TITLE>
|
23 |
</HEAD>
|
24 |
<BODY>
|
25 |
|
26 |
<P> </P>
|
27 |
|
28 |
|
29 |
<FORM METHOD="POST" ID="FORM1" NAME="FORM1">
|
30 |
<TEXTAREA COLS="78" ROWS="15" NAME="Source" ID="Source"><%=Source%></TEXTAREA><BR>
|
31 |
<BR><BR>
|
32 |
Encoding method<BR>
|
33 |
<INPUT TYPE="RADIO" NAME="EncodeType" ID="EncodeType" VALUE="base64" CHECKED>Base64
|
34 |
<INPUT TYPE="RADIO" NAME="EncodeType" ID="EncodeType" VALUE="quoted-printable">Quoted-Printable
|
35 |
<INPUT TYPE="RADIO" NAME="EncodeType" ID="EncodeType" VALUE="uuencoded">UUencoded
|
36 |
<INPUT TYPE="RADIO" NAME="EncodeType" ID="EncodeType" VALUE="raw">Raw
|
37 |
|
38 |
<BR><BR>
|
39 |
<INPUT TYPE="SUBMIT" NAME="StMimeGen" ID="StMimeGen" VALUE="Convert">
|
40 |
<INPUT TYPE="RESET" ID="RESET" NAME="RESET">
|
41 |
</FORM>
|
42 |
|
43 |
<% if ShowConverted then %>
|
44 |
<HR>
|
45 |
<PRE>
|
46 |
<% Response.BinaryWrite StMime.Stream %>
|
47 |
</PRE>
|
48 |
<% end if %>
|
49 |
</BODY>
|
50 |
</HTML>
|
51 |
|
52 |
<%
|
53 |
On Error Resume Next
|
54 |
Set StStringList = nothing
|
55 |
Set StMime = nothing
|
56 |
%>
|