yqj_email.asp
来自「非常有商业价值的软件」· ASP 代码 · 共 188 行
ASP
188 行
<!--#include file="chk.asp"-->
<!--#include file="../my_lib/my_request.asp" -->
<!--#include file="db_conn.asp" -->
<%
action=my_request("action",0)
if action="save" then
call save()
end if
sql="select * from email_system"
set rs=conn.execute (sql)
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>邮件设置</title>
<LINK href="style.css" rel=stylesheet type=text/css>
</head>
<body>
<form action="yqj_email.asp" method="post">
<div align="center">
<table border="0" width="760" id="table1">
<tr>
<td colspan="2" bgcolor="#EFEFEF" height="20">
<p align="center">邮件参数基本设置</td>
</tr>
<tr>
<td width="252" align="right">邮件服务器名称：</td>
<td width="504">
<input type="text" name="server_name" size="35" maxlength="30" value="<%=rs("server_name")%>">
填写你自己的</td>
</tr>
<tr>
<td width="252" align="right">登录名：</td>
<td width="504">
<input type="text" name="login_name" size="35" maxlength="30" value="<%=rs("login_name")%>">
<input type="hidden" name="action" value="save">如果不需stmp认证则留空</td>
</tr>
<tr>
<td width="252" align="right">登录密码：</td>
<td width="504">
<input type="password" name="login_pass" size="40" maxlength="30" value="<%=rs("login_pass")%>">
如果不需stmp认证则留空</td>
</tr>
<tr>
<td width="252" align="right">发件人名称：</td>
<td width="504">
<input type="text" name="sender" size="35" maxlength="30" value="<%=rs("sender")%>"></td>
</tr>
<tr>
<td width="252" align="right">发件人邮件地址：</td>
<td width="504">
<input type="text" name="sender_mail" size="35" maxlength="30" value="<%=rs("sender_mail")%>"></td>
</tr>
<tr>
<td colspan="2">
<p align="center"> </td>
</tr>
<tr>
<td colspan="2" bgcolor="#EFEFEF">
<p align="center">邮件内容详细设置</td>
</tr>
<tr>
<td align="right" valign="top" colspan="2">
<table border="0" width="760" id="table2" cellspacing="1">
<tr>
<td width="378" align="center" bgcolor="#EFEFEF">
<p align="center"><font color="#0000FF">用户注册成功邮件内容</font></td>
<td width="379" align="center" bgcolor="#E8FFFF">
<p align="center"><font color="#0000FF">网上支付成功邮件内容</font></td>
</tr>
<tr>
<td width="378" align="center" bgcolor="#EFEFEF">
<p align="center">
<textarea rows="8" name="content1" cols="39"><%=rs("content1")%></textarea></td>
<td width="379" align="center" bgcolor="#E8FFFF">
<p align="center">
<textarea rows="8" name="content2" cols="39"><%=rs("content2")%></textarea></td>
</tr>
<tr>
<td width="378" align="center" bgcolor="#E8FFFF">
<p align="center"><font color="#0000FF">定单生成后邮件内容</font></td>
<td width="379" align="center" bgcolor="#EFEFEF">
<p align="center"><font color="#0000FF">已经发货后邮件内容</font></td>
</tr>
<tr>
<td width="378" align="center" bgcolor="#E8FFFF">
<textarea rows="8" name="content3" cols="39"><%=rs("content3")%></textarea></td>
<td width="379" align="center" bgcolor="#EFEFEF">
<textarea rows="8" name="content4" cols="39"><%=rs("content4")%></textarea></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td align="right" colspan="2">
<table border="0" width="760" id="table3">
<tr>
<td width="249">
<p align="right">是否开启用户注册后邮件通知：</td>
<td width="113">
<input type="radio" value="1" name="flag1" <%if rs("flag1")=1 then %> checked <%end if%>>是<input type="radio" value="0" name="flag1" <%if rs("flag1")=0 then %> checked <%end if%>>否</td>
<td width="166">
<p align="right">是否开启定单生成邮件通知：</td>
<td width="205">
<input type="radio" value="1" name="flag3" <%if rs("flag3")=1 then %> checked <%end if%>>是<input type="radio" value="0" name="flag3" <%if rs("flag3")=0 then %> checked <%end if%>>否</td>
</tr>
<tr>
<td width="249">
<p align="right">是否开启网上支付成功邮件通知：</td>
<td width="113">
<input type="radio" value="1" name="flag2" <%if rs("flag2")=1 then %> checked <%end if%>>是<input type="radio" value="0" name="flag2" <%if rs("flag2")=0 then %> checked <%end if%>>否</td>
<td width="166">
<p align="right">是否开启发货后邮件通知：</td>
<td width="205">
<input type="radio" value="1" name="flag4" <%if rs("flag4")=1 then %> checked <%end if%>>是<input type="radio" value="0" name="flag4" <%if rs("flag4")=0 then %> checked <%end if%>>否</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2">
<font color="#FF0000"><ul>
<li>重要说明</font></li>
<li><font color="#FF0000">邮件内容支持HTML格式，请输入HTML标记</font></li>
<li><font color="#FF0000">采用Jmail组建发送邮件</font></li>
<li><font color="#FF0000">确认服务器已经装上Jmail组建，否则邮件发送不成功</li>
</ul></font>
</td>
</tr>
<tr>
<td colspan="2">
<p align="center"><input type="submit" value="确认递交" name="B1"></td>
</tr>
</table>
</div>
</form>
</body>
<br>
</html>
<%
sub save()
server_name=my_request("server_name",0)
login_name=my_request("login_name",0)
login_pass=my_request("login_pass",0)
sender=my_request("sender",0)
sender_mail=my_request("sender_mail",0)
content1=my_request("content1",0)
content2=my_request("content2",0)
content3=my_request("content3",0)
content4=my_request("content4",0)
flag1=my_request("flag1",1)
flag2=my_request("flag2",1)
flag3=my_request("flag3",1)
flag4=my_request("flag4",1)
sql="select * from email_system where id=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("server_name")=server_name
rs("login_name")=login_name
rs("login_pass")=login_pass
rs("sender")=sender
rs("sender_mail")=sender_mail
rs("content1")=content1
rs("content2")=content2
rs("content3")=content3
rs("content4")=content4
rs("flag1")=cint(flag1)
rs("flag2")=cint(flag2)
rs("flag3")=cint(flag3)
rs("flag4")=cint(flag4)
rs.update
rs.close
set rs=nothing
response.redirect "yqj_email.asp"
end sub
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?