快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

在WAP网站上建立反馈表单

For any one person to create a web site and then think it is perfect, is ridiculous. It is important to
allow the visitors of our web sites to comment on what we have developed so that we can learn from the end-
user, our mistakes and not to mention the overall effectiveness. We create these facilities for web sites
so why not create them for our WAP sites.

A feedback form is developed by first creating the form, in this case to capture the end-user\\'s comments,
and second to create the SendMail code, which will be used to send the comments via e-mail to us. As
always if you have any other problems with ASP/WML then you can e-mail me at michael_wright@lineone.net.
Also if you are a company supervisor, manager or director I am always looking for work, whether it be
working remotely or on-location. Please feel free to e-mail the same address.

First we create the feedback form itself. Please remember to change the red capital letters within the
code.

<% Response.ContentType = "text/vnd.wap.wml" %><?xml version="1.0"?>

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">

<wml>

<!-- THIS IS THE FIRST CARD IN THE DECK -->

<card id="mainCard">

<p align="left"><small><b>Your Feedback</b></small></p>

<p align="left">Please enter your email address <input type="text" name="txtFrom" format="*M"/>

Please enter your feedback <input type="text" name="txtMessage" format="*M"/></p>

<do type="accept" label="Submit!"><go href="email.asp" method="post"><postfield name="txtFrom"
value="$txtFrom"/><postfield name="txtMessage" value="$txtMessage"/></go></do>

<p align="left"><small><a href="LOCATION OF YOUR MAIN WAP PAGE">Back</a></small></p>

</card>

</wml>

Now save that code as a file called feedback.asp. Then we must create the SendMail code. This SendMail
code can only be used if you have the ASPMail component installed on your web server. It is possible to
simply change the ASP code in conjunction with your own component e.g. CDONTS.

<% Response.ContentType = "text/vnd.wap.wml" %><?xml version="1.0"?>

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">

<wml>

<card id="mainCard" title="Send Feedback">

<p><small><b>Your Feedback</b></small></p>

<%

sstrToName = "YOUR NAME"

sstrToAddr = "YOUR EMAIL ADDRESS"

Set Mailer = CreateObject("SMTPsvg.Mailer")

Mailer.RemoteHost = "SMTP MAIL SERVER"

Mailer.FromAddress = Request.Form("txtFrom")

Mailer.AddRecipient sstrToName, sstrToaddr

Mailer.Subject = "SUBJECT OF FEEDBACK EMAIL"

Mailer.BodyText = Request.Form("txtMessage")

If Mailer.SendMail Then

Response.Write "<p><small>Mail has been sent...</small></p>"

else

Response.Write "<p><small>Mail send failure. Error was " & Mailer.Response &"</small></p>"

end if

%>

<p align="left"><small><a href="LOCATION OF YOUR MAIN WAP PAGE">Back to Menu</a></small></p>

</card>

</wml>

Now save that code as a file called email.asp and you are ready to test it. I hope you found this article
helpful. One of the main problems I had when creating this code was the way in which the WAP input is
recognised by the ASP code i.e. You must either use Request.Form("txtFrom") or Request.QueryString
("txtFrom") and not just Request("txtForm").



返回类别: 教程
上一教程: asp+语法介绍(四)----asp+的服务器端编程进介
下一教程: 利用instr()函数防止SQL注入攻击

您可以阅读与"在WAP网站上建立反馈表单"相关的教程:
· 如何在IIS上搭建WAP网站
· 利用索引服务和ASP建立面向整个网站搜索程序
· 如何使用ASP在自己的网站建立投票机制(二)
· 网站设计中表单验证
· 如何使用ASP在自己的网站建立投票机制(一)
    微笑服务 优质保证 索取样品