📄 install.asp
字号:
<%
'=========================================================
' 『动感在线』版权所有(C) Donggan.Net
' 您可以自由应用本程序于合法的个人或商业行为。
' 您必须保留版权信息。
'=========================================================
' Version:1.3
' Date: 2003-01-10
' Script Written by xubin
'=========================================================
' Copyright (C) 1999-2002 Donggan.Net. All rights reserved.
' Web: http://www.Donggan.net
' Email: webmaster@Donggan.net,webmaster@mail.Donggan.net
'=========================================================
%>
<!--#Include File="conn.asp" -->
<!--#Include File="procedure.asp" -->
<!--#Include File="Language.asp" -->
<!--#Include File="md5.asp" -->
<%
'Call loaderror()
Call showwebdata()
Call Language_var(Language,"")
'检测组件支持情况
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = FALSE
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = TRUE
Set xTestObj = Nothing
Err = 0
End Function
'检测组件版本
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtesTobj.version
Set xTestObj = Nothing
Err = 0
End Function
'保存信息
Sub savestep_a()
Dim AdminUser,AdminPassword,WebName,WebURL
AdminUser=TRIM(Request.Form("AdminUser"))
AdminPassword=TRIM(Request.Form("AdminPassword"))
WebName=TRIM(Request.Form("WebName"))
WebURL=TRIM(Request.Form("WebURL"))
If AdminUser="" or AdminPassword="" or WebName="" or WebURL="" Then
errortext="错误：您需要填写所有的信息。"
Call showerror1()
End If
Set rs=Server.Createobject("adodb.recordset")
sql="select UserName,UserPass,WebName,WebURL from Management"
rs.open sql,conn,3,2
rs("UserName")=AdminUser
rs("UserPass")=MD5(AdminPassword)
rs("WebName")=WebName
rs("WebURL")=WebURL
rs.update
rs.close
End Sub
Sub savestep_b()
Dim FromName,FromMail,MailSubject,SetMailzj,FilePath,CodeBit,DYDay,SetGroup,ReplaceBody
FromName=TRIM(Request.Form("FromName"))
FromMail=TRIM(Request.Form("FromMail"))
MailSubject=TRIM(Request.Form("MailSubject"))
SetMailzj=TRIM(Request.Form("SetMailzj"))
FilePath=TRIM(Request.Form("FilePath"))
CodeBit = Request.Form("CodeBit")
DYDay = Request.Form("DYDay")
SetGroup=TRIM(Request.Form("SetGroup"))
SetLine=TRIM(Request.Form("SetLine"))
ReplaceBody = Request.Form("ReplaceBody")
If Request.Form("ReplaceBody")<>"FALSE" Then
ReplaceBody=TRUE
Else
ReplaceBody=FALSE
End If
If SetGroup<1 Then SetGroup=1
If SetLine<1 Then SetLine=1
If FromName="" or FromMail="" or MailSubject="" or SetMailzj="" or SetGroup="" or SetLine="" Then
errortext="错误：您需要填写所有的信息。"
Call showerror1()
End If
If NOT IsValidEmail(FromMail) Then
errortext="错误：邮件地址格式错误将可能造成发信失败!"
Call showerror1()
End If
Set rs=Server.Createobject("adodb.recordset")
sql="select FromName,FromMail,MailSubject,SetMailzj,FilePath,CodeBit,DYDay,SetGroup,ReplaceBody from Management"
rs.open sql,conn,3,2
rs("FromName")=FromName
rs("FromMail")=FromMail
rs("MailSubject")=MailSubject
rs("SetMailzj")=SetMailzj
rs("FilePath")=FilePath
rs("CodeBit")=CodeBit
rs("DYDay")=DYDay
rs("SetGroup")=SetGroup
rs("ReplaceBody")=ReplaceBody
rs.update
rs.close
End Sub
Sub savestep_c()
Dim SMTPHost,SMTPUser,SMTPPass
SMTPHost=TRIM(Request.Form("SMTPHost"))
SMTPUser=TRIM(Request.Form("SMTPUser"))
SMTPPass=TRIM(Request.Form("SMTPPass"))
Set rs=Server.Createobject("adodb.recordset")
sql="select SMTPHost,SMTPUser,SMTPPass from Management"
rs.open sql,conn,3,2
rs("SMTPHost")=SMTPHost
rs("SMTPUser")=SMTPUser
rs("SMTPPass")=SMTPPass
rs.update
rs.close
End Sub
Sub savestep_d()
Dim WebName,WebURL,FromMail,SetMailzj
Set rs=Server.Createobject("adodb.recordset")
sql="select WebName,WebURL,FromMail,SetMailzj from Management"
rs.open sql,conn,1,1
WebName=rs("WebName")
WebURL=rs("WebURL")
FromMail=rs("FromMail")
SetMailzj=rs("SetMailzj")
rs.close
Response.Write "<script src='http://Donggan.net/xbsoft/usedata/reg.asp?WebIP="&Request.ServerVariables("LOCAL_ADDR")&":"&Request.ServerVariables("SERVER_PORT")&"&CodeURL=http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL")&"&webname="&WebName&"&WebURL="&WebUrl&"&SetMailZJ="&SetMailZJ&"&WebMail="&FromMail&"&SoftName=DGMail&SoftVer=1.3'></script>"
End Sub
Sub deltelowe()
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(Server.MapPath("install.asp"))
Set objFSo=nothing
End Sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charSet=gb2312">
<link rel="stylesheet" href="images/styles.css" type="text/css">
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<!--#Include File="head.asp" -->
<p align="center"><font color="#336699">动感在线邮件发送系统
V1.3 安装向导</font></p>
<center>
<%
'选择安装步骤
Select Case Request.QueryString("step")
Case "a"
Call step_a()
Case "b"
Call savestep_a()
Call step_b()
Case "c"
Call savestep_b()
Call step_c()
Case "d"
Call savestep_c()
Call step_d()
Case "e"
Call savestep_d()
Call step_e()
Call deltelowe()
Case Else
Call step_x()
End Select
%>
</center>
<%Sub step_x()%>
<table border="0" width="67%" cellspacing="1">
<tr>
<td width="100%">
<ul>
<li><b>感谢您选用《动感在线邮件系统》，本邮件系统是目前国内可以看到的最优秀的邮件群发网络软件。</b></li>
<li><b>您可以免费使用于合法的个人或商业行为中，但请保持代码的完整性。</b></li>
<li><b>版权所有
动感在线 红孩儿 。</b></li>
<li><b>按照惯例作为免费软件，对于由于使用它而造成的任何后果作者不承担任何责任。</b></li>
<li><b>本安装向导将知道您一步一步的配置系统。</b></li>
<li> 版本检查：<font color="#336699"><script src='http://Donggan.net/xbsoft/usedata/ver.asp?SoftID=DGMail&SoftVer=1.3&skins=1'></script></font></li>
</ul>
<%
If IsObjInstalled("Persits.MailSEnder") or IsObjInstalled("CDONTS.NewMail") or IsObjInstalled("SMTPsvg.Mailer") or IsObjInstalled("JMail.SMTPMail") or IsObjInstalled("easymail.MailSEnd") or IsObjInstalled("CMailCOM.SMTP.1")Then
Response.Write "<p align=""center""><a href=""?step=a"">下一步</a></p>"
Else
Response.Write "<b><font color=#FF0000>很遗憾！根据[自动邮件组件检测]的结果您的主机上没有本版本邮件系统所支持的邮件组件，因此您不能使用此系统</font></b>"
End If
%>
</td>
</tr>
</table>
<%End Sub%>
<%Sub step_a()%>
<Form method="POST" action="?step=b">
<table border="0" width="554" cellspacing="1" height="73">
<tr>
<td width="401" colspan="2" height="17">
<p align="center"><b>第一步 基本系统信息设置</b>
</td>
</tr>
<tr>
<td width="80" height="1">
<font color="#336699">
管理员名称</font>
</td>
<td width="460" height="1"><input name="AdminUser" size="32" class="bk"> <font color="#FF0000">*</font><font color="#7C96B8">用于登陆系统的身份严正</font>
</td>
</tr>
<tr>
<td width="80" height="1">
<font color="#336699">
管理员密码</font>
</td>
<td width="460" height="1"><input name="AdminPassword" size="32" class="bk"> <font color="#FF0000">*</font><font color="#7C96B8">用于登陆系统的身份严正</font>
</td>
</tr>
<tr>
<td width="80" height="25">
<font color="#336699">
网站名称</font>
</td>
<td width="460" height="25"><input name="WebName" size="32" class="bk"> <font color="#FF0000">*</font><font color="#7C96B8">显示在系统顶部，和订阅邮件时的显示</font>
</td>
</tr>
<tr>
<td width="80" height="25">
<font color="#336699">
网站地址</font>
</td>
<td width="460" height="25"><input name="WebURL" size="32" class="bk" value="<%="http://"&Request.Servervariables("server_name")%>"> <font color="#FF0000">*</font><font color="#7C96B8">显示在系统顶部，和订阅邮件时的显示</font>
</td>
</tr>
<tr>
<td width="401" colspan="2" height="21">
<p align="center">
<input type="Submit" value="下一步" name="install_a" class="Tips_bo">
</td>
</tr>
</table>
</Form>
<p>
</p>
<%End Sub%>
<%Sub step_b()%>
<Form method="POST" action="?step=c">
<table border="0" width="634" cellspacing="1" height="1">
<tr>
<td width="721" colspan="2" height="17">
<p align="center"><b>第二步 发送邮件基本信息设置(1)</b>
</td>
</tr>
<tr>
<td height="1" width="126"> 发送人姓名<%=Language_Management(1)%></td>
<td height="1" width="534"><input type="text" name="FromName" size="32" class="bk"> <font color="#FF0000">*</font><font color="#7C96B8">用于订阅邮件显示和发送邮件时默认</font><%=Language_Management(26)%></td>
</tr>
<tr>
<td height="1" width="126"> 发送人地址<%=Language_Management(2)%></td>
<td height="1" width="534"><input type="text" name="FromMail" size="32" class="bk" style="ime-mode:disabled"> <font color="#FF0000">*</font><font color="#7C96B8">用于订阅邮件显示和发送邮件时默认</font><%=Language_Management(27)%></td>
</tr>
<tr>
<td height="1" width="126"> 默认邮件主题<%=Language_Management(3)%></td>
<td height="1" width="534"><input type="text" name="MailSubject" size="32" class="bk"> <font color="#FF0000">*</font><font color="#7C96B8">用于发送邮件时默认</font><%=Language_Management(28)%></td>
</tr>
<tr>
<td height="1" width="126"> 邮件发送组件</td>
<td width="534" height="1"><select name="SetMailzj" class="bk" size="1">
<option value="jmail" <%If IsObjInstalled("JMail.SMTPMail") Then Response.Write "selected" %>>Jmail</option>
<option value="aspemail" <%If IsObjInstalled("Persits.MailSEnder") Then Response.Write "selected" %>>AspEmail</option>
<option value="cdonts" <%If IsObjInstalled("CDONTS.NewMail") AND Not IsObjInstalled("easymail.MailSEnd") Then Response.Write "selected" %>>CDONTS</option>
<option value="aspmail" <%If IsObjInstalled("SMTPsvg.Mailer") Then Response.Write "selected" %>>AspMail</option>
<option value="easywebmail" <%If IsObjInstalled("easymail.MailSEnd") Then Response.Write "selected" %>>EasyWebMail</option>
<option value="CMailServer" <%If IsObjInstalled("CMailCOM.SMTP.1") Then Response.Write "selected" %>>CMailServer</option>
</select> <font color="#FF0000">*</font><font color="#7C96B8">发信所使用的邮件组件，如果下面是自动检测的结果。只有选择你主机上支持的邮件组件才可以发信</font>
</td>
</tr>
<tr>
<td height="1" width="126"></td>
<td width="534" height="1">
<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="203">邮件组件名称</td>
<td width="190"> 支持情况/版本</td>
</tr>
<tr>
<td width="203"><font color="#336699">w3 Jmail (JMAIL)</font></td>
<td width="190">
<%If Not IsObjInstalled("JMail.SMTPMail") Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver("JMail.SMTPMail")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -