用ASP实现邮箱登陆的代码.源代码放送.请加到精华里备查吧.

是我的站点现在用的.亲自实验过,大都好用.
这个就是处理登陆信息的页面
递交的表单可以在我的站点的首页找到.http://www.chin***aok.net
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.*ye**ah.net/cgi/login" '>网易@yeah.net
TheInfoL=2
case "@163.com"
TheInfoV(0)="http://reg4.*1*6*3.com/in.jsp?url=http://reg4.1***63.com/EnterEmail.jsp?username=window.document.login.username.value" '>网易@163.com
TheInfoN(1)="username"
TheInfoN(2)="password"
TheInfoL=2