IDC资讯中心
是我的站点现在用的.亲自实验过,大都好用.
这个就是处理登陆信息的页面
递交的表单可以在我的站点的首页找到.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
%>
