asp网页邮箱访问

时间：2021-05-28

前些日子在群里头有位朋友问到怎么实现在网页上的邮箱访问功能现在将从网上看到的网站载了下来，便人便已。这个是html的代码您在访问网站时是否会在有些页面上见到这种功能---您在可以访问此网站的同时，还可以查看您免费邮箱中是否有新邮件。这个功能是不是让您觉得很心动、很神秘呢？下面，我就用ASP来举个例子让您知道是如何实现这一功能的。

　　首先你可以去一些提供免费邮件服务的站点，申请一个账号然后登录。在打开邮箱时，请您注意地址栏中的内容。现在以371为例，你会发现其内容通常是：http://</option>
</select><br>
帐号:<inputtype=textname=accountsize=12style="font-size:9pt"><br>
密码:<inputtype=passwordname=passwordsize=12style="font-size:9pt"><br>
</td><tr><tdalign=center><inputtype=submitvalue="收信"style="font-size:9pt">
<inputtype=resetvalue="重填"style="font-size:9pt">
</td>
</form>
</td>
</table>
</BODY>
</HTML>

'
'
复制代码 代码如下:
<%@Language=VBScript%>
<%
Response.Buffer=true
'----------------------------------------------------
'Author:Peter.yu
'CreatedDate:2000/3/13
'FileName:PostOffice.asp
'AllRightsReserved.所有权归CityClub
'----------------------------------------------------
%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
</HEAD>
<title>CityClub便民邮局（AllRightsReserved所有权归CityClub）</title>
<BODY>
<%
dimstr(3)
str1=trim(Request.Form("selectmail"))'
fori=1to3'
p=instr(1,str1,";")
str(i-1)=mid(str1,1,p-1)
str1=mid(str1,p+1)
next
ifinstr(1,str(0),"http://")=0then
webSiteUrl="http://"&str(0)
else
webSiteURL=str(0)'
endif
usernam=str(1)'
password=str(2)'
'
mailUrl=webSiteUrl&usernam&"="&trim(Request.Form("account"))
mailUrl=mailUrl&chr(38)&password&"="&trim(Request.Form("password"))
Response.RedirectmailUrl'
%>
</BODY>
</HTML>

'

　　不是很难吧。其实这个不是很难的，关键在于您能多多观察，找出其中的规律。这样我们就可以利用这些规律做很多很多有意义有趣的事了。

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章