📄 install.asp
字号:
End If%></td>
</tr>
<tr>
<td width="203"><font color="#336699">AspEmail (ASPEMAIL)</font></td>
<td width="190">
<%If Not IsObjInstalled("Persits.MailSEnder") Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver("Persits.MailSEnder")
End If%></td>
</tr>
<tr>
<td width="203"><font color="#336699">CDONTS (WIN虚拟发信)</font></td>
<td width="190">
<%If Not IsObjInstalled("CDONTS.NewMail") Then
Response.Write " <font color=red><b>×</b></font>"
ElseIf IsObjInstalled("easymail.MailSEnd") Then
Response.Write " <font color=red>无效,与easywebmail冲突</font>"
Else
Response.Write " <font color=green><b>√</b></font>" & getver("CDONTS.NewMail")
End If%></td>
</tr>
<tr>
<td width="203"><font color="#336699">Aspmail (ASPMAIL)</font></td>
<td width="190">
<%If Not IsObjInstalled("SMTPsvg.Mailer") Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver("SMTPsvg.Mailer")
End If%></td>
</tr>
<tr>
<td width="203"><font color="#336699">easywebmail (国产电子邮局)</font></td>
<td width="190">
<%If Not IsObjInstalled("easymail.MailSEnd") Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver("easymail.MailSEnd")
End If%></td>
</tr>
<tr>
<td width="203"><font color="#336699">CMail (国产电子邮局)</font></td>
<td width="190">
<%If Not IsObjInstalled("CMailCOM.SMTP.1") Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver("CMailCOM.SMTP.1")
End If%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="24" width="126"> 上传附件的目录</td>
<td width="482" height="24"><input type="text" name="FilePath" size="32" class="bk" style="ime-mode:disabled"
<%If IsObjInstalled("Scripting.FileSystemObject") Then
Response.Write " value=""upfile"""
Else
Response.Write " value=""你的主机没有FSO读写权限，无法上传附件"" disabled"
End If
%>> <font color="#FF0000">*</font><font color="#7C96B8">附件将上传到此目录下，需要管理员手工创建目录</font>
</td>
</tr>
<tr>
<td height="37" width="126"> </td>
<td width="482" height="37">
<table border="1" width="303" bordercolor="#7C96B8" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#C0C0C0">
<tr>
<td width="393" colspan="2"><font color="#FF0000">自动组件检测</font></td>
</tr>
<tr>
<td width="187">邮件组件名称</td>
<td width="206"> 支持情况/版本</td>
</tr>
<tr>
<td width="187">
FSO (文件读写)</td>
<td width="206">
<%If Not IsObjInstalled("Scripting.FileSystemObject") Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver("Scripting.FileSystemObject")
End If%></td>
</tr>
<tr>
<td width="187">ACCESS 数据库</td>
<td width="206">
<%If Not IsObjInstalled("adodb.connection") Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver("adodb.connection")
End If%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="1" width="126"> 随机密码位数</td>
<td width="482" height="1">
<select name="CodeBit" class="bk" size="1">
<option value="10"> 1 0 </option>
<option value="20" selected > 2 0 </option>
<option value="30"> 3 0 </option>
<option value="40"> 4 0 </option>
<option value="50"> 5 0 </option>
</select>
<font color="#FF0000">*</font><font color="#7C96B8">用于产生确认信中的随机密码</font>
</td>
</tr>
<tr>
<td height="1" width="126"> 确认信有效时间</td>
<td width="482" height="1">
<select name="DYDay" class="bk" size="1">
<option value="1"> 1 </option>
<option value="2"> 2 </option>
<option value="3" selected > 3 </option>
<option value="4"> 4 </option>
<option value="5"> 5 </option>
<option value="6"> 6 </option>
<option value="7"> 7 </option>
<option value="8"> 8 </option>
<option value="9"> 9 </option>
<option value="10"> 10 </option>
</select>
天 <font color="#FF0000">*</font><font color="#7C96B8">用于确认信息的有效时间，超时的信息在管理员登陆系统时自动删除</font>
</td>
</tr>
<tr>
<td height="1" width="126"> 群发进程数量</td>
<td width="387" height="1"> <select name="SetLine" class="bk" size="1">
<option value="1"> 1 </option>
<option value="2"> 2 </option>
<option value="3" selected > 3 </option>
<option value="4"> 4 </option>
<option value="5"> 5 </option>
<option value="6"> 6 </option>
<option value="7"> 7 </option>
<option value="8"> 8 </option>
<option value="9"> 9 </option>
<option value="10"> 10 </option>
<option value="11"> 11 </option>
<option value="12"> 12 </option>
<option value="13"> 13 </option>
<option value="14"> 14 </option>
<option value="15"> 15 </option>
</select>
<font color="#FF0000">*</font><font color="#7C96B8">用于大量邮件群发时，可显著提高发送速度. 相当于打开N/10左右的新IE窗口和N个在线人数。不要设置太大。</font></td>
</tr>
<tr>
<td height="1" width="126"> 群发分组发送</td>
<td width="387" height="1"><input type="text" name="SetGroup" size="12" maxlength="5" class="bk" style="ime-mode:disabled" value="200">
<font color="#FF0000">*</font><font color="#7C96B8">用于大量邮件群发时，可防止超时现象的产生</font></td>
</tr>
<tr>
<td height="1" width="126"> 开启变量替换</td>
<td width="482" height="1">
<select name="ReplaceBody" class="bk" size="1">
<option value="TRUE" selected > 开启 </option>
<option value="Flase"> 关闭 </option>
</select>
<font color="#FF0000">*</font><font color="#7C96B8">开启后可以自动替换邮件内容中的
“//当前日期//” 等变量</font>
</td>
</tr>
<tr>
<td width="721" colspan="2" height="21">
<p align="center">
<input type="Submit" value="下一步" name="install_b" class="Tips_bo">
</td>
</tr>
</table>
</Form>
<p>
</p>
<%End Sub%>
<%Sub step_c()%>
<Form method="POST" action="?step=d">
<table border="0" width="652" cellspacing="1" height="1">
<tr>
<td width="739" colspan="2" height="17">
<p align="center"><b>第二步 发送邮件基本信息设置(2)</b>
</td>
</tr>
<tr>
<td height="1" width="733" colspan="2"><font color="#FF0000">以下信息非常重要，根据前两个版本反馈的问题，多数由于这里设置错误而导致发信失败，请一定认真配置</font>
<p> </p>
</td>
</tr>
<%If Request.Form("Setmailzj")="aspemail" or Request.Form("Setmailzj")="aspmail" Then%>
<tr>
<td height="1" width="733" colspan="2"><font color="#FF0000">您选择了<% = Request.Form("Setmailzj")%>邮件组件，您需要配置一下信息，<br>如果您填写的邮件发送服务器需要认证（即ESMTP）还需要填写下面的登陆名称和密码）</font>
</td>
</tr>
<tr>
<td height="1" width="226">邮件服务器地址 (SMTP)</td>
<td height="1" width="507"><input type="text" name="SMTPHost" size="32" maxlength="20" class="bk" style="ime-mode:disabled">
</td>
</tr>
<%If Request.Form("Setmailzj")="aspemail"Then%>
<tr>
<td height="1" width="226">邮件服务器登陆名称 (ESMTP)</td>
<td height="1" width="507"><input name="SMTPUser" type="text" id="smtpuser" class="bk" size="32" style="ime-mode:disabled"><font color="#7C96B8"><%=Language_Management(35)%></font></td>
</tr>
<tr>
<td height="1" width="226">邮件服务器登陆密码 (ESMTP)</td>
<td height="1" width="507"><input name="SMTPPass" type="password" id="smtppass" class="bk" size="32" maxlength="20"><font color="#7C96B8"><%=Language_Management(35)%></font></td>
</tr>
<%Else%>
<tr>
<td height="1" width="733" colspan="2"><font color="#FF0000">您选择了ASPMAIL邮件组件，该邮件组件目前不支持需要认证的ESMTP服务器</font>
</td>
</tr>
<%End If%>
<%ElseIf Request.Form("Setmailzj")="jmail"Then %>
<tr>
<td height="1" width="733" colspan="2"><font color="#808080">您选择的JMAIL邮件组件可以不必填写邮件服务器(SMTP)地址，请直接进入下一步。如果您需要填写请在安装完毕后进入系统设置。</font>
</td>
</tr>
<%Else%>
<tr>
<td height="1" width="733" colspan="2"><font color="#808080">您选择的<% = Request.Form("Setmailzj")%>邮件组件，不需要填写邮件服务器地址(SMTP)，请直接进入下一步。</font>
</td>
</tr>
<%End If%>
<tr>
<td width="739" colspan="2" height="21">
<p align="center">
<input type="Submit" value="下一步" name="install_c" class="Tips_bo">
</td>
</tr>
</table>
</Form>
<p>
</p>
<%End Sub%>
<%Sub step_d()%>
<table border="0" width="71%" cellspacing="1">
<tr>
<td width="100%">
<p align="center"><b>第三步 </b>
<b>注册及删除安装向导</b>
</td>
</tr>
<tr>
<td width="100%">
<ul>
<li><b>为了防止他人误用，本安装向导install.asp,将<font color="#FF0000">自我删除</font>。</b></li>
<li><b>使用自动注册可以方便获得新版本的邮件系统，我们保证不会泄漏您的信息。</b></li>
<li><b>使用自动注册可以统计各种网络组件的使用比,方便下一版本的开发。</b></li>
</ul>
</td>
</tr>
<tr>
<td width="100%">
<Form method="POST" action="?step=e">
<p align="center">
<input type="checkbox" name="C1" value="ON" checked>是否进行<font color="#FF0000">自动注册</font>这样有新的版本时，将会即时的通知您（我们承诺不会泄露您的任何信息）<br>
<input type="Submit" value="下一步" name="reguse" class="Tips_bo" style="width: 56; height: 19">
</Form>
</td>
</tr>
</table>
<%End Sub%>
<%Sub step_e()%>
<table border="0" width="71%" cellspacing="1" height="47">
<tr>
<td width="100%" height="21">
<p align="center"><font color="#FF0000"><b>安装向导完成</b></font>
</td>
</tr>
<tr>
<td width="100%" height="18">
<ul>
<li><font color="#FF0000">如果您拥有FSO删除权限，自我删除操作已经完成。如果失败请手工删除install.asp。</font></li>
<li>感谢您的注册，《动感在线邮件系统》发布新版本时将通过通知您.</li>
<li>您现在可以使用您设置密码登陆系统了地址为index.asp</li>
<li>获得最近版本的系统请访问 <a href="http://www.Donggan.net">http://Donggan.net</a></li>
<li>最后感谢您选用《动感在线邮件系统》.</li>
</ul>
<p align="center">[ <a href="index.asp"><b>登陆系统</b></a> ]
</td>
</tr>
</table>
<%End Sub%>
<blockquote>
<blockquote>
<p> 获得最新版本请访问：<a href="http://Donggan.net/"><font color="#336699">『动感在线』http://Donggan.net</font></a><br>
<br>
</p>
</blockquote>
</blockquote>
</body>
</html>
<%
'关闭销毁对象
Set rs=nothing
conn.close
Set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -