📄 sys_mail.asp

📁 有很多功能的留言版,很容易上手,有自动添加图片、表情。管理员功能也强大
💻 ASP
字号:
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/CallErr.asp" -->
<!--#include file="class/command.asp" -->
<!--#include file="class/SaveSys.asp" -->
<!--#include file="class/SendMail.asp" -->
<!--#include file="inc/IsValidEmail.asp" -->
<%
Response.Expires = -1
Server.ScriptTimeout = 300
dim ClassSystem,ClassCheck,ClassSys,ClassMail
Set ClassSystem = New System
Set ClassCheck = New CheckUser
Set ClassSys = New SaveSys
Set ClassMail = New SendMail
ClassSystem.GetWebSys()
ClassCheck.GetUserInfo()
ClassCheck.GetUserCss Request.Querystring("GetStyle")
ClassCheck.CheckUserLogin ClassSystem.ArrRs(2,0),ClassSystem.ArrRs(3,0),ClassCheck.AdminUser,ClassCheck.AdminPass
Select Case Request.Querystring("Input")
	Case "GetMailIObj"
		ClassMail.GetMailIObj Request.Form("MailIObj")
		
	Case Else
		ClassMail.GetMailIObj Request.Form("MailIObj")
		ClassSys.SetRequest_Method Request.ServerVariables("Request_Method")
End Select

Select Case ClassSys.Request_Method
	Case "POST"
		ClassSys.GetSys_MailInfo Request.Form("MailIObj"),Request.Form("Email"),Request.Form("PassWord"),Request.Form("Smtp"),Request.Form("SendName"),Request.Form("Title"),Request.Form("GsbookUrl")
		Select Case ClassSys.SetMail
			Case 0
				ClassSys.DelSys_Mail()
			Case 1
				ClassSys.CheckSys_MailInfo ClassSys.MailIObj,ClassSys.Email,ClassSys.PassWord,ClassSys.Smtp,ClassSys.SendName,ClassSys.Title,ClassSys.GsbookUrl
				ClassSys.UpdateSys_Mail ClassSys.MailIObj,ClassSys.Email,ClassSys.PassWord,ClassSys.Smtp,ClassSys.SendName,ClassSys.Title,ClassSys.GsbookUrl,ClassMail.NowMailIObj,ClassMail.ArrRs(1,0),ClassMail.ArrRs(2,0),ClassMail.ArrRs(3,0),ClassMail.ArrRs(4,0),ClassMail.ArrRs(5,0),ClassMail.ArrRs(6,0)
		End Select
		ClassCheck.CallOk 1
End Select

ClassSystem.Closedb()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="script/GetStyle.js"></script>
<title><%=ClassSystem.ArrRs(0,0)%> - <%=ClassSystem.ArrRs(1,0)%></title>
</head>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 class="body" Bgproperties="fixed">
<!--#include file=Include/Top_Sys.asp -->
<div class="div"> 
  <table Class=TableTop border=0 cellpadding="0" cellspacing="0">
    <tr> 
    <td class=TableTop_Left rowspan="11">&nbsp;</td>
    <td colspan="2" align="center">&nbsp;</td>
  </tr>
  <tr> 
      <td colspan="2" class=TableTop_Right> 
        <table width="600" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><p>发信组件设置（当前使用的组件： 
  <%Response.write "<Font color=red>"&ClassMail.NowMailIObj&"</font>"%>
  ） </p>
<form method=Post action="?Input=GetMailIObj">
  选择在线发信组件： 
  <select name="MailIObj" size="1" onChange="javascript:submit()">
    <%If ClassMail.MailIObj = "Ok" Then Response.write "<option value="&ClassMail.ArrRs(0,0)&" selected>"&ClassMail.ArrRs(0,0)&"</option>"%>
    <option value="No">不使用</option>
    <option value="Jmail">Jmail</option>
    <option value="CDONTS">CDONTS</option>
  </select>
</form>
</p>
<form method="POST" action="?type=save" name="form" target="_self">
  <p>
    <input name="MailIObj" type="Hidden" Class=Put id="MailIObj" value="<%=ClassMail.GetMailIObjInfo%>" size="20" maxlength="50">
  </p>
 <%
 If ClassMail.MailIObj="Ok" Then
 %>
  <p>发送邮箱： 
    <input name="Email" type="text" Class=Put id="Email" value="<%=ClassMail.ArrRs(1,0)%>" size="20" maxlength="50">
  </p>
  <p>邮箱密码： 
    <input name="PassWord" type="text" id="PassWord" value="<%=ClassMail.ArrRs(2,0)%>" size="20" maxlength="20" Class=Put>
    （使用Jmail时必须填写你的邮箱登陆密码） </p>
  <p>SMTP地址： 
    <input name="Smtp" type="text" id="Smtp" value="<%=ClassMail.ArrRs(3,0)%>" size="20" maxlength="50" Class=Put>
    （使用Jmail时必须填写你的邮箱SMTP发信地址） </p>
  <p>发 件 人： 
    <input name="SendName" type="text" id="SendName" size="20" maxlength="50" value="<%=ClassMail.ArrRs(4,0)%>" Class=Put>
    (使用Jmail时将在收件人的邮箱中显示) </p>
  <p>邮件标题： 
    <input name="Title" type="text" id="Title" size="20" maxlength="50" value="<%=ClassMail.ArrRs(5,0)%>" Class=Put>
  </p>
  <p>留言本地址： 
    <input name="GsbookUrl" type="text" id="GsbookUrl" value="<%=ClassMail.ArrRs(6,0)%>" size="20" maxlength="100" Class=Put>
    <br>（必段填写正确的地址，回复通知时将用此地址访问，格式http://www.Cnetnet.net/gsbook/） </p>
<%
End If
%>
  <p><p><div class="div"> 
    <input type="submit" name="Submit" value="=> 更新设置" class=put2>
    <input type=reset name="Reset" value="重写" class=put3>
  </div></p>
</form></td>
          </tr>
        </table></td>
  </tr></table>
</div>
<!--#Include File="Include/CopyRight.asp" -->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -