?? 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 + -