 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%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 %> 返回类别: 教程 上一教程: BASE64编码、解码函数 下一教程: 存储过程对页面访问速度的影响 您可以阅读与"用ASP实现邮箱登陆的代码"相关的教程: · 用ASP实现的代码批量修改程序 · ASP + SERV-U 实现FTP的代码 · 用ASP实现的代码批量修改程序，FSO相关 · 用ASP实现登陆页面控制的源代码 · 如何利用ASP实现邮箱访问 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
