• 首页
• 服务器租用
• 企业邮箱
• 虚拟主机
• 网站程序
• 营销推广
• 网站建设
• 域名注册
• 前端开发
• 网站备案

• 当前位置：创新互联 >> 常见问题 >> 网站程序 >> asp程序 >> 如何利用ASP实现邮箱访问

如何利用ASP实现邮箱访问

• 作者：创新互联 文章来源：网站程序部 点击数： 更新时间：2010-09-28
• 　　大家在访问网站时是否会在有些页面上见到这种功能---在访问网站的同时，还可以查看自己免费邮箱中是否有新邮件。这个功能是不是让你觉得很心动、很神秘呢？
  　　下面，创新互联小编就用ASP来举个例子让大家知道是如何实现这一功能的。
  　　首先你可以去一些提供免费邮件服务的站点，申请一个账号然后登录。在打开邮箱时，请您注意地址栏中的内容。现在以371为例，你会发现其内容通常是： http://www.371.net/prog/login?user=fighter&pass=mypassword。
  　　其中"fighter"是您的账号，"mypassword" 是您的密码。这时我们可以从这里得到3个信息。第1条是我们得到了处理文件的url及文件名:"http://www.371 .net/prog/login"；第2条是记录您账号的变量名:user；第3条是记录您密码的变量名:pass。我们知道这些信息后，就可着手写html文件和asp文件了。
  　　'/*PostOffice.asp源文件内容如下：*/
  　　< %@ Language=VBScript %>
  　　< %
  　　Response.Buffer = true
  　　'----------------------------------------------------
  　　'Author : Peter.yu
  　　'Created Date : 2000/3/13
  　　'File Name : PostOffice.asp
  　　'All Rights Reserved.所有权归City Club
  　　'----------------------------------------------------
  　　%>
  　　
  　　
  　　
  　　< %
  　　dim str(3)
  　　str1 =trim(Request.Form("selectmail")) '/*获取的邮件服务器及用户账号和密码信息*/
  　　for i = 1 to 3 '/*将以上获取的信息进行分割，并赋予给数组变量*/
  　　p = instr(1,str1,";")
  　　str(i-1) = mid(str1,1,p-1)
  　　str1 = mid(str1,p+1)
  　　next
  　　if instr(1,str(0),"http://")=0 then
  　　webSiteUrl = "http://" & str(0)
  　　else
  　　webSiteURL = str(0) '/*邮件服务器地址及指定处理的文件名*/
  　　end if
  　　usernam = str(1) '/*账号变量名*/
  　　password = str(2) '/*密码变更名*/
  　　'/*合并字符，得到诸如"http://www.371.net/prog/login?user=fighter&pass=mypassword的字符"*/
  　　mailUrl = webSiteUrl & usernam & "=" & trim(Request.Form("account"))
  　　mailUrl = mailUrl & chr(38) & password & "=" & trim(Request.Form("password"))
  　　Response.Redirect mailUrl '/*打开邮箱*/
  　　%>
  　　
  　　
  　　'/*PostOffice.asp源文件内容结束*/
  　　不是很难吧。其实这个不是很难的，关键在于大家能多多观察，找出其中的规律。这样我们就可以利用这些规律在做网站时发现很多很多有意义有趣的事了。
• ASP调用SQL Server视图和存储 :上一篇
  Asp深度揭密之四 :下一篇