用ASP實現郵箱登陸的代碼.原始碼放送.請加到精華裡備查吧.

是我的網站現在用的.親自實驗過,大都好用.
這個就是處理登陸資訊的頁面
遞交的表單可以在我的網站的首頁找到.http://www.chinaok.net
<%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