📄 aa_email.asp
字号:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037 Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - All Rights Reserved.
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
Dim ObjTotest(26,4)
ObjTotest(16,0) = "JMail.SmtpMail"
ObjTotest(17,0) = "CDONTS.NewMail"
ObjTotest(18,0) = "Persits.Mailgraph2er"
public IsObj,VerObj
For i=0 To 25
On Error Resume Next
IsObj=false
VerObj=""
Dim TestObj
Set TestObj=server.CreateObject(ObjTotest(i,0))
If -2147221005 <> Err THEN
IsObj = True
VerObj = TestObj.version
IF VerObj="" or isnull(VerObj) THEN VerObj=TestObj.about
End IF
ObjTotest(i,2)=IsObj
ObjTotest(i,3)=VerObj
Next
Sub ObjTest(strObj)
On Error Resume Next
IsObj=false
VerObj=""
Dim TestObj
Set TestObj=server.CreateObject (strObj)
If -2147221005 <> Err THEN
IsObj = True
VerObj = TestObj.version
IF VerObj="" or isnull(VerObj) THEN VerObj=TestObj.about
End IF
End sub
Call Page_formBody()
Call Page_Spane(5)
Page_HeadName="<A HREF=Aa_Email.asp?Action=Add>发送邮件</A> | <A HREF=Aa_Email.asp?Action=Const>发送邮件设置</A> | <A HREF=Aa_Email.asp?Action=Manage>导出邮件列表</A>"
Select Case Action
Case "Add"
Call Page_AdminFlag(58)
Page_BootmName="发送邮件"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Aa_Email.asp?Action=sAdd>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>收 件 人：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=EmailTo TYPE=text id=EmailTo size=40> <INPUT TYPE=radio CLASS='radio_all' NAME=EmailClass VALUE='1' checked> 用户名 <INPUT TYPE=radio CLASS='radio_all' NAME=EmailClass VALUE='0'>电子邮件</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>邮件主题：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=EmailTitle TYPE=text id=EmailTitle size=60></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=230 CLASS=Table8>邮件内容：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=EmailContent cols=85 rows=15 id=EmailContent></TEXTAREA> HTML支持</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok TYPE=submit CLASS='submit_all' id=ok VALUE=提交资料> "&_
"<INPUT NAME=cl TYPE=reset id=cl CLASS='submit_all' VALUE=重新输入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "Const"
Call Page_AdminFlag(59)
Page_BootmName="邮件发送设置"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Aa_Email.asp?Action=sConst>"&_
"<TR>"&_
"<TD HEIGHT=25 colspan=2 CLASS=Table6 ALIGN=center>基本设置</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>邮件发送：</TD>"&_
"<TD CLASS=Table8>"&_
"<INPUT TYPE=radio CLASS='radio_all' NAME=Web_Email0 "
IF not ObjTotest(16,2) and not ObjTotest(17,2) and not ObjTotest(18,2) THEN
strIfa = strIfa & "disabled"
End IF
strIfa = strIfa & " VALUE='1' "
IF Web_Const(61)=1 THEN
strIfa = strIfa & "checked"
End IF
strIfa = strIfa & "> 打开 <INPUT TYPE=radio CLASS='radio_all' NAME=Web_Email0 VALUE='1'"
IF Web_Const(61)=0 or not ObjTotest(16,2) and not ObjTotest(17,2) and not ObjTotest(18,2) THEN
strIfa = strIfa & "checked"
End IF
strIfa = strIfa & ">关闭 如果服务器不支持，将自动关闭</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>发送模式：</TD>"&_
"<TD CLASS=Table8><select NAME='Web_Email1'>"
strIfa = strIfa & "<OPTION VALUE='Jmail' "
IF Web_Const(62)="Jmail" THEN
strIfa = strIfa & "selected"
End IF
strIfa = strIfa & ">Jmail</OPTION>"
strIfa = strIfa & "<OPTION VALUE='Cdonts' "
IF Web_Const(62)="Cdonts" THEN
strIfa = strIfa & "selected"
End IF
strIfa = strIfa & ">Cdonts</OPTION>"
strIfa = strIfa & "<OPTION VALUE='Aspemail' "
IF Web_Const(62)="Jmail" THEN
strIfa = strIfa & "Aspemail"
End IF
strIfa = strIfa & ">Aspemail</OPTION></select> "
strIfa = strIfa & "Jmail："
IF not ObjTotest(16,2) THEN
strIfa = strIfa & "<FONT COLOR=red><B>×</B></FONT>"
Else
strIfa = strIfa & "<FONT COLOR=006600><B>√</B></FONT>"
End IF
strIfa = strIfa & " Cdonts："
IF not ObjTotest(17,2) THEN
strIfa = strIfa & "<FONT COLOR=red><B>×</B></FONT>"
Else
strIfa = strIfa & "<FONT COLOR=006600><B>√</B></FONT>"
End IF
strIfa = strIfa & " Aspemail："
IF not ObjTotest(18,2) THEN
strIfa = strIfa & "<FONT COLOR=red><B>×</B></FONT>"
Else
strIfa = strIfa & "<FONT COLOR=006600><B>√</B></FONT>"
End IF
strIfa = strIfa & " 如果服务器不支持，此处选择无效</TD></TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>邮件服务器地址：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Web_Email2 VALUE='" & Web_Const(63) & "' TYPE=text id=Web_Email2 size=45></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>服务器登陆名：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Web_Email3 VALUE='" & Web_Const(64) & "' TYPE=text id=Web_Email3 size=45> 如果不需要邮件验证，就不用写</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>服务器密码：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Web_Email4 VALUE='" & Web_Const(65) & "' TYPE=password id=Web_Email4 size=45> 同上</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>发件人地址：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Web_Email5 VALUE='" & Web_Const(66) & "' TYPE=text id=Web_Email5 size=45></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>发件人姓名：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Web_Email6 VALUE='" & Web_Const(67) & "' TYPE=text id=Web_Email6 size=45></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=25 colspan=2 CLASS=Table6 ALIGN=center>发送内容</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=90 CLASS=Table8>邮件结尾署名：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Web_Email7 cols=80 rows=5>" & Web_Const(68) & "</TEXTAREA> HTML支持</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=90 CLASS=Table8>注册成功：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Web_Email14 cols=80 rows=5>" & Web_Const(75) & "</TEXTAREA> HTML支持</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=90 CLASS=Table8>询价回复：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Web_Email8 cols=80 rows=5>" & Web_Const(69) & "</TEXTAREA> HTML支持</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=90 CLASS=Table8>订单过期激活回复：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Web_Email9 cols=80 rows=5>" & Web_Const(70) & "</TEXTAREA> HTML支持</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=90 CLASS=Table8>订单状态修改回复：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Web_Email13 cols=80 rows=5>" & Web_Const(74) & "</TEXTAREA> HTML支持</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=90 CLASS=Table8>留言回复：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Web_Email10 cols=80 rows=5>" & Web_Const(71) & "</TEXTAREA> HTML支持</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=90 CLASS=Table8>评论回复：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Web_Email12 cols=80 rows=5>" & Web_Const(73) & "</TEXTAREA> HTML支持</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=90 CLASS=Table8>应聘回复：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Web_Email11 cols=80 rows=5>" & Web_Const(72) & "</TEXTAREA> HTML支持</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok TYPE=submit CLASS='submit_all' id=ok VALUE=提交资料> "&_
"<INPUT NAME=cl TYPE=reset CLASS='submit_all' id=cl VALUE=重新输入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "Manage"
Call Page_AdminFlag(59)
Page_BootmName="导出邮件列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
dim xCelet,Rs_y,mUserEmail
xCelet=request.querystring("xCelet")
IF xCelet="y" THEN
Set Rs_y=server.createobject("adodb.recordset")
Sql="Select * From Tx_User order by User_regDate desc"
Rs_y.open Sql,Conn,1,1
While Not Rs_y.Eof
mUserEmail=Rs_y("User_Email") & chr(13) & mUserEmail
Rs_y.movenext
Wend
Rs_y.close
Set Rs_y=Nothing
End IF
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Aa_Email.asp?Action=Manage&xCelet=y>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=380 ALIGN=center CLASS=Table8>邮件列表：</TD>"&_
"<TD CLASS=Table8>"&_
"<TEXTAREA NAME=textarea cols=80 rows=25>" & mUserEmail & "</TEXTAREA>"&_
"</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT CLASS='submit_all' TYPE=submit NAME=Submit3 VALUE=导出列表></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "sConst"
IF request.form("Web_Email1")="Jmail" and not ObjTotest(16,2) THEN
Errorst="对不起，服务器不支持Jmail组件！"
founderr=True
ElseIF request.form("Web_Email1")="Cdonts" and not ObjTotest(17,2) THEN
Errorst="对不起，服务器不支持Cdonts组件！"
founderr=True
ElseIF request.form("Web_Email1")="Aspemail" and not ObjTotest(18,2) THEN
Errorst="对不起，服务器不支持Aspemail组件！"
founderr=True
ElseIF request.form("Web_Email2")="" THEN
Errorst="请输入发件服务器地址！"
founderr=True
ElseIF request.form("Web_Email3")="" THEN
Errorst="请输入发件服务器登录用户名！"
founderr=True
ElseIF request.form("Web_Email4")="" THEN
Errorst="请输入发件服务器登录密码！"
founderr=True
ElseIF request.form("Web_Email5")="" THEN
Errorst="请输入发件人邮件地址！"
founderr=True
ElseIF request.form("Web_Email6")="" THEN
Errorst="请输入发件人姓名！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Set Rs=server.createobject("adodb.recordset")
Sql="Select Web_Email From Tx_Const"
Rs.open Sql,Conn,1,3
Rs("Web_Email")=request.form("Web_Email0") & "||" & request.form("Web_Email1") & "||" & replace(request.form("Web_Email2"),"||","") & "||" & replace(request.form("Web_Email3"),"||","") & "||" & replace(request.form("Web_Email4"),"||","") & "||" & replace(request.form("Web_Email5"),"||","") & "||" & replace(request.form("Web_Email6"),"||","") & "||" & replace(request.form("Web_Email7"),"||","") & "||" & replace(request.form("Web_Email8"),"||","") & "||" & replace(request.form("Web_Email9"),"||","") & "||" & replace(request.form("Web_Email10"),"||","") & "||" & replace(request.form("Web_Email11"),"||","") & "||" & replace(request.form("Web_Email12"),"||","") & "||" & replace(request.form("Web_Email13"),"||","") & "||" & replace(request.form("Web_Email14"),"||","")
Rs.update
Rs.close
Set Rs=Nothing
ToHistory="Aa_Email.asp?Action=Const"
saveok="邮件发送设置成功！"
Call Form_Saveok()
End IF
Case "sAdd"
dim EmailTo,Content_E,EmailToUser
Content_E=request.form("EmailContent") & "<BR><BR>" & Web_Const(68)
IF request.form("EmailClass")=1 THEN
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_User Where User_Name='" & request.form("EmailTo") & "'"
Rs.open Sql,Conn,1,1
IF Rs.recordCount<>0 THEN
EmailTo=Rs("User_Email")
EmailToUser=0
Else
EmailToUser=1
End IF
Rs.Close
Set Rs=Nothing
Else
EmailTo=request.form("EmailTo")
End IF
IF EmailToUser=1 THEN
Errorst="对不起，无此用户！"
founderr=True
ElseIF EmailTo="" THEN
Errorst="对不起，请输入收件人地址！"
founderr=True
ElseIF IsValidEmail(trim(EmailTo))=false THEN
error_title="对不起，收件人地址不正确！"
founderr=True
ElseIF request.form("EmailTitle")="" THEN
Errorst="对不起，请输入邮件主题！"
founderr=True
ElseIF request.form("EmailContent")="" THEN
Errorst="对不起，请输入邮件内容！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
SendEmail EmailTo,request.form("EmailTitle"),Content_E,Web_Const(62)
ToHistory=VisitorsForm
saveok="邮件发送成功！"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -