ailSite' value='web.163.net/cgi/login?;user;pass;'＞163＜/option＞
＜option name='MailSite' value='freemail.263.net/cgi/login?;user;pass;'＞263＜/option＞
＜option name='MailSite' value='mail.777.net.cn/v2.0/html/mailbox.php3?;user;pass;'＞777＜/option＞
＜option name='MailSite' value='www.126.com/cgi/login?;email;password;'＞126＜/option＞
＜option name='MailSite' value='www.2911.net/cgi-bin/login?;username;password;'＞2911＜/option＞
＜option name='MailSite' value='hotmail.yn.cninfo.net/prog/login?;user;pass;'＞云南169＜/option＞
＜option name='MailSite' value='freemail.china.com/prog/login?;user;pass;'＞china＜/option＞
＜option name='MailSite' value='freemail.hongkong.com/prog/login?;user;pass;'＞香港免费电邮＜/option＞
＜option name='MailSite' value='freemail.netease.com/prog/login?;user;pass;'＞Netease＜/option＞
＜option name='MailSite' value='lc3.law5.hotmail.com/cgi-bin/dologin?;login;passwd;'＞hotmail＜/option＞
＜option name='MailSite' value='www.netaddress.com/tpl/Door/login?;UserID;passwd;'＞use.net＜/option＞
＜option name='MailSite' value='www.88998.com/cgi-win/login?;username;password;'＞88998.com＜/option＞
＜option name='MailSite' value='www.mail.com/mailcom/login.jhtml?;mn;pw;'＞@mail.com＜/option＞
＜/select＞＜br＞
帐号:＜input type=text name=account size=12 style="font-size:9pt"＞＜br＞
密码:＜input type=password name=password size=12 style="font-size:9pt"＞＜br＞
＜/td＞＜tr＞＜td align=center＞＜input type=submit value="收信" style="font-size:9pt"＞
＜input type=reset value="重填" style="font-size:9pt"＞
＜/td＞
＜/form＞
＜/td＞
＜/table＞
＜/BODY＞
＜/HTML＞
'/*Html源文件内容结束*/


'/*PostOffice.asp源文件内容如下：*/
＜％@ Language=VBScript ％＞
＜％
Response.Buffer = true
'----------------------------------------------------
'Author : Peter.yu
'Created Date : 2000/3/13
'File Name : PostOffice.asp
'All Rights Reserved.所有权归City Club
'----------------------------------------------------
％＞
＜HTML＞
＜HEAD＞
＜META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"＞
＜/HEAD＞
＜title＞City Club 便民邮局 （All Rights Reserved所有权归City Club）＜/title＞
＜BODY＞
＜％
dim str(3)
str1 =trim(Request.Form("selectmail")) '/*获取的邮件服务器及用户账号和密码信息*/
for i = 1 to 3 '/*将以上获取的信息进行分割，并赋予给数组变量*/
p = instr(1,str1,";")
str(i-1) = mid(str1,1,p-1)
str1 = mid(str1,p+1)
next
if instr(1,str(0),"http://")=0 then
webSiteUrl = "http://" & str(0)
else
webSiteURL = str(0) '/*邮件服务器地址及指定处理的文件名*/
end if
usernam = str(1) '/*账号变量名*/
password = str(2) '/*密码变更名*/
'/*合并字符，得到诸如"http://www.371.net/prog/login?user=fighter&pass=mypassword的字符"*/
mailUrl = webSiteUrl & usernam & "=" & trim(Request.Form("account"))
mailUrl = mailUrl & chr(38) & password & "=" & trim(Request.Form("password"))
Response.Redirect mailUrl '/*打开邮箱*/
％＞
＜/BODY＞
＜/H

上一页  [1] [2] [3] [4] 下一页

在google里搜索更多ASP精华文摘－001(转)

	Web www.51ec.org

上一篇信息学院： ASP中处理#include (我不知道有没有人贴过,如果有的话,不要骂我)我也没有仔细看…

下一篇信息学院： ASP中巧用Response属性(转)