当前位置：首页 -> 技术开发 -> ASP专区 -> 用ASP实现邮箱访问

用ASP实现邮箱访问

时间： 2021-07-31 作者：daque

网站时能否会在有些页面上见到这种功效---您在不妨考察此网站的同声，还不妨察看您免费邮箱中能否有新邮件。这个功效是否让您感触很心动、很神奇呢？底下，我就用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源文献实质如次：*/ <html> <head> <meta name="generator" content="microsoft visual studio 6.0"> </head> <title>city club 首页</title> <style type="text/css">  </style> <script language="javascript"> function check(tt) { if (window.document.form1.selectmail.selectedindex==0) { alert("请采用您的邮箱效劳器！") window.document.form1.selectmail.focus() return false } if (tt.account.value=="") { alert("帐号不许为空！请填写。") tt.account.focus() return false } if (tt.account.value.length<3) { alert("帐号长度不许小于3位！请填写。") tt.account.focus() return false } if (tt.password.value=="") { alert("暗号不许为空！请填写。") tt.password.focus() return false } if (tt.password.value.length<3) { alert("暗号长度不许小于3位！请填写。") tt.password.focus() return false } else return true } </script> <body topmargin=12> <table border=0 bgcolor=d3d3d3> <td> <form action="postoffice.asp" method=post onsubmit="return check(this)" name=form1 target="_blank">  <select style="font-size:9pt;background-color:add8e6" name="selectmail"> <option name="mailsite" value="city club方便人民群众邮局" selected>city club方便人民群众邮局</option> <option name='mailsite' value='990.net/prog/login?;user;pass;'>990</option> <option name='mailsite' value='www.371.net/prog/login?;user;pass;'>371</option> <option name='mailsite' value='www.188.net/prog/login?;user;pass;'>188</option> <option name='mailsite' value='web.163.net/cgi/login?;user;pass;'>163</option> <option name='mailsite' value='freemail.263.net/cgi/login?;user;pass;'>263</option> <option name='mailsite' value='mail.777.net.cn/v2.0/html/mailbox.php3?;user;pass;'>777</option> <option name='mailsite' value='www.126.com/cgi/login?;email;password;'>126</option> <option name='mailsite' value='www.2911.net/cgi-bin/login?;username;password;'>2911</option> <option name='mailsite' value='hotmail.yn.cninfo.net/prog/login?;user;pass;'>云南169</option> <option name='mailsite' value='freemail.china.com/prog/login?;user;pass;'>china</option> <option name='mailsite' value='freemail.hongkong.com/prog/login?;user;pass;'>香港免费电邮</option> <option name='mailsite' value='freemail.netease.com/prog/login?;user;pass;'>netease</option> <option name='mailsite' value='lc3.law5.hotmail.com/cgi-bin/dologin?;login;passwd;'>hotmail</option> <option name='mailsite' value='www.netaddress.com/tpl/door/login?;userid;passwd;'>use.net</option> <option name='mailsite' value='www.88998.com/cgi-win/login?;username;password;'>88998.com</option> <option name='mailsite' value='www.mail.com/mailcom/login.jhtml?;mn;pw;'>@mail.com</option> </select><br> 帐号:<input type=text name=account size=12 style="font-size:9pt"><br> 暗号:<input type=password name=password size=12 style="font-size:9pt"><br> </td><tr><td align=center><input type=submit value="收信" style="font-size:9pt"> <input type=reset value="重填" style="font-size:9pt"> </td> </form> </td> </body> </html> '/*html源文献实质中断*/ '/*postoffice.asp源文献实质如次：*/ <％@ language=vbscript ％> <％ response.buffer = true '---------------------------------------------------- '----------------------------------------------------'author : peter.yu 'created date : 2000/3/13 /3/13'file name : postoffice.asp 'all rights reserved.一切权归city club '---------------------------------------------------- ％> <html> <head> <meta name="generator" content="microsoft visual studio 6.0"> </head> <title>city club 方便人民群众邮局（all rights reserved一切权归city club）</title> <body> <％ 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 '/*翻开邮箱*/ ％> </body> </html> '/*postoffice.asp源文献实质中断*/ 不是很难吧，呵呵。本来这个不是很难的，要害在乎您能多多查看，找到个中的顺序。如许咱们就不妨运用那些顺序做很多很多有意旨风趣的事了。

用ASP实现邮箱访问

相关推荐

推荐下载

热门阅览

最新排行