himail商城源码的简单介绍

本文目录一览：

• 1、请问这个软件利用的原理是什么（有源码的话，能不能给我一份）
• 2、求，茶叶网站源码带商城
• 3、求http://hi.baidu.com/veenns 的CSS源代码
• 4、请问谁有发送邮件的那个网页 HTML 源代码
• 5、Jmail群发邮件的源码

请问这个软件利用的原理是什么（有源码的话，能不能给我一份）

原理其实挺简单的 就是Base64 。 对于迅雷专用链接不用我去解释相信大家都明白，现在就链接的编码原理及转换详细说明一下，明白以后就可以用迅雷下载快车、旋风专用地址的软件啦。 首先要明白Base64编码是怎么一回事，大家可以参考如鹏中关于base64的文章，站内搜索“base64”： Base64编码是一种加密算法，Email的原始信息就是由Base64编码构成的。 而这些专用链接都是通过Base64编码加工转换而成的。 迅雷专用地址例子：thunder://QUFodHRwOi8vZG93bi5pcHZ2LmNuL3diLmV4ZVpa 真实文件下载链接： 附转换工具下载： 搞懂了Base64编码之后，一切都变的得心应手了： 实例原始地址： 1、迅雷专用链接编码 在原地址前面加”AA”，后面加”ZZ”(不包括引号)，地址变为 AA 此地址base64编码为 QUFodHRwOi8vaW0uYmFpZHUuY29tL2luc3RhbGwvQmFpZHVIaS5leGVaWg== 迅雷专链即在上地址前加thunder://，即 Thunder://QUFodHRwOi8vaW0uYmFpZHUuY29tL2luc3RhbGwvQmFpZHVIaS5leGVaWg== 2、快车专用链接编码 在原地址前后都加上”[FLASHGET]“(不包括引号)，地址变为 [FLASHGET] [FLASHGET] 此地址base64编码为 W0ZMQVNIR0VUXWh0dHA6Ly9pbS5iYWlkdS5jb20vaW5zdGFsbC9CYWlkdUhpLmV4ZVtGTEFTSEdFVF0=yinbing1986 快车专链即在上地址前加flashget://，注意后面还要加上”符号”，符号怎么得出不清楚，在最后后面加的是好好爱的个人信息，至今未有人报告转换错误，即 Flashget://W0ZMQVNIR0VUXWh0dHA6Ly9pbS5iYWlkdS5jb20vaW5zdGFsbC9CYWlkdUhpLmV4ZVtGTEFTSEdFVF0=yinbing1986 3、旋风专用链接编码 旋风相对就简单多了，将原地址直接base64编码为 aHR0cDovL2ltLmJhaWR1LmNvbS9pbnN0YWxsL0JhaWR1SGkuZXhl 旋风专链即在上地址前加qqdl://，即 qqdl://aHR0cDovL2ltLmJhaWR1LmNvbS9pbnN0YWxsL0JhaWR1SGkuZXhl 转自

求，茶叶网站源码带商城

安溪茶叶网: 你看下这个网站符合你要求不?可以的话可以在联系我.

求http://hi.baidu.com/veenns 的CSS源代码

代码文件已发，请自行查收。

邮件名为：[百度知道]veenns CSS 源码

话说，那个不就是百度默认的模板麽？

请问谁有发送邮件的那个网页 HTML 源代码

163的很容易保存：点写信以后，在写信的标题附近空白处点鼠标右键，选择查看源文件，就会打开一个记事本，里面就是网页代码，从文件内容可以看见CSS代码文件是link href="" rel="stylesheet" type="text/css" id="cssGlobe"，JS代码很多，163的代码的前面部分如下：

html xmlns=""

head

title网易电子邮箱/title

script language="javascript" src=""/script

script language="javascript" src=""/script

