怎样用asp实现邮箱访问？

您在访问网站时是否会在有些页面上见到这种功能---您在可以访问此网站的同时，还可以查看您免费邮箱中是否有新邮件。这个功能是不是让您觉得很心动、很神秘呢？下面，我就用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文件了。

'/*html源文件内容如下：*/

target=_blank> city club便民邮局 990 371 188 163 263 777 126 2911 云南169 china 香港免费电邮 netease hotmail use.net 88998.com @mail.com 帐号: 密码:

'/*html源文件内容结束*/

'/*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源文件内容结束*/

更多信息请查看IT技术专栏