ASP开发WAP简易邮件系统实例(续)
2007-07-19 12:04:23 来源:WEB开发网核心提示: 〈% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %〉〈%Response.ContentType = "text/vnd.wap.wml; charset=UTF-8"%〉〈?xml versio
〈% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %〉
〈%Response.ContentType = "text/vnd.wap.wml; charset=UTF-8"%〉
〈?xml version="1.0" encoding="utf-8"?〉
〈!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"〉
〈wml〉
〈card id="main" title="发送邮件"〉
〈p〉
〈%
user=request("user")
pwd=request("pwd")
tomail=request("tomail")
'from=request.form("from")
subject=request.form("subject")
body=request.form("body")
servermail=user+"@sohu.com"
dim JMail
set JMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset = "gb2312"
JMail.from =""&ServerMail&"" '为发件人
JMail.AddRecipient tomail
JMail.Subject =""&subject&""
jmail.Body=""&body&"----------你当前使用的众赢掌中邮系统,详情请访问:http://www.palmmail.cn邮通天下 一触即发!----------"
JMail.MailServerUserName =user
JMail.MailServerPassWord = pwd
JMail.MailDomain = "www.sohu.com"
JMail.Priority=2
sendok=JMail.send("smtp.sohu.com")
Set JMail=nothing
if sendok then
response.write "发送成功!〈a href='main.asp?user="&user&"&pwd="&pwd&"'〉返回邮箱〈/a〉"
else
response.write "发送失败!〈a href='send.asp?user="&user&"&pwd="&pwd&"'〉返回邮箱〈/a〉"
end if
%〉
〈/p〉
〈/card〉
〈/wml〉
4) 接收邮件
- ››ASP.NET及JS中的cookie基本用法
- ››ASP.NET获取MS SQL Server安装实例
- ››开发Android 日历教程
- ››开发学院总结 Win 8实用技巧大全
- ››asp.net实现调用百度pai 在线翻译英文转中文
- ››ASP.NET页面选项进行提示判断
- ››Asp.net定时执行程序
- ››开发学院原创教程:把win8的IE10放桌面上方法(非...
- ››ASP.NET中利用DataList实现图片无缝滚动
- ››ASP.NET验证控件RequiredFieldValidator
- ››ASP.NET中使用System.Net.Mail发邮件
- ››ASP.NET中获取用户控件中控件的ID
更多精彩
赞助商链接