内容包括：
1.About PowerBuilder Web Form applications
2.Client-Side Events and Default Event Handlers
3.Print, File, Mail, and Registry Operations in Web Forms
4.Unsupported Features in PowerBuilder Web Forms
5.Converting the Tutorial to a Web Form Application
申明Local External Functions：
function int MyUtil_SMTP_Connect(string host,int port,string UserId,string PassWord) library "MyMail.dll"
function int MyUtil_SMTP_Disconnect() library "MyMail.dll"
function int MyUtil_SMTP_Msg_Init() library "MyMail.dll"
function int MyUtil_SMTP_Msg_SetInfo(int i_type,int i_sub_type,string as_text) library "MyMail.dll"
function int MyUtil_SMTP_Msg_Send() library "MyMail.dll"
发送代码：
//使用例程：
string ls_host,ls_user,ls_pwd,ls_mail_to,ls_mail_cc,&
ls_subject,ls_text,ls_mail_fr,ls_attach
int li_port,li_ret
ls_host=trim(sle_host.text) //服务器名
ls_user=trim(sle_user.text) //发件人登陆发件服务器时的用户名
ls_pwd=trim(sle_password.text) //发件人登陆发件服务器时的密码
li_port=integer(sle_port.text) //发送服务器的smtp端口号，没改的话一般是25
ls_mail_to=trim(sle_mail_to.text)//接收人email地址
ls_mail_cc=trim(sle_mail_cc.text)//抄送，好像有点问题，我没有成功
ls_subject=sle_subject.text //主题
ls_mail_fr=trim(sle_mail_fr.text) //发件人
ls_text=mle_text.text //正文
ls_attach=trim(sle_attach.text) //附件，多个的话要分开
setpointer(hourglass!)
//邮件初始化：
if MyUtil_SMTP_Msg_Init()<0 then
MessageBox("info","初始化失败!!!");
end if
if MyUtil_SMTP_Msg_SetInfo(1,1,ls_mail_fr)<0 then
MessageBox("info","设置发送者信息出错!!!")
end if
if MyUtil_SMTP_Msg_SetInfo(1,2,ls_user)<0 then
MessageBox("info","设置发送者名称出错!!!")
end if
if MyUtil_SMTP_Msg_SetInfo(2,1,ls_mail_to)<0 then
MessageBox("info","设置接收者地址出错!!!")
end if
//if MyUtil_SMTP_Msg_SetInfo(2,1,ls_mail_cc)<0 then
//MessageBox("info","设置接收者地址出错!!!")
//end if
if MyUtil_SMTP_Msg_SetInfo(3,1,ls_subject)<0 then
MessageBox("info","设置主题出错!!!")
end if
if MyUtil_SMTP_Msg_SetInfo(5,1,ls_text)<0 then
MessageBox("info","设置正文失败!!!")
end if
if MyUtil_SMTP_Msg_SetInfo(6,1,ls_attach)<0 then
MessageBox("info","设置附件名称出错!!!")
end if
if MyUtil_SMTP_Connect(ls_host,li_port,ls_user,ls_pwd)<0 then
messageBox("info","连接失败！")
end if
if MyUtil_SMTP_Msg_Send()<0 then
MessageBox("info","发送失败！")
else
Messagebox('Info','发送成功!')
FileDelete ( ls_attach )
end if
if MyUtil_SMTP_Disconnect()<0 then
MessageBox("info","断开失败!!!")
end if
setpointer(arrow!)
