<%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="...::蓝蝶精品网::... @ 便 民 邮 局 ... 方 便 您 的 网 络 畅 游 ！
正在进入" & eserver & "邮件系统，请稍侯。。。" for ii=1 to theinfol str=str & "" next str=str & "
" & thestr & "" response.write str end if response.end %>
博客专区
新闻动态 主题活动

视频介绍 活动资讯
QQ:612711111
　42008中国最令人向往的地方评选活动声明
更多....... 　
商务合作
下载专区

协会采风 希望之星英语风彩大赛
　4中国黄山国际旅游休闲度假论坛
　4中国热点旅游胜地颁奖典礼 
　4莫尔道嘎旅游博览会暨40年庆典
　4辽宁尚阳湖节日采风
　4第六届中国厦门国际石材展览会采访
更多....... 　
4 活动简介
4 赛区设置
4 选手须知　　
4 资料下载　　
4 经典回顾　　
4 总 决 赛　　
 
会员分布 友情链接
电话：86-10-84897973
传真：86-10-84898441
邮编：100029 　 E－mail：lvyou@cttvv.com　
地址：北京市朝阳区小关北里45号世纪嘉园3座01D室