用ASP实现邮箱登陆的代码.源代码公开

<%Response.Buffer = true
Response.Expires=-100
Response.Expiresabsolute = Now() - 10
Response.AddHeader 'pragma','no-cache'
Response.AddHeader 'cache-control','private'
Response.CacheControl = 'no-cache'
dim EServer,UN,PW
EServer=Request.Form('Eserver') '服务商
UN=trim(Request.Form ('username')) '用户名
PW=Request.Form ('Password')     '密码
if UN='' or pw='' then
Response.Write '请完整输入您的用户名和密码'
Response.end
end if
Dim TheInfoN(12),TheInfoV(12) '表单的域名，和其值    0 号元素为表单的递交对象(action) 和递交方法(post get )
Dim TheInfoL                    '表单的域的个数
Dim TheStr
dim ii,yh
yh=chr(34)
TheStr=''
'内容初始化预设初值
TheInfoL=1
TheInfoV(0)=''
TheInfoN(0)='post'
TheInfoV(1)=UN
TheInfoN(1)='user'
TheInfoV(2)=PW
TheInfoN(2)='pass'

select case EServer
case '@yeah.net'
   TheInfoV(0)='http://web.yeah.net/cgi/login';; '>网易@yeah.net
   TheInfoL=2
case '@163.com'
   TheInfoV(0)='http://reg4.163.com/in.jsp?url=http://reg4.163.com/EnterEmail.jsp?username=window.document.login.username.&#118alue' '>网易@163.com
   TheInfoN(1)='username'
   TheInfoN(2)='password'
   TheInfoL=2
case '@netease.com'
   TheInfoV(0)='http://n2.163.com/cgi/login';; '>网易@netease.com
   TheInfoL=2
case '@126.com'
   TheInfoV(0)='http://www.126.com/cgi/login';; '>网易@126.com
   TheInfoN(1)='email'
   TheInfoN(2)='password'
   TheInfoL=2
case '@263.net'
   TheInfoV(0)='http://freemail.263.net/cgi/login';; '>@263.net
   TheInfoL=2
case '@sohu.com'                          '>搜狐@sohu.com
   TheInfoV(0)='http://login.sohu.com/chkpwd.php';;
   TheInfoN(1)='UserName'
   TheInfoN(2)='Password'
   TheInfoN(3)='PAGER'
   TheInfoV(3)='no'
   TheInfoL=3
case '@chinaren.com' TheInfoV(0)='' '>中国人@chinaren.com
case '@sina.com'
   TheInfoV(0)='http://mail.sina.com.cn/cgi-bin/login.cgi';; '>新浪@sina.com
   TheInfoN(1)='u'
   TheInfoN(2)='psw'
   TheInfoN(3)='l'
   TheInfoV(3)='http://mail.sina.com.cn/cgi-bin/mail.cgi';;
   TheInfoN(4)='product'
   TheInfoV(4)='mail'
   TheInfoL=4
case '@china.com'                           '>@china.com
   TheInfoV(0)='http://freemail.china.com/extend/gb/NULL/NULL/NULL/SignIn.gen';;
   TheInfoN(1)='LoginName'
   TheInfoN(2)='passwd'
   TheInfoL=2
case '@8848.net'
   TheInfoV(0)='http://freemail.8848.net/extend/gb/NULL/NULL/SignIn.gen';; '>@8848.net
   TheInfoN(1)='LoginName'
   TheInfoN(2)='passwd'
   TheInfoL=2
case '@etang.com'                '>亿唐@etang.com
   TheInfoV(0)='http://login.etang.com/servlet/login';;
   TheInfoN(3)='BackURL'
   TheInfoV(3)='http://mail.etang.com/cgi/door';;
   TheInfoN(1)='login_name'
   TheInfoN(2)='login_password'
   TheInfoL=3
case '@email.com.cn'
   TheInfoV(0)='http://202.106.186.230/extend/newgb1/NULL/NULL/NULL/SignIn.gen';; '>百家信箱@email.com.cn
   TheInfoN(1)='LoginName'
   TheInfoN(2)='passwd'
   TheInfoN(3)='DomainName'
   TheInfoV(3)='email.com.cn'
   TheInfoL=3
case '@elong.com' TheInfoV(0)='' '>亿龙@elong.com
case '@371.net'
   TheInfoV(0)='http://www.371.net/prog/login';; '>371.net
   TheInfoL=2
case '@188.net'
   TheInfoV(0)='http://www.188.net/prog/login';; '>188.net
   TheInfoL=2
case '@163.net'
   TheInfoV(0)='http://bjweb.163.net/cgi/login';; '>163.net
   TheInfoL=2
case '@777.net'
   TheInfoV(0)='http://mail.777.net.cn/v2.0/html/mailbox.php3';; '>@777.net.cn
   TheInfoL=2
case '@2911.net' TheInfoV(0)='http://www.2911.net/cgi-bin/login?username=TheN&password=TheP';; '>2911
case '@kali.com.cn' TheInfoV(0)='http://hotmail.yn.cninfo.net/prog/login?user=TheN&pass=TheP';; '>云南169
case '@hongkong.com' TheInfoV(0)='http://freemail.hongkong.com/prog/login?user=TheN&pass=TheP';; '香港
case '@hotmail.com' TheInfoV(0)='http://lc3.law5.hotmail.com/cgi-bin/dologin?login=TheN&passwd=TheP';; '>@hotmail.com
case '@use.net' TheInfoV(0)='http://www.netaddress.com/tpl/Door/login?UserID=TheN&passwd=TheP';; '>use.net
case '@88998.com' TheInfoV(0)='http://www.88998.com/cgi-win/login?username=TheN&password=TheP';; '>88998.com
case '@mail.com' TheInfoV(0)='http://www.mail.com/mailcom/login.jhtml?mn=TheN&pw=TheP';; '>@mail.com
end select
if TheInfoL<=1 then
TheInfoV(0)=replace(TheInfoV(0),'TheN',UN)
TheInfoV(0)=replace(TheInfoV(0),'TheP',PW)
Response.Redirect TheInfoV(0)
else
dim Str
Str='<html>
<title>...::蓝蝶精品网::... @ 便民邮局 ... 方便您的网络畅游！
</title>
<body oncontextmenu=self.event.returnvalue=false>
<form action='&yh&TheInfoV(0)&yh &' method='&TheInfoN(0)&' name=eform>
正在进入<font color=red>' & EServer & '</font>
邮件系统，请稍侯。。。'
for ii=1 to TheInfoL
Str=Str & '<input type=hidden name='&TheInfoN(ii)&' value='&yh&TheInfoV(ii)&yh&'>'
next
Str=Str & '</form>' & TheStr & '<script language='&yh&'javascript'&yh&'>document.eform.submit(eform.form)
</script>
</body>
</html>'
Response.Write Str
end if
Response.End
%>