script language="javascript"var style= '21';var uid = '134931@163.com';var sid = 'ZCNYFPVKCrOsHwiKRWKKoVxaZzKKPxua';var contentURL = "readhtml.jsp?ssid=L%2ffJIM1fCEcjz7AdjHYrPVsp5POa3TQPSlvidcrLLkY%3d";var host = location.hostname;var searchid = "false";var domain = "163.com";var limitMessageCount = "999999999";var attrs = { common:{ sid : sid, uid : uid, cosid : "96", now : 1238213857743, style : style }, user:{'refuselist':'','safelist':'','addo':0,'afterdel':1,'aftersend_saveaddr':0,'app_city':null,'autosavedraft':1,'birthday':null,'city':'','clearinterval':0,'displaysender':0,'gender':'0','helptips':'00000101','huodong_option':'00000110','junkfilter':null,'junkfriend':1,'junkpic':0,'junkrefuse':1,'keepspamdays':-1,'maxlist':100,'mms_enabled':0,'nick_name':'','ntes_defaultsender':null,'op_readreceipt':0,'replyf':0,'save_sent':1,'showmusicbar':0,'style':21,'true_name':'阳光'}, cos:{'pref_quota':999999999,'perm_func_netfolder':false,'perm_func_address_book':true,'perm_func_schedule_send':true,'perm_func_antivirus':true,'perm_mail_webmail':true,'perm_mail_pop':true,'perm_mail_smtp':true,'perm_mail_imap':false,'perm_mail_filter':true,'perm_webmail_sendmail':true,'perm_webmail_html_editor':true,'perm_webmail_signature':true,'pref_webmail_max_signatures':10,'perm_webmail_pop_agent':true,'perm_webmail_mail_sorting':true,'perm_webmail_mail_get_rfc':true,'perm_webmail_disp_pref':true,'perm_webmail_mail_search':true,'pref_smtp_max_num_rcpts':20,'pref_smtp_max_send_mail_size':28672,'pref_alias_num':3,'perm_mail_sms_notify':true,'perm_smtp_auth_disabled':false,'perm_mail_autoreply':true,'perm_mail_autoforward':true,'perm_ssl_pop':false,'perm_ssl_smtp':false,'perm_ssl_imap':false,'perm_ssl_http':false,'perm_filter_anti_spam':true,'pref_antivirus_engine':'','pref_smtp_max_recv_mail_size':28672,'pref_smtp_max_mail_count':999999999,'pref_webmail_style':'0=10=20=30=40=50=60=70=80=90=100=110=120=130=140=150=160=170=180=190=200=210=220=230=240=250=260=270=280=290=300=310=320=330=340=350=0','perm_webmail_voicemail':false,'perm_webmail_videomail':false,'pref_netfolder_quota':10,'pref_netfolder_max_file_size':10240,'pref_netfolder_max_file_count':10000,'pref_flow_limit':'nf:560,nfrcv:476,nfsnd:364,smtp:400,web:500,webrcv:400,websnd:300,pop:250,c_pop:350','perm_share':false,'perm_advanced_imaging':true,'pref_package_download':1,'pref_webmail_faces':'@all','perm_mail_fulltext_search':true,'perm_ssl':true,'perm_webmail_mmmail':true,'pref_mail_archive_save_days':0,'pref_max_folder_nest_level':5,'pref_mail_folders':100,'pref_mail_rules':100,'pref_pab_contacts':2000,'pref_pop_agent_accounts':8,'pref_upload_size':-1,'pref_webmail_risky_suffix':''}};var fixAttrs = {afterdel:1,replyf:0,addo:0,displaysender:0,maxlist:20};for(var a in fixAttrs){ if(isNaN(attrs.user[a])){ attrs.user[a] = fixAttrs[a]; }}if(!attrs.user.ntes_defaultsender){ attrs.user.ntes_defaultsender = uid;}/scriptscript language="javascript" var gSenders = {'audited':[],'unaudited':[]}; var gPopAccounts = []; var gAlias = []; var gFolders = [{'id':1,'name':'收件箱','flags':{'system':true},'stats':{'messageCount':1749,'messageSize':1050661745,'unreadMessageCount':1481,'unreadMessageSize':905264326,'threadCount':0,'unreadThreadCount':0}},{'id':2,'name':'草稿箱','flags':{'system':true},'stats':{'messageCount':0,'messageSize':0,'unreadMessageCount':0,'unreadMessageSize':0,'threadCount':0,'unreadThreadCount':0}},{'id':3,'name':'已发送','flags':{'system':true},'stats':{'messageCount':44,'messageSize':40795286,'unreadMessageCount':0,'unreadMessageSize':0,'threadCount':0,'unreadThreadCount':0}},{'id':4,'name':'已删除','flags':{'system':true},'stats':{'messageCount':0,'messageSize':0,'unreadMessageCount':0,'unreadMessageSize':0,'threadCount':0,'unreadThreadCount':0}},{'id':5,'name':'垃圾邮件','flags':{'system':true},'stats':{'messageCount':0,'messageSize':0,'unreadMessageCount':0,'unreadMessageSize':0,'threadCount':0,'unreadThreadCount':0}},{'id':6,'name':'病毒文件夹','flags':{'system':true},'stats':{'messageCount':0,'messageSize':0,'unreadMessageCount':0,'unreadMessageSize':0,'threadCount':0,'unreadThreadCount':0}},{'id':7,'name':'广告邮件','flags':{'system':true},'stats':{'messageCount':0,'messageSize':0,'unreadMessageCount':0,'unreadMessageSize':0,'threadCount':0,'unreadThreadCount':0}}];/scriptlink href="" rel="stylesheet" type="text/css" id="cssGlobe"script language="javascript" var gLoginTime = new Date(); var gCurrentCss = "", gCurrentPath = "", gCurrentStyle = null; var gIsDebug = false; var gConfigUrl = "urlconfig.xml"; var gCacheJsPath = ""; function fLoadStyle(){ var styles = ["", "/a/h/js3/"]; gCurrentPath = styles[1]; var cssFile = { "vip.163.com" : "163_purple_s.css", "163.com" : "163_blue_s.css", "126.com" : "126_green_s.css", "188.com" : "188_gold_s.css", "yeah.net" : "yeah_blue_s.css" }; for(c in cssFile){ if(new RegExp(c).test(location.href)){ styles[0] += cssFile[c]; break; } } gCurrentCss = styles[0]; gCurrentStyle = styles; top.gCurrentCss = gCurrentCss; top.gCurrentStyle = gCurrentStyle; var sCss = 'link href="'+ gCurrentCss +'" rel="stylesheet" type="text/css" id="cssStyle" /'; if(document.domain.indexOf("163.com")-1){ sCss += 'link href="" rel="stylesheet" type="text/css"link href="" rel="stylesheet" type="text/css"STYLE.gTopMus .usrMsg{top:10px}.gTopMus .tLink{top:10px}/STYLE'; } document.write(sCss); }; var sTopSearchid = searchid; var sTxtKeyValue = "搜索邮件"; if(sTopSearchid sTopSearchid=="true"){ sTxtKeyValue = "支持邮件全文搜索"; } fLoadStyle(); /scriptstyle@media all {IE\:CLIENTCAPS {behavior:url(#default#clientCaps)}}.userData{behavior:url(#default#userdata)}div.SD_tipsbg{background-image:url()}/style

/head

body class="2a36-0fa4-5710-61f6 gb" lang="zh" style="overflow-y:auto"

div class="0fa4-5710-61f6-9b70 gTop gTopMus" id="dvTop"a href="" target="_blank" id="lnkHome"img src="" alt="163邮箱" class="5710-61f6-9b70-626f gLogo" border="0" id="imgLogo" //adiv class="61f6-9b70-626f-aaf5 usrMsg"b id="bUid"134931@163.com/b [ a href="javascript:fGoto()" onclick="fGoto('MM.getModule(\'welcome\')')"邮箱首页/a，a href="javascript:fGoto()" onclick="fGoto('CC.goOutlink(\';url=\');')"密码保护/a，a href="javascript:fGoto()" id="lnkexit" onclick="fGoto('CC.logout()')"退出/a ]  span id="ad1"/spanspan/span/divdiv class="9b70-626f-aaf5-0fbe tLink"a href="javascript:fGoto()" onclick="fGoto('MM.getModule(\'option\');')" 设置/a | a href="javascript:fGoto()" id="lnkhelp" target="_blank"帮助/a | a href="/a/service/index.jsp?sid=ZCNYFPVKCrOsHwiKRWKKoVxaZzKKPxua" target="_blank"自助查询/a/div!--页面总导航栏--div class="626f-aaf5-0fbe-c53b gNav"ul id="ulTab"lia href="javascript:fGoto();" class="aaf5-0fbe-c53b-2187 on" href="javascript:fGoto()" onclick="fGoto('MM.getModule(\'welcome\')')"电子邮件/a/lilia href="javascript:fGoto()" onclick="fGoto('MM.getModule(\'address\');')"通讯录/a/lilia href="javascript:fGoto()" onclick="fGoto('CC.getServiceLink(\'assist\')')"百宝箱/a/lili id="liNetFolder"a href="javascript:fGoto()" onclick="fGoto('CC.goNetFolder();')"网易网盘/a/li/ul/divdiv class="0fbe-c53b-2187-ee77 gSrh" id="set_a_line_area2"input type="text" class="c53b-2187-ee77-143a gSipt fLe" id="txtKey" style="color:#aaaaaa" onfocus="this.className='gSipt fLe bgcolor13'" MAXLENGTH="100" onkeyup="if(event.keyCode==13){fGoto('CC.searchMailByTop();');this.blur()}" onblur="this.className='gSipt fLe';if(this.value=='')this.value=sTxtKeyValue;" onclick="if(this.value==sTxtKeyValue)this.value=''" /a href="javascript:fGoto()" class="2187-ee77-143a-282b srhBtn fLe" onclick="$('txtKey').onclick();fGoto('CC.searchMailByTop();');$('txtKey').onblur();" title="搜索"b搜索/b/aa href="javascript:fGoto();" class="ee77-143a-282b-8e14 AdsrhBtn fLe" onclick="fGoto('MM.getModule(\'searchmail\');')" title="进入高级搜索"b高级搜索/b/a/divspan id="spnTabSplit"b id="sl1" class="97af-182d-8742-0fd6 spl" style="display:none"/bb id="sl2" class="182d-8742-0fd6-2a36 spl"/bb id="sl3" class="8742-0fd6-2a36-0fa4 spl"/b/span/divdiv class="0fd6-2a36-0fa4-5710 gLoading" style="top:34px; right:10px; z-index:60; display:none;" id="tbMsg"img src="" align="absmiddle"/ span id="spnMsg"数据加载中，请稍候.../span/diviframe src="about:blank" id="ifrHtmlEditor" name="ifrHtmlEditor" style="display:none"/iframeIE:CLIENTCAPS ID="oClientCaps" /span id="oUserData" class="2a36-0fa4-5710-61f6 userData" style="display:none"/spantable class="0fa4-5710-61f6-9b70 gMain"tr class="5710-61f6-9b70-626f gMtr"td class="61f6-9b70-626f-aaf5 gLe"div class="9b70-626f-aaf5-0fbe gMbtn" id="set_a_line_area3"a href="javascript:fGoto();" class="626f-aaf5-0fbe-c53b gCmBtn" title="收信" onclick="fGoto('CC.goInbox();')"b class="aaf5-0fbe-c53b-2187 hide"收信/b/aa href="javascript:fGoto();" class="0fbe-c53b-2187-ee77 gWmBtn" title="写信" onclick="fGoto('CC.compose();')"b class="c53b-2187-ee77-143a hide"写信/b/a/divdiv class="2187-ee77-143a-282b gFd"h3 class="ee77-143a-282b-8e14 gfTit"a href="javascript:fGoto();" class="97af-182d-8742-0fd6 clsFd bgF1" title="折叠" id="lnkFolderToggle" onclick="fGoto('CC.toggleTree($(\'lnkFolderToggle\'), \'ulFolders\')')"/aa href="javascript:fGoto();" class="182d-8742-0fd6-2a36 gfName" onclick="fGoto('MM.getModule(\'folderMain\')')"文件夹/aa href="javascript:fGoto();" class="8742-0fd6-2a36-0fa4 addFd bgF1" title="添加文件夹" onclick="fGoto('MM.folderMain.add()')"/a/h3ul class="0fd6-2a36-0fa4-5710 gFdBdy" id="ulFolders" onmouseover="try{MM.folder.handleDrag();}catch(exp){}"/ul/divdiv class="2a36-0fa4-5710-61f6 gFd"h3 class="0fa4-5710-61f6-9b70 gfTit"a href="javascript:fGoto();" class="5710-61f6-9b70-626f clsFd bgF1" id="lnkServiceToggle" title="折叠" onclick="fGoto('CC.toggleTree($(\'lnkServiceToggle\'), \'ulService\')')"/aa href="javascript:fGoto();" class="61f6-9b70-626f-aaf5 gfName" onclick="fGoto('CC.goOutlink(\'/a/h/js3/\'+GE.dm+\'service.htm\')')"邮箱服务/a/h3ul class="9b70-626f-aaf5-0fbe gSevBdy" id="ulService"SCRIPT LANGUAGE="JavaScript"var gServiceUrl = ' sms163|?\nupgrade163|\nmyresume|;mailname=$user$sid=$sid$\n myblog163|;username=$user$email=$uid$host=$host$\nmybill|;uid=$uid$sid=$sid$\naddress|MM.getModule("address");\nxport|MM.address.gotoXport();\npop3|MM.getModule("pop3")\ncards|;useremail=$uid$username=$user$sid=$sid$host=$host$\nrss|;username=$uid$\nvip163|\nstamp|;sid=$sid$action=getAlbum\ninvite|;host=$host$\nassist|\necard|;useremail=$uid$username=$user$sid=$sid$host=$host$\nmail188|;domain=$dm$\nmyblog|;username=$uid$email=$uid$host=$host$\n';var gUrls = ' 6|\n11|\n12|\n20|\n21|\n22|;username=$user$\n23|\n28|;p=0l=50\n29|\n31|\n35|\n55|\n56|\n57|\n58|\n86|\n 33|;uid=$uid$url=;act=get\n40|;strCmjsLog=\n46|;sid=$sid$origin=$host$username=$user$\n51|\n53|;sid=$sid$host=$host$\n54|;sid=$sid$method=getStatus\n84|;host=$host$\n85|\n';function fTrim(s){ return s.replace(/(^\s*)|(\s*$)/g, "");}var aServiceUrl = gServiceUrl.split("\n");var aUrls = gUrls.split("\n");var gServiceUrlObj = {};var gUrlsObj = {};for(var i=0;iaServiceUrl.length;i++){ var v = aServiceUrl[i]; if(v != ""){ var a = fTrim(v).split("|"); if(a.length == 2){ gServiceUrlObj[a[0]] = a[1]; } }}for(var i=0;iaUrls.length;i++){ var v = aUrls[i]; if(v != ""){ var a = fTrim(v).split("|"); if(a.length == 2){ gUrlsObj[a[0]] = a[1]; } }}/SCRIPTLI id=myblog163A class=gfNm onfocus=this.blur(); onclick="fGoto('CC.getServiceLink(\'myblog163\');')" href="javascript:fGoto();"记事本/A/LILI id=stampA class=gfNm onfocus=this.blur(); onclick="fGoto('CC.getServiceLink(\'stamp\');')" href="javascript:fGoto();"集邮中心/A/LILI id=sms163A style="FONT-WEIGHT: bold" class=gfNm onfocus=this.blur(); onclick="fGoto('CC.getServiceLink(\'sms163\');')" href="javascript:fGoto();"随身邮/A/LILI id=upgrade163A class=gfNm onfocus=this.blur(); target=_blank href="#" onclick="this.href=gServiceUrlObj['upgrade163']"新邮箱伴侣/A/LI!--LI id=vip163A class=gfNm onfocus=this.blur(); target=_blank href="#" onclick="this.href=gServiceUrlObj['vip163']"升级到VIP/A/LI--/ul/div/tdtd class="626f-aaf5-0fbe-c53b gRi" id="divMain"div id="divwelcome"div class="aaf5-0fbe-c53b-2187 WelPages"div class="0fbe-c53b-2187-ee77 wel_Topbar" id="divWelcomeHead"div class="c53b-2187-ee77-143a wel_user"b class="2187-ee77-143a-282b wel_hi_user"span id="spnWelcomeGreet"中午好/span，杨光彬/bdiv class="ee77-143a-282b-8e14 w_jifen"div id="divWelcomeJiFen"  a href="javascript:fGoto()" onclick="fGoto('CC.getJifen()')" title="点击查看积分"点击查看积分/a/div/div/divdiv class="97af-182d-8742-0fd6 wel_inbox"b class="182d-8742-0fd6-2a36 icos iconinbox"/bdiv class="8742-0fd6-2a36-0fa4 fLe"您有 a style="text-decoration:none" href="javascript:fGoto()" onclick="fGoto('MM.folder.sortSearch(1,1)');return false"span id="spnWelcomeNew" class="0fd6-2a36-0fa4-5710 Notice_Nu"1481/span/a 封 a href="javascript:fGoto()" onclick="fGoto('MM.folder.sortSearch(1,1)');return false"未读邮件/a，a href="javascript:fGoto()" onclick=fGoto("MM.getModule('folderMain')")管理文件夹/a/diviframe src=";sid=ZCNYFPVKCrOsHwiKRWKKoVxaZzKKPxuaaction=new" frameborder="0" allowtransparency="true" scrolling="no" class="2a36-0fa4-5710-61f6 ifm_mailblog"/iframe/divdiv class="0fa4-5710-61f6-9b70 wel_Tr"div class="5710-61f6-9b70-626f wel_rl_nolim" title="无限容量空间：已用1.02G"/divdiv id="divWelTianQi"iframe class="61f6-9b70-626f-aaf5 wel_i_weather" frameborder="0" allowtransparency="true" scrolling="no" src=""/iframe/div/div/divdiv class="9b70-626f-aaf5-0fbe wel_Main_Main" id="divWelcomeBody"div class="626f-aaf5-0fbe-c53b wel_Main"div class="aaf5-0fbe-c53b-2187 wel_Mtab"div class="0fbe-c53b-2187-ee77 wel_Mtab_head" id="divWelcomeTab"scriptfAdPageWrite(fAdWelcomeTabsInfo)/script/divdiv class="c53b-2187-ee77-143a wel_i_bg" id="divWelcomeContent"spandiv class="2187-ee77-143a-282b weltab_main_f"div class="ee77-143a-282b-8e14 img1"scriptfAdPageWrite(fAdWelcomeRandom(fAdWelcomeServiceLogo))/script/divdiv class="97af-182d-8742-0fd6 txt1"scriptfAdPageWrite(fAdWelcomeRandom(fAdWelcomeServiceText))/script/div/divdiv class="182d-8742-0fd6-2a36 wel_if_mail" style="text-align:center"div class="8742-0fd6-2a36-0fa4 wel_tj"div class="0fd6-2a36-0fa4-5710 wel_tj_tit"scriptt=fAdWelcomeServiceLink();fAdPageWrite(t.title)/script/divul class="2a36-0fa4-5710-61f6 wel_tj_ul"liscriptfAdPageWrite(t.left1)/script/liliscriptfAdPageWrite(fAdWelcomeRandom(fAdWelcomeServiceLinkR1))/script/liliscriptfAdPageWrite(t.left2)/script/liliscriptfAdPageWrite(fAdWelcomeRandom(fAdWelcomeServiceLinkR2))/script/liliscriptfAdPageWrite(t.left3)/script/liliscriptfAdPageWrite(fAdWelcomeRandom(fAdWelcomeServiceLinkR3))/script/li/ul/div/divdiv class="0fa4-5710-61f6-9b70 clear" style="height:1px"/div/span/div/divdiv class="5710-61f6-9b70-626f wel_Ma300x260"scriptfAdPageWrite(fAdWelcomeRandom(fAdWelcome300x260))/script/divdiv class="61f6-9b70-626f-aaf5 wel_Ma460x110"div class="9b70-626f-aaf5-0fbe wel_Ma460x110M"div class="wel_gjcont

Jmail群发邮件的源码

试试以下代码：核心就是循环调用发邮件代码就可以了

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%

%

Server.ScriptTimeOut=9999999

Response.Buffer = True

dim FoundErr, ErrMsg, Action

dim MailServerUserName, MailServerPassWord, MailDomain, MailServer

dim MailtoAddress, MailtoName, Subject, MailBody, FromName, MailFrom, Priority

FoundErr = False

ErrMsg = ""

Action = Trim(Request("action"))

ComeUrl = ""

%

!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"

HTML

HEAD

TITLE群发邮件系统/TITLE

META http-equiv=Content-Type content="text/html; charset=gb2312"

META content="Microsoft FrontPage 4.0" Name=GENERATOR

STYLE type=text/css

a {text-decoration: none;} /* 链接无下划线,有为underline */

a:link {color: #000000;text-decoration: none;} /* 未访问的链接 */

a:visited {color: #000000;text-decoration: none;} /* 已访问的链接 */

a:hover {color: #ff6600;text-decoration: none;} /* 鼠标在链接上 */

a:active {color: #000000;text-decoration: none;} /* 点击激活链接 */

TD {

FONT-SIZE: 18px; COLOR: #000000; FONT-FAMILY: '宋体';LINE-HEIGHT: 150%;

}

BODY {

FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'

}

INPUT {

FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'

}

SELECT {

FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'

}

.title

{

background:#0DB432;

color: #ffffff;

font-weight: normal;

}

.border

{

border: 1px solid #0DB432;

}

.tdbg{

background:#f0f0f0;

line-height: 120%;

}

.tdbg1{

background:#A3E2B1;

line-height: 120%;

}

/STYLE

/HEAD

BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0

br

%

Select Case Action

Case "send"

Call sendMail()

Case Else

Call Main()

End Select

If FoundErr = True Then

Response.Write WriteErrMsg(ErrMsg, ComeUrl,"错误信息")

End If

Response.write"/BODY/HTML"

sub main()

If Not IsObjInstalled("JMail.Message") Then

FoundErr=True

ErrMsg = "服务器不支持JMail组件，请正确安装"

Exit Sub

End If

%

form action="wssf.asp?Action=send" method=post

table width="80%" class="626f-aaf5-0fbe-c53b border" border="0" cellspacing="1" cellpadding="4" align="center" height="589"

tr

td height="40" colspan="2" align="center" class="aaf5-0fbe-c53b-2187 title"

pb 群发邮件系统/b/p /td

/tr

tr

td width='30%' class='8742-0fd6-2a36-0fa4 tdbg1' height="25"strong邮件服务器地址：/strong /td

td class='0fd6-2a36-0fa4-5710 tdbg' height="25"

input name='MailServer' type='text' id='MailServer' value='smtp.163.com' size='40' FONT color=#ff0000*/FONT

/td

/tr

tr

td width='30%' class='2a36-0fa4-5710-61f6 tdbg1' height="25"strong登录用户名一：/strong

/td

td class='0fa4-5710-61f6-9b70 tdbg' height="25"

input name='MailServerUserName1' type='text' id='MailServerUserName1' value='XXX' size='40' FONT color=#ff0000*/FONT

/td

/tr

tr

td width='30%' class='5710-61f6-9b70-626f tdbg1' height="25"strong登录密码一：/strong

/td

td class='61f6-9b70-626f-aaf5 tdbg' height="25"

input name='MailServerPassWord1' type='password' id='MailServerPassWord1' value='***' size='40' FONT color=#ff0000*/FONT

/td

/tr

tr

td width="30%" class="0fbe-c53b-2187-ee77 tdbg1" height="25"您的姓名：/td

td class="c53b-2187-ee77-143a tdbg" height="25"input name="name" type=text id="name" size=30

FONT color=#ff0000*/FONT/td

/tr

tr

td width="30%" class="2187-ee77-143a-282b tdbg1" height="25"您的E-mail：/td

td class="ee77-143a-282b-8e14 tdbg" height="25"input name="email" type=text id="email" value="XXX@163.com" size=30

FONT color=#ff0000*/FONT/td

/tr

tr

td width="30%" class="97af-182d-8742-0fd6 tdbg1" height="25"收件人姓名：/td

td class="182d-8742-0fd6-2a36 tdbg" height="25"input name="toname" type=text id="toname" size=30

FONT color=#ff0000*/FONT/td

/tr

tr

td width="30%" class="8742-0fd6-2a36-0fa4 tdbg1" height="25"收件人Email:/td

td class="0fd6-2a36-0fa4-5710 tdbg" height="25"input name="toemail" type="text" id="toemail" size="30" maxlength="100"

FONT color=#ff0000*/FONT/td

/tr

tr

td width="30%" class="2a36-0fa4-5710-61f6 tdbg1" height="25"邮件标题：/td

td class="0fa4-5710-61f6-9b70 tdbg" height="25"input type=text name="topic" size=30

FONT color=#ff0000*/FONT/td

/tr

tr

td width="30%" class="5710-61f6-9b70-626f tdbg1" height="500"邮件内容：/td

td class="61f6-9b70-626f-aaf5 tdbg" height="500"textarea name="body" cols=74 rows=34 id="body"/textarea

FONT color=#ff0000*/FONT/td

/tr

tr

td width="30%" class="9b70-626f-aaf5-0fbe tdbg" height="27"/td

td height=27 class="626f-aaf5-0fbe-c53b tdbg"

input type="Submit" value="发送邮件" name="Submit"

input type="reset" name="Clear" value="重新填写"

/td

/tr

/table

/form

%

End Sub

Sub sendMail()

MailServer = trim(Request("MailServer")) 'SMTP服务器地址：smtp.163.com, 请修改

MailServerUserName = trim(Request("MailServerUserName")) 'SMTP登录用户名：XXX@163.com, 请修改

MailServerPassWord = trim(Request("MailServerPassWord")) 'SMTP登录密码：***, 请修改,注意大小写

MailDomain = trim(Request("MailDomain")) 'SMTP域名：163.com, 请修改

FromName = trim(Request("name")) '发件人名字

MailFrom = trim(Request("email")) '发件人邮箱

MailtoName = trim(Request("toname")) '发件人名字

MailtoAddress=trim(Request("toemail")) '收件人邮箱

Subject = trim(Request("topic"))

MailBody = trim(Request("body"))

Priority=3

If FromName="" or MailFrom="" or MailtoName="" or Subject="" or MailBody="" then

FoundErr = True

ErrMsg = "请填写完整每一项信息！"

Exit Sub

End If

ErrMsg = JSendMail()

If ErrMsg"" Then

FoundErr = True

Exit Sub

Else

Response.Write WriteErrMsg("", ComeUrl,"成功信息")

End If

End Sub

Function JSendMail()

On Error Resume Next

JSendMail = ""

Dim JMail,tempMessage

Set JMail = Server.CreateObject("JMail.Message")

JMail.silent=true

JMail.Logging = True

JMail.Charset = "gb2312" '邮件编码

JMail.silent = True

JMail.ContentType = "text/html" '邮件正文格式

JMail.ServerAddress=MailServer '用来发送邮件的SMTP服务器

'如果服务器需要SMTP身份验证则还需指定以下参数

JMail.MailServerUserName = MailServerUserName1 '登录用户名

JMail.MailServerPassWord = MailServerPassWord1 '登录密码

JMail.AddRecipient MailtoAddress, MailtoName '收信人

JMail.Subject = Subject '主题

JMail.HtmlBody = MailBody '邮件正文（HTML格式）

JMail.Body = MailBody '邮件正文（纯文本格式）

JMail.FromName = FromName '发信人姓名

JMail.From = MailFrom '发信人Email

JMail.Priority = Priority '邮件等级，1为加急，3为普通，5为低级

Dim emailArray

If MailtoAddress="" then

set fsObj = Server.CreateObject("Scripting.FileSystemObject")

FilePath = Server.MapPath("email.txt")

set txtsObj = fsObj.OpenTextFile(FilePath, 1, false)

i = 0

Do While Not txtsObj.atEndOfStream

emailArray(i)=txtsObj.ReadLine

JMail.AddRecipient Trim(emailArray(i)),MailtoName

i=i+1

loop

Else

JMail.AddRecipient MailtoAddress, MailtoName

End If

JMail.Send (MailServer)

tempMessage = JMail.ErrorMessage

JMail.Close

Set JMail = Nothing

If tempMessage"" then

FoundErr = True

JSendMail = tempMessage

end if

Set JMail = Nothing

End Function

Function IsObjInstalled(strClassString)

On Error Resume Next

IsObjInstalled = False

Err = 0

Dim xTestObj

Set xTestObj = CreateObject(strClassString)

If Err.Number = 0 Then IsObjInstalled = True

Set xTestObj = Nothing

Err = 0

End Function

Function WriteErrMsg(sMsg, sComeUrl,Massages)

Dim strMsg

strMsg = strMsg "htmlheadtitle"Massages"/titlemeta http-equiv='Content-Type' content='text/html; charset=gb2312'" vbCrLf

strMsg = strMsg "/headbodybrbr" vbCrLf

strMsg = strMsg "table cellpadding=2 cellspacing=1 border=0 width=400 class='9b70-626f-aaf5-0fbe border' align=center" vbCrLf

strMsg = strMsg " tr align='center' class='626f-aaf5-0fbe-c53b title'td height='22'strong"Massages"/strong/td/tr" vbCrLf

if FoundErr=True Then

strMsg = strMsg " tr class='aaf5-0fbe-c53b-2187 tdbg'td height='100' valign='top'b产生错误的可能原因：/b" sMsg "/td/tr" vbCrLf

Else

strMsg = strMsg " tr class='0fbe-c53b-2187-ee77 tdbg'td height='100' valign='top'brb恭喜，成功用JMail发送邮件！/b" sMsg "/td/tr" vbCrLf

End If

strMsg = strMsg " tr align='center' class='c53b-2187-ee77-143a tdbg'td"

If sComeUrl "" Then

strMsg = strMsg "a href='javascript:history.go(-1)' 返回上一页/a"

Else

strMsg = strMsg "a href='javascript:window.close();'【关闭】/a"

End If

strMsg = strMsg "/td/tr" vbCrLf

strMsg = strMsg "/table" vbCrLf

strMsg = strMsg "/body/html" vbCrLf

WriteErrMsg = strMsg

End Function

%