|
是我的站點現在用的.親自實驗過,大都好用.
這個就是處理登陸信息的頁面
遞交的表單可以在我的站點的首頁找到.http://www.chinaok.net
<%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"'>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
%>
|
