WEB开发网
开发学院WEB开发ASP ASP开发WAP简易邮件系统实例(续) 阅读

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) 接收邮件

上一页  1 2 3 4 5 6  下一页

Tags:ASP 开发 WAP

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接