Source
<%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") ' Service provider
Un=trim (Request.Form ("username")) ' username
Pw=request.form ("Password") ' Password
If un= "" or pw= "" Then
Response.Write "Please enter your username and password fully"
Response.End
End If
Dim Theinfon (12) ' The domain name of the form, and its value No. 0 element for the form's submission object (action) and submission method (Post get)
Number of fields in Dim theinfol ' form
Dim Thestr
Dim ii,yh
YH=CHR (34)
Thestr= ""
' Content initialization Preset initial value
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";; ' > NetEase @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 "' > NetEase @163.com
Theinfon (1) = "username"
Theinfon (2) = "Password"
theinfol=2
Case "@netease. com"
Theinfov (0) = "Http://n2.163.com/cgi/login";; ' > NetEase @netease.com
theinfol=2
Case "@126.com"
Theinfov (0) = "Http://www.126.com/cgi/login";; ' > NetEase @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 @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) = "" ' > Chinese @chinaren.com
Case "@sina. com"
Theinfov (0) = "http://mail.sina.com.cn/cgi-bin/login.cgi";; ' > Sina @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" ' > Billion Tang @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";; ' > Hundreds of mailboxes @email.com.cn
Theinfon (1) = "LoginName"
Theinfon (2) = "passwd"
Theinfon (3) = "DomainName"
Theinfov (3) = "email.com.cn"
Theinfol=3
Case "@elong. com" Theinfov (0) = "" ' > Billion Dragon @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