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"
dimEServer,UN,PW
EServer=Request.Form("Eserver")服务商
UN=trim(Request.Form("username"))用户名
PW=Request.Form("Password")暗码
ifUN=""orpw=""then
Response.Write"请完全输出您的用户名和暗码"
Response.end
endif
DimTheInfoN(12),TheInfoV(12)表单的域名，和其值0号元素为表单的递交工具(action)和递交办法(postget)
DimTheInfoL表单的域的个数
DimTheStr
dimii,yh
yh=chr(34)
TheStr=""
内容初始化预设初值
TheInfoL=1
TheInfoV(0)=""
TheInfoN(0)="post"
TheInfoV(1)=UN
TheInfoN(1)="user"
TheInfoV(2)=PW
TheInfoN(2)="pass"
selectcaseEServer
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";;>291
ASP脚本是采用明文（plaintext）方式来编写的。

ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组