艺术迷（fansart.com） 首页 收藏本站 RSS频道
艺术迷首页 -> 网页设计 -> 用ASP实现邮箱登陆的代码.源代码公开--asp 编程技术

用ASP实现邮箱登陆的代码.源代码公开--asp 编程技术

2006-4-4　　　作者：　　　来源：互联网
页面功能： 【评论】 【有错就点】 【字体：大 中 小】 【打印】 【关闭】 【收藏本页】
asp 编程技术,用ASP实现邮箱登陆的代码.源代码公开
用ASP实现邮箱登陆的代码.源代码公开

<%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.&#118alue" '>网易@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
%>

页面功能： 【评论】 【有错就点】 【字体：大 中 小】 【打印】 【关闭】 【收藏本页】
在百度中搜索更多相关主题
多域名同一空间转向不同目录2006-4-4
多域名同一空间转向不同目录2006-4-4
上传前在本地判断文件大小 2006-4-4
ASP常用函数收集2006-4-4
使用NextRecordset通过一个Connection输出多个select查询2006-4-4
用ASP实现邮箱登陆的代码.源代码公开2006-4-4
asp教你做小偷程序 容易学 2006-4-4
用javascript连接access数据库2006-4-4
asp统计图片的点击率2006-4-4
asp数组使用2006-4-4
网友评论
发表评论
您的姓名： 匿名发送
电子邮件：
评论内容：
不能超过100个字符

所有留言只代表网友个人观点，不代表本站观点。
请各位遵纪守法并注意语言文明。
新闻搜索
关 键 词：
搜索范围：
全站精华
图文精彩
清风楼书（一）[图]--平面广告
【2006-3-29 10:52:08】
清风楼书（一）
painter超级可爱的上色过程（韩国）[图]--CG插画
【2006-4-5 8:52:28】
painter超级可爱的上色过程（韩国）
古典楼书(精品欣赏)（1）[图]--平面广告
【2006-4-5 15:03:08】
古典楼书(精品欣赏)（1）
美国插画师kevindart作品(1)[图]--CG插画
【2006-4-11 15:34:43】
美国插画师kevindart作品(1)
美国插画师kevindart作品[图]--CG插画
【2006-4-11 15:37:32】
美国插画师kevindart作品
荷兰著名画家Anton
【2006-4-11 15:49:41】
荷兰著名画家Anton Pieck插画
非常可爱的儿童插画（1）[图]--CG插画
【2006-4-11 15:59:16】
非常可爱的儿童插画（1）
回忆紫禁城里那些逝去的[图]--中国艺术
【2006-4-11 16:34:31】
回忆紫禁城里那些逝去的
国粹京剧脸谱表情[图]--界面设计
【2006-4-11 17:51:33】
国粹京剧脸谱表情
高傲的玫瑰-温碧霞[图]--摄影艺术
【2006-4-12 8:58:34】
高傲的玫瑰-温碧霞
北邦插画欣赏（1）[图]--CG插画
【2006-4-13 9:49:02】
北邦插画欣赏（1）
yashasi插画作品欣赏[图]--CG插画
【2006-4-13 18:32:29】
yashasi插画作品欣赏
cg插画欣赏[图]--CG插画
【2006-4-14 9:21:18】
cg插画欣赏
溯源居广告欣赏--小红人[图]--平面广告
【2006-4-14 14:45:57】
溯源居广告欣赏--小红人
房地产广告设计-之水墨风格1[图]--平面广告
【2006-4-14 15:56:06】
房地产广告设计-之水墨风格1
泊林花园推广故事绘本（1）[图]--CG插画
【2006-4-20 11:34:33】
泊林花园推广故事绘本（1）
泊林花园推广故事绘本（2）[图]--CG插画
【2006-4-20 11:43:23】
泊林花园推广故事绘本（2）
万科西山庭院.格.沉.尊[图]--平面广告
【2006-4-21 9:08:35】
万科西山庭院.格.沉.尊
2006夏日流行时尚，创意无限街头华丽[图]--时装魅影
【2006-4-22 16:46:51】
2006夏日流行时尚，创意无限街头华丽
水木清华地产广告欣赏[图]--平面广告
【2006-4-26 9:31:54】
水木清华地产广告欣赏