|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
表单主要代码如下: <form action="post.asp" method="post" name="mywebmail"> 您的姓名: <input type="text" name="name" size="20" maxlength="50"> 电子邮件: <input type="text" name="email" size="20" maxlength="60"> 邮件主题: <input type="text" name="mailsubject" size="30" maxlength="100"> 您的意见和建议:<br> <textarea rows="4" name="text" cols="40"></textarea> <input type="submit" value="确认递交" name="submit"> <input type="reset" value="清除重写" name="clear"> </form> post.asp代码: <html> <head> <title>发送表单</title> <body> <html> <head> <title>发送表单</title> <body> <% \\\'首先使用Request方式取得表单数据,取得的数据放在等号左侧的变量中; name = Request.Form ("name") email= Request.Form ("email") mailsubject= Request.Form ("mailsubject") text = Request.Form ("text") %> <% ‘创建jmail对象; Set JMail = Server.CreateObject("JMail.SMTPMail") \\\' 邮件服务器名称 JMail.ServerAddress = "mail.263.net.cn:25" \\\' 发件人的信箱 JMail.Sender = email \\\' 邮件标题 JMail.Subject = mailsubject \\\' 设置邮件的收件人信箱; JMail.AddRecipient "xxxx@mailhost.com" \\\'下面就是填表在内容区填写的内容,&是连接符,vbcrlf表示换行回车。 mess = "---------------Webmail表单开始-------------------" & vbcrlf mess = mess & "留言人姓名:" & name & vbcrlf mess = mess & "留言人邮件:" & email & vbcrlf mess = mess & "留言人留言:" & text & vbcrlf mess = mess & "---------------Webmail表单结束-------------------" JMail.Body = mess \\\'设置邮件的优先级(1-5,1为最高) JMail.Priority = 1 \\\'执行发送任务; JMail.Execute %> <center> 邮件已顺利发出! </center> </body> </html> 返回类别: 教程 上一教程: 一个简朴的网上书城的例子(二) 下一教程: ASP进阶教程Ⅳ:加入出色留言 您可以阅读与"JMAIL实例"相关的教程: · JMAIL发信的实例,模块化随时调用 · JMAIL发信实例,可直接调用 · FILESYSTEMOBJECT组件新建、读取、添加、修改、删除功能实例 · FSO组件操作实例技巧 · 新的JMAIL(4.3版本)发送代码 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |