用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.value" '>網易@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";;  '>291