File Manager

<%@ CodePage="65001" %>

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=utf-8">
<TITLE>AspPDF Text Live Demo</TITLE>
</HEAD>
<BODY>

<h3>AspPDF Multi-language Support Demo</h3> 
Type or copy/paste some text in any or all of the following alphabets:<BR>
<B>Latin, Hebrew, Cyrillic, Arabic, Greek</B>
<form action="demo_text.asp" METHOD="POST" NAME="MyForm">
<INPUT OnClick="if(Reverse.checked) document.MyForm.Align[2].checked=true" TYPE="Checkbox" NAME="Reverse" <% if Request("Reverse") = "on" Then Response.write "CHECKED" %>>
Reverse letters (Hebrew and Arabic only)<BR>
Alignment: 
<INPUT TYPE="Radio" NAME="Align" VALUE="0" <% if Request("Align") = 0 Then Response.write "CHECKED" %>> Left
<INPUT TYPE="Radio" NAME="Align" VALUE="2" <% if Request("Align") = 2 Then Response.write "CHECKED" %>> Center
<INPUT TYPE="Radio" NAME="Align" VALUE="1" <% if Request("Align") = 1 Then Response.write "CHECKED" %>> Right

<%
	if Request("Save") <> "" Then

Set Pdf = Server.CreateObject("Persits.Pdf")

Set Doc = Pdf.CreateDocument

Set page = Doc.Pages.Add
    
		' Arial supports Latin, Greek, Cyrillic, Hebrew and Arabic
		Set font = Doc.Fonts("Arial")

Text	 = Request("largetext")
		
		' Parameters: X, Y of upper-left corner of text box, Height, Width
		Set param = pdf.CreateParam("x=100;y=742;height=692;width=412")
		
		' Alignment and Arabic/Hebrew option
		param("Alignment") = Request("Align")
		
		Reverse = 0
		if Request("Reverse") = "on" Then Reverse = 1
		param("ReverseHebrewArabic") = Reverse
	    
		Do While Len(Text) > 0	
			CharsPrinted = Page.Canvas.DrawText(Text, param, font )

' We printed the entire string. Exit loop.
			if CharsPrinted = Len(Text) Then Exit Do

' Otherwise print remaining text on next page
			Set Page = Page.NextPage

Text = Right( Text, Len(Text) - CharsPrinted)
		Loop

' We use Session ID for file names
		' false means "do not overwrite"
		' The method returns generated file name
		Path = Server.MapPath( "files") & "\" & Session.SessionID & ".pdf"
		FileName = Doc.Save( Path, false)

Response.Write "<P><B>Success. Your PDF file <font color=gray>" & FileName & "</font> can be downloaded <A HREF=""files/" & FileName & """><B>here</B></A></B>."
		Set Page = Nothing
		Set Doc = Nothing
		Set Pdf = Nothing

End If
%>

<P>
<B><A HREF="demo_text.zip">Download source code (ASP and ASP.NET/C#) for this demo</A></B>

</FONT>
</TD></TR></TABLE>

</BODY>
</HTML>

File Manager

Editing: demo_text/demo_text.asp