📄 management.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" -->
<%
Call loaderror()
Call showwebdata()
Call Language_var(Language,"management")
%>
<html>
<head>
<title><%=webname%></title>
<meta http-equiv="Content-Type" content="text/html; charSet=<%=Language_charSet%>">
<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" -->
<%
If Request.Form("saveSet") <> "" Then
'如果选择了确定按钮则,保存信息
Call saveSet()
Call main()
Else
Call main()
End If
'检测组件支持情况
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 main()
'获得管理信息
Set rs=Server.Createobject("adodb.recordset")
sql="select * from Management"
rs.open sql,conn,1,1
%>
<Form method="POST" action="management.asp">
<div align="center">
<center>
<table border="1" cellspacing="0" cellpadding="0" width="600" align="center" bordercolor="#7C96B8" bordercolordark="#FFFFFF" height="1522">
<tr>
<td colspan="2" height="20" background="images/mmTo.gIf" width="577" bgcolor="#7C96B8"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center"><font color="#336699">
<%=Language_Management(0)%></font></div></td>
</tr>
<tr>
<td height="39" width="126"><font color="#336699"> <%=Language_Management(1)%></font></td>
<td height="39" width="427"> <font color="#7C96B8">
<input type="text" name="FromName" size="32" value="<%=rs("FromName")%>" class="bk">
<br> *<%=Language_Management(26)%></font></td>
</tr>
<tr>
<td height="37" width="126"><font color="#336699"> <%=Language_Management(2)%></font></td>
<td height="37" width="427">
<input type="text" name="frommail" size="32" value="<%=rs("frommail")%>" class="bk" style="ime-mode:disabled">
<br><font color="#7C96B8"> *<%=Language_Management(26)%></font></td>
</tr>
<tr>
<td height="35" width="126"><font color="#336699"> <%=Language_Management(3)%></font></td>
<td height="35" width="427"><font color="#7C96B8">
<input type="text" name="mailSubject" size="32" value="<%=rs("mailSubject")%>" class="bk">
* <%=Language_Management(28)%></font></td>
</tr>
<tr>
<td height="151" width="126"><font color="#336699"> <%=Language_Management(4)%></font></td>
<td height="151" width="427"><font color="#7C96B8">
<textarea rows="6" name="adbody" cols="54" class="bk"><%=rs("AdBody")%></textarea>
<br>
* <%=Language_Management(29)%></font></td>
</tr>
<tr>
<td height="86" width="126"><font color="#336699"> <%=Language_Management(5)%></font></td>
<td width="427" height="86"> <font color="#7C96B8"> <select name="Setmailzj" class="bk" size="1">
<option value="aspemail" <%If rs("SetMailzj")="aspemail" Then Response.Write "selected" %>>AspEmail</option>
<option value="jmail" <%If rs("SetMailzj")="jmail" Then Response.Write "selected" %>>W3
Jmail</option>
<option value="cdonts" <%If rs("SetMailzj")="cdonts" Then Response.Write "selected" %>>CDONTS</option>
<option value="aspmail" <%If rs("SetMailzj")="aspmail" Then Response.Write "selected" %>>AspMail</option>
<option value="easywebmail" <%If rs("SetMailzj")="easywebmail" Then Response.Write "selected" %>>EasyWebMail</option>
<option value="CMailServer" <%If rs("SetMailzj")="CMailServer" Then Response.Write "selected" %>>CMailServer</option>
</select> </font> <br><font color="#7C96B8"> *<%=Language_Management(30)%><br>
*<%=Language_Management(31)%><br>
*<%=Language_Management(32)%></font><br>
<table border="1" width="303" bordercolor="#7C96B8" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#C0C0C0">
<tr>
<td width="393" colspan="2"><font color="#FF0000"><%=Language_Management(16)%></font></td>
</tr>
<tr>
<td width="203"><%=Language_Management(17)%></td>
<td width="190"> <%=Language_Management(18)%></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")
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 (<%=Language_Management(19)%>)</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 (<%=Language_Management(19)%>)</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="89" width="126"><font color="#336699"> <%=Language_Management(6)%></font></td>
<td height="89" width="425">
<input type="text" name="SMTPHost" size="32" maxlength="20" value="<%=rs("SMTPHost")%>" class="bk" style="ime-mode:disabled">
<br><font color="#7C96B8"> *<%=Language_Management(33)%><br>
*<%=Language_Management(34)%><BR> *<%=Language_Management(35)%></font></td>
</tr>
<tr>
<td height="55" width="126"><font color="#336699"> <%=Language_Management(7)%></font></td>
<td height="55" width="427"> <font color="#7C96B8"> <input name="smtpuser" type="text" id="smtpuser" class="bk" value="<%=rs("smtpuser")%>" size="32" style="ime-mode:disabled">
<br>
*<%=Language_Management(36)%><br> </font><font color="#FF0000">*</font><font color="#7C96B8"><%=Language_Management(35)%></font></td>
</tr>
<tr>
<td height="56" width="126"><font color="#336699"> <%=Language_Management(8)%></font></td>
<td height="56" width="427"> <font color="#7C96B8"> <input name="smtppass" type="password" id="smtppass" class="bk" value="<%=rs("smtppass")%>" size="32" maxlength="20">
<br>
*<%=Language_Management(36)%><br> </font><font color="#FF0000">*</font><font color="#7C96B8"><%=Language_Management(35)%></font></td>
</tr>
<tr>
<td height="37" width="126"><font color="#336699"> <%=Language_Management(9)%></font></td>
<td width="427" height="37"> <font color="#7C96B8">
<input type="text" name="filepath" size="32" value="<%=rs("filepath")%>" class="bk" style="ime-mode:disabled"><br> *<%=Language_Management(37)%><br><table border="1" width="303" bordercolor="#7C96B8" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#C0C0C0">
<tr>
<td width="393" colspan="2"><font color="#FF0000"><%=Language_Management(16)%></font></td>
</tr>
<tr>
<td width="187"><%=Language_Management(17)%></td>
<td width="206"> <%=Language_Management(18)%></td>
</tr>
<tr>
<td width="187">
</font>
<font color="#336699">FSO (<%=Language_Management(20)%>)</font></td>
<font color="#7C96B8">
<td width="206">
<%If Not IsObjInstalled("Scripting.FileSystemObject") Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -