<%if session("user")="" or session("pwd")="" then
response.redirect "index.asp"
end if
%>
<%'管理员删除邮件-----------
if request("submit")="删除" then
delsql="delete from mail where id="&request("id")
conn.execute(delsql)
end if
'删除结束---------------
'管理员更新邮件-----------
if request("submit")="更新" then
yijiban=request("yijiban")
xcz_soft=request("xcz_soft")
tzzh=request("tzzh")
lu_stock=request("lu_stock")
'设置订阅更新中的不订邮件
if yijiban="" then
yijiban=0
end if
if xcz_soft="" then
xcz_soft=0
end if
if tzzh="" then
tzzh=0
end if
if lu_stock="" then
lu_stoc=0
end if
'设置订阅更新中的不订邮件结束
set rs1=server.createobject("ADODB.Recordset")
sql="select * from mail where id="&request("id")
rs1.open sql,conn,1,3
rs1("yijiban")=cint(yijiban)
rs1("xcz_soft")=cint(xcz_soft)
rs1("tzzh")=cint(tzzh)
rs1("lu_stock")=cint(lu_stock)
rs1.update
rs1.close
end if
'更新结束---------------
set rs=server.createobject("ADODB.Recordset")
sql="select * from mail"
rs.open sql,conn,1,3%>
邮件列表：发送邮件