IP Data Pro
This application is an update on Plasma's "IP Stealer Pro" submission. I really liked his concept, but can't stand to use un-commented, un-indented code. I cleaned up the source and interface, as well as made some code changes to increase reliability and functionability. I'm planning on coding some more advanced "cowboy response scripts" for this app when I have the time, and I will post them when finished. If you come up with any new scripts or improvements, please e-mail me or post a comment. Thanx and enjoy ! Later - Alloy Cowboy -
AI
Résumé par IA: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Code source
Upload
Sending email with HTML(Image Option)
How to send a HTML email through asp.
First file "feedback_form.asp" is a feedback form You can
modify the form fields.
Second file " sen_feedback.asp" you can also change the format
of your file.
1..file name*****************feedback_form.asp******************
<html>
<head>
<title> ______________Feedback_____________________Form_________________</title>
</head>
<body style="font-family: Verdana">
<%
flname=server.urlencode("sen_feedback.asp")
%>
<form method="POST" action="<%=flname%> ">
<div align="center">
<center>
<table border="1" width="66%" cellpadding="4" bordercolor="#808080">
<tr>
<td width="100%" colspan="2" bgcolor="#FFCC99">
<p align="center"> <b> Feedback Form</b> </td>
</tr>
<tr>
<td width="50%" align="right" bgcolor="#800000"> <font color="#FFFFFF"> To:</font> </td>
<td width="50%" bgcolor="#800000"> <input type="text" name="tona" size="28" style="font-family: Verdana; font-size: 8pt"> </td>
</tr>
<tr>
<td width="50%" align="right" bgcolor="#800000"> <font color="#FFFFFF"> Subject:</font> </td>
<td width="50%" bgcolor="#800000"> <input type="text" name="subj" size="28" style="font-size: 8pt; font-family: Verdana"> </td>
</tr>
<tr>
<td width="50%" align="right" bgcolor="#800000"> <font color="#FFFFFF"> From:</font> </td>
<td width="50%" bgcolor="#800000"> <input type="text" name="fro" size="28" style="font-size: 8pt; font-family: Verdana"> </td>
</tr>
<tr>
<td width="50%" valign="top" align="right" bgcolor="#800000"> <font color="#FFFFFF"> Message:</font> </td>
<td width="50%" bgcolor="#800000"> <textarea rows="5" name="mes" cols="34" style="font-family: Verdana; font-size: 8pt"> </textarea> </td>
</tr>
<tr>
<td width="50%" bgcolor="#800000">
<p align="right"> <input type="submit" value="Send Message" name="B1" style="font-family: Verdana; font-size: 8pt"> </td>
<td width="50%" bgcolor="#800000"> <input type="reset" value="Clear Message" name="B2" style="color: #000000; font-family: Verdana; font-size: 8pt"> </td>
</tr>
</table>
</center>
</div>
<p> </p>
</form>
</body>
</html>
2..file name*****************sen_feedback.asp******************
<%@ Language=VBScript%>
<%
mes=Request.Form ("mes")
sq=server.MapPath ("../image/")
messagebody="<center> <table border=1 bgcolor=lightsteelblue> <tr> <td bgcolor=red> <center> <font color=white face=verdana> This Feedbackform is provided by www.perfectinfosolution.com</font> </center> </td> <td> <img src=" & sq &"book.gif" & "> </td> </tr> <tr> <td> <font color=black face=verdana> "& mes &"</tr> </td> </font> </table> "
set mailobj=server.CreateObject ("cdonts.newmail")
mailobj.MailFormat =0
mailobj.BodyFormat =0
mailobj.To =Request.Form ("tona")
mailobj.From =Request.Form ("fro")
mailobj.Subject =Request.Form ("subj")
mailobj.Body =messagebody
mailobj.Send
set mailobj =nothing
%>
<BODY bgColor=LemonChiffon bgProperties=fixed text=Black>
<center> <font face="verdana"> Your Message Hasbeen sent<br>
To the following Recipetent:</font> <font color=red face="verdana"> <b> <%=Request.Form ("tona")%> </b> </font> </center>
</body>
Commentaires originaux (3)
Récupéré via Wayback Machine