<%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 MailBox,UN,PW
MailBox=Request.Form("MailBox")  '服务商
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
TheInfoE=""

TheInfoV(0)=""
TheInfoN(0)="post"

TheInfoV(1)=UN
TheInfoN(1)="user"

TheInfoV(2)=PW
TheInfoN(2)="pass"

select case MailBox
case "65401" 
   TheInfoE="@654.cn"
   TheInfoV(0)="http://mail.654.cn/login.php" '>乐王@654.cn
   TheInfoN(1)="user"
   TheInfoN(2)="passwd"
   TheInfoN(3)="CHECKID"
   TheInfoV(3)="8ce22c41e80278fb6ad09c13b1154c721155530189" 
   TheInfoN(4)="configsubmit"
   TheInfoV(4)="1" 
   TheInfoL=4
case "65402" 
   TheInfoE="@163.com"
   TheInfoV(0)="http://reg4.163.com/in.jsp?url=http://reg4.163.com/EnterEmail.jsp?username=window.document.login.username.value" '>网易@163.com
   TheInfoN(1)="username"
   TheInfoN(2)="password"
   TheInfoL=2
case "65403"  
   TheInfoE="@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 "65404"  '@126.com
   TheInfoE="@126.com"
   TheInfoV(0)="http://entry.126.com/cgi/login" '>网易@126.com
   TheInfoN(1)="user"
   TheInfoN(2)="pass"
   TheInfoL=2
case "65405"  
   TheInfoE="@163.net"
   TheInfoV(0)="http://bjweb.mail.tom.com/cgi/163/login_pro.cgi" '>163.net
   TheInfoL=2
case "65406"  '@126.com
   TheInfoE="@21cn.com"
   TheInfoV(0)="http://webmail.21cn.com/NULL/NULL/NULL/NULL/NULL/SignIn.gen" '>网易@126.com
   TheInfoN(1)="LoginName"
   TheInfoN(2)="passwd"
   TheInfoL=2
case "65407"                          '>搜狐@sohu.com
   TheInfoE="@sohu.com"
   TheInfoV(0)="http://login.mail.sohu.com/chkpwd.php"
   TheInfoN(1)="UserName"
   TheInfoN(2)="Password"
   TheInfoL=2                          
case "65408"                          '>@tom.com
   TheInfoE="@tom.com"
   TheInfoV(0)="http://bjweb.mail.tom.com/cgi/163/login_pro.cgi"
   TheInfoN(1)="user"
   TheInfoN(2)="pass"
   TheInfoN(3)="type"
   TheInfoV(3)="1"
   TheInfoN(4)="style"
   TheInfoV(4)="0"
   TheInfoN(5)="url"
   TheInfoV(5)="http://bjweb.mail.tom.com/cgi/login2"
   TheInfoL=5 
case "65409" 
   TheInfoE="@vip.163.com"
   TheInfoV(0)="http://vip.163.com/logon.m" '>网易@163.com
   TheInfoN(1)="username"
   TheInfoN(2)="password"
   TheInfoN(3)="enterVip"
   TheInfoV(3)="false"
   TheInfoL=3
case "65410" 
   TheInfoE="@263.net"
   TheInfoV(0)="http://g2wm.263.net/xmweb" '>@263.net
   TheInfoN(1)="usr"
   TheInfoN(2)="pass"
   TheInfoL=2
case "65411"                           '>@china.com
   TheInfoE="mail.china.com"
   TheInfoV(0)="http://freemail.china.com/extend/gb/NULL/NULL/NULL/SignIn.gen"
   TheInfoN(1)="LoginName"
   TheInfoN(2)="passwd"
   TheInfoL=2
case "65412" 
   TheInfoE="yeah.net"
   TheInfoV(0)="http://entry.yeah.net/cgi/login" '>网易@netease.com
   TheInfoL=2
case "65413" 
   TheInfoE="yahoo.com.cn"
   TheInfoV(0)="https://edit.bjs.yahoo.com/config/login" '>网易@yeah.net
   TheInfoL=2
case "65414"                '>亿唐@etang.com
   TheInfoE="vip.etang.com"
   TheInfoV(0)="http://login.etang.com/servlet/login"
   TheInfoN(1)="login_name"
   TheInfoN(2)="login_password"
   TheInfoN(3)="BackURL"
   TheInfoV(3)="http://mail.etang.com/cgi/door"
   TheInfoL=3
case "65415"  
   TheInfoE=""
   TheInfoV(0)="http://www.188.com" '>188.com
   TheInfoN(1)="user"
   TheInfoN(2)="password"
   TheInfoN(3)="domain"
   TheInfoV(3)="188.com"
   TheInfoL=3
case "65416"
   TheInfoE="" 
   TheInfoV(0)="http://freemail.hongkong.com/prog/login?user=TheN&pass=TheP" '香港
case "65417" 
   TheInfoE=""
   TheInfoV(0)="http://lc3.law5.hotmail.com/cgi-bin/dologin?login=TheN&passwd=TheP" '>@hotmail.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>" & TheInfoE & "</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 
%>
