stampVB.aspx (VB.NET):
<%@ Page Language="VB" %>
<HTML>
<HEAD>
<SCRIPT runat="server">
Sub Button1_OnClick(Source As Object, e As EventArgs)
Dim NVstamp as New PDFstamp.Neevia
Dim indx : indx = NVstamp.CreateNewStamp
NVstamp.Stamps(indx).StampType = 2
NVstamp.Stamps(indx).Name = "Stamp1"
NVstamp.Stamps(indx).ImageFile = "c:\stamp.jpg"
NVstamp.Stamps(indx).X = "center"
NVstamp.Stamps(indx).Y = "center"
NVstamp.Stamps(indx).PlaceAs = 1
Dim retVal
retVal = NVstamp.StampPDF("c:\in.pdf", "c:\out.pdf")
If retVal <> 0 Then
Response.Write("Error code=" & CStr(retVal))
Else
Response.Write("Done")
End If
End Sub
</SCRIPT>
</HEAD>
<BODY><CENTER>
<FORM id="Form1" enctype="multipart/form-data" method="post" runat="server">
<INPUT id="Submit1" type="submit" value="Stamp file"
OnServerClick="Button1_OnClick" name="Submit1" runat="server">
</FORM>
</BODY>
</HTML>
stampCsharp.aspx (C#):
<%@ Page Language="C#" %>
<HTML>
<HEAD>
<SCRIPT runat="server">
void Button1_OnClick(object Source, EventArgs e)
{
PDFstamp.Neevia NVstamp = new PDFstamp.Neevia();
int indx = NVstamp.CreateNewStamp();
NVstamp.get_Stamps(indx).StampType = 2;
NVstamp.get_Stamps(indx).Name = "Stamp1";
NVstamp.get_Stamps(indx).ImageFile = @"c:\stamp.jpg";
NVstamp.get_Stamps(indx).X = "center";
NVstamp.get_Stamps(indx).Y = "center";
NVstamp.get_Stamps(indx).PlaceAs = 1;
int retVal;
retVal = NVstamp.StampPDF(@"c:\in.pdf", @"c:\out.pdf");
if (retVal != 0)
{
Response.Write("Error code = " + retVal.ToString());
}
else
{
Response.Write("Done");
}
}
</SCRIPT>
</HEAD>
<BODY><CENTER>
<FORM id="Form1" enctype="multipart/form-data" method="post"
runat="server">
<INPUT id="Submit1" type="submit" value="Stamp file"
OnServerClick="Button1_OnClick" name="Submit1" runat="server">
</FORM>
</BODY>
</HTML>
| 
Developing a solution that enables endusers to compress their PDF files is indeed an easy task with Neevia PDFcompress. Thank you!
