admin.asp

电子商务系统Easy_Buy是一个在线销售系统

<%qx="08"%>
<!--#include file="../login/0.asp"-->
<!--#include file="../../conn/conn.asp"-->
<!--#include file="my.asp"-->
<link rel="stylesheet" type="text/css" href="../../css/css.css">
<STYLE>
BODY {
	SCROLLBAR-FACE-COLOR: #799ae1;
	SCROLLBAR-HIGHLIGHT-COLOR: #799ae1;
	SCROLLBAR-SHADOW-COLOR: #799ae1;
	SCROLLBAR-3DLIGHT-COLOR: #799ae1;
	SCROLLBAR-ARROW-COLOR: #fcfcfc;
	SCROLLBAR-TRACK-COLOR: #aabfec;
	SCROLLBAR-DARKSHADOW-COLOR: #799ae1;
	SCROLLBAR-BASE-COLOR: #799ae1;
	background-color: #CAD7F7;
}
</STYLE>
<style type="text/css">
<!--
body {
	background-color: #CAD7F7;
}
.STYLE3 {
	color: #FFFFFF;
	font-weight: bold;
}
.back_southidc {BACKGROUND-IMAGE:url('image/titlebg.gif');COLOR:000000;}
.table_southidc {BACKGROUND-COLOR: A4B6D7;}
.tit {font-size: 14px;
}
.tr_southidc {BACKGROUND-COLOR: ECF5FF;}
-->
</style>
<%
Select case request("abc")
'增加分类
case "addq_yes"
if request("id")<>"" and request("id")<>0 then
Set s= Server.CreateObject("abodb.recordset")
set rs=conn.execute("select id from bbs_lb where qid=0 and id="&request("id")&"")
if not rs.eof then
my_bt="错 误 信 息 ！"
my_nr="·分类序号 <b>"&request("id")&"</b> 已经存在！·请选择别的分类序号"
my()
response.end
end if
set rs=nothing
Set s= Server.CreateObject("abodb.recordset")
conn.execute("insert into bbs_lb(id,lbname,qid)values("&request("id")&",'"&trim(request("lbname"))&"',0)")
my_bt="添 加 成 功 ！"
my_nr="·添加社区分类成功！"
my()
else
my_bt="添 加 失 败 ！"
my_nr="·添加社区分类失败，参数错误！"
my()
end if
'添加vip认证会员
case "bbsvip_add_yes"
if request("huiyuan")<>"" and request("lbid")<>"" then
Set s= Server.CreateObject("abodb.recordset")
set rs = conn.execute("select huiyuan from huiyuan where huiyuan='"&request("huiyuan")&"'")
if not rs.eof then
set bz = conn.execute("select huiyuan from bbs_vip where lx=0 and huiyuan='"&request("huiyuan")&"' and lbid="&request("lbid")&"")
if bz.eof then
conn.execute("Insert into bbs_vip(huiyuan,lbid,lx)values('"&request("huiyuan")&"',"&request("lbid")&",0)")
my_bt="添加成功！"
my_nr="·添加社区vip认证会员成功！"
my()
else
my_bt="添加失败 ！"
my_nr="·该会员已经是该版块的vip认证会员了，参数错误！"
my()
end if
bz.close
else
my_bt="添加失败 ！"
my_nr="·在数据库中未找到该会员账号，只有是已注册会员才能升级为vip认证会员，参数错误！"
my()
end if
rs.close
else
my_bt="添加失败 ！"
my_nr="·请输入vip认证会员账号，参数错误！"
my()
end if
'删除vip认证会员
case "bbsvip_del_yes"
if request("huiyuan")<>"" and request("lbid")<>"" then
Set s= Server.CreateObject("abodb.recordset")
set bz = conn.execute("select huiyuan from bbs_vip where lx=0 and huiyuan='"&request("huiyuan")&"' and lbid="&request("lbid")&"")
if not bz.eof then
conn.execute("Delete bbs_vip where lx=0 and huiyuan='"&request("huiyuan")&"' and lbid="&request("lbid")&"")
my_bt="删除成功！"
my_nr="·删除社区vip认证会员成功！"
my()
else
my_bt="删除失败 ！"
my_nr="·在数据库中未找到，请确认他是该版块的vip认证会员，参数错误！"
my()
end if
bz.close
else
my_bt="删除失败 ！"
my_nr="·请输入vip认证会员账号，参数错误！"
my()
end if
'增加论坛
case "addbbs_yes"
if request("id")<>"" and request("id")<>0 then
Set s= Server.CreateObject("abodb.recordset")
set rs=conn.execute("select id from bbs_lb where qid="&request("qid")&" and id="&request("id")&"")
if not rs.eof then
my_bt="错 误 信 息 ！"
my_nr="·社区序号 <b>"&request("id")&"</b> 已经存在！·请选择别的社区序号"
my()
response.end
end if
set rs=nothing
Set s= Server.CreateObject("abodb.recordset")
conn.execute("insert into bbs_lb(qid,id,lbname,lbsm,lx)values("&request("qid")&","&request("id")&",'"&trim(request("lbname"))&"','"&trim(request("lbsm"))&"',"&request("lx")&")")
my_bt="添 加 成 功 ！"
my_nr="·添加社区成功！"
my()
else
my_bt="添 加 失 败 ！"
my_nr="·添加社区失败，参数错误！"
my()
end if
'修改论坛信息
case "xiubbsinfo_yes"
if request("mc")<>"" and request("logo")<>"" and request("lm")<>"" and request("kai")<>"" then
Set s= Server.CreateObject("abodb.recordset")
conn.execute("update bbs_info set mc='"&request("mc")&"',logo='"&request("logo")&"',be='"&request("be")&"',banner='"&request("banner")&"',url='"&request("url")&"',webmi='"&request("webmi")&"',mail='"&request("mail")&"',qq='"&request("qq")&"',tel='"&request("tel")&"',nono='"&request("nono")&"',lm="&request("lm")&",kai="&request("kai")&",info='"&request("info")&"'")
my_bt="修 改 成 功 ！"
my_nr="·修改论坛信息成功！"
my()
else
my_bt="修 改 失 败 ！"
my_nr="·修改论坛信息失败，参数错误，请确保各项输入正确！"
my()
end if
'修改论坛
case "xiubbs_yes"
if request("id")<>"" and request("id")<>0 then
Set s= Server.CreateObject("abodb.recordset")
set rs=conn.execute("select id from bbs_lb where qid="&request("qid")&" and id="&request("id")&" and lbid<>"&request("lbid")&"")
if not rs.eof then
my_bt="错 误 信 息 ！"
my_nr="·论坛序号 <b>"&request("id")&"</b> 已经存在！·请选择别的论坛序号"
my()
response.end
end if
set rs=nothing
Set s= Server.CreateObject("abodb.recordset")
conn.execute("update bbs_lb set qid="&request("qid")&",id="&request("id")&",lbname='"&request("lbname")&"',lbsm='"&request("lbsm")&"',lx="&request("lx")&" where lbid="&request("lbid")&"")
my_bt="修 改 成 功 ！"
my_nr="·修改论坛成功！"
my()
else
my_bt="修 改 失 败 ！"
my_nr="·修改论坛失败，参数错误！"
my()
end if
'增加联盟论坛
case "addbbslm_yes"
if request("name")<>"" and request("url")<>"" then
Set s= Server.CreateObject("abodb.recordset")
set rs=conn.execute("select name from bbs_lm where name='"&request("name")&"'")
if not rs.eof then
my_bt="错 误 信 息 ！"
my_nr="·联盟论坛 <b>"&request("name")&"</b> 已经存在！"
my()
response.end
end if
set rs=nothing
conn.execute("insert into bbs_lm(name,url)values('"&request("name")&"','"&request("url")&"')")
my_bt="添 加 成 功 ！"
my_nr="·添加联盟论坛成功！"
my()
else
my_bt="添 加 失 败 ！"
my_nr="·添加联盟论坛失败，参数错误！"
my()
end if
'合并社区分类
case "hebbs_yes"
if request("lbid1")<>"" and request("lbid2")<>"" then
Set s= Server.CreateObject("abodb.recordset")
conn.execute "update bbs set lbid="&request("lbid2")&" where lbid="&request("lbid1")&""
conn.execute "delete bbs_lb where lbid="&request("lbid1")&""
my_bt="合 并 成 功 ！"
my_nr="·合并社区分类成功！"
my()
else
my_bt="合 并 失 败 ！"
my_nr="·合并社区分类失败，参数错误！"
my()
end if
'删除社区分类
case "delq"
if request("lbid")<>"" then
Set s= Server.CreateObject("abodb.recordset")
set rs = conn.execute("select lbid from bbs_lb where qid="&request("lbid")&" order by lbid desc")
do while not rs.eof
conn.execute "delete bbs where lbid="&rs("lbid")&""
rs.movenext
loop
rs.close
Set s= Server.CreateObject("abodb.recordset")
conn.execute "delete bbs_lb where qid="&request("lbid")&""
conn.execute "delete bbs_lb where lbid="&request("lbid")&""
my_bt="删 除 成 功 ！"
my_nr="·删除社区分类成功！"
my()
else
my_bt="删 失 败 ！"
my_nr="·删除社区分类失败，参数错误！"
my()
end if
'删除社区分类
case "delbbs"
if request("lbid")<>"" then
set rs = conn.execute("select lbid from bbs_lb where qid="&request("lbid")&" order by lbid desc")
do while not rs.eof
conn.execute "delete bbs where lbid="&rs("lbid")&""
rs.movenext
loop
rs.close
Set s= Server.CreateObject("abodb.recordset")
conn.execute "delete bbs_lb where qid="&request("lbid")&""
conn.execute "delete bbs_lb where lbid="&request("lbid")&""

my_bt="删 除 成 功 ！"
my_nr="·删除论坛分类成功！"
my()
else
my_bt="删 失 败 ！"
my_nr="·删除论坛分类失败，参数错误！"
my()
end if
'添加版主
case "bbsbz_add_yes"
if request("huiyuan")<>"" and request("lbid")<>"" then
Set s= Server.CreateObject("abodb.recordset")
set rs = conn.execute("select huiyuan from huiyuan where huiyuan='"&request("huiyuan")&"'")
if not rs.eof then
set bz = conn.execute("select huiyuan from bbs_vip where  huiyuan='"&request("huiyuan")&"' and lbid="&request("lbid")&"")
if bz.eof then
conn.execute("Insert into bbs_vip(huiyuan,lbid,lx)values('"&request("huiyuan")&"',"&request("lbid")&",1)")
my_bt="添加成功！"
my_nr="·添加社区版主成功！"
my()
else
my_bt="添加失败 ！"
my_nr="·该会员已经是该版块的版主了，参数错误！"
my()
end if
bz.close
else
my_bt="添加失败 ！"
my_nr="·在数据库中未找到该会员账号，只有是已注册会员才能升级为版主，参数错误！"
my()
end if
rs.close
else
my_bt="添加失败 ！"
my_nr="·请输入版主会员账号，参数错误！"
my()
end if
'删除版主
case "bbsbz_del_yes"
if request("huiyuan")<>"" and request("lbid")<>"" then
Set s= Server.CreateObject("abodb.recordset")
set bz = conn.execute("select huiyuan from bbs_vip where  and huiyuan='"&request("huiyuan")&"' and lbid="&request("lbid")&"")
if not bz.eof then
conn.execute("Delete bbs_vip where lx=1 and huiyuan='"&request("huiyuan")&"' and lbid="&request("lbid")&"")
my_bt="删除成功！"
my_nr="·删除论坛版主成功！"
my()
else
my_bt="添加失败 ！"
my_nr="·在数据库中未找到，请确认他是该版块的版主，参数错误！"
my()
end if
bz.close
else
my_bt="添加失败 ！"
my_nr="·请输入版主会员账号，参数错误！"
my()
end if
'删除论坛联盟
case "delbbslm"
if request("id")<>"" then
conn.execute "delete bbs_lm where id="&request("id")&""
my_bt="删 除 成 功 ！"
my_nr="·删除联盟论坛成功！"
my()
else
my_bt="删 失 败 ！"
my_nr="·删除联盟论坛失败，参数错误！"
my()
end if
'批量删除多少天以前的贴子
case "bbs_del1"
if request("id")<>"" and isnumeric(request("id")) then
conn.execute "delete bbs where datediff(d,sj,getdate())>"&request("id")&""
my_bt="删 除 成 功 ！"
my_nr="·批量删除 ["&request("id")&"] 天以前的贴子成功！"
my()
else
my_bt="删 失 败 ！"
my_nr="·批量删除贴子失败，参数错误！"
my()
end if
'批量删除会员的贴子
case "bbs_del2"
if request("huiyuan")<>"" then
conn.execute "delete bbs where huiyuan='"&request("huiyuan")&"'"
my_bt="删 除 成 功 ！"
my_nr="·批量删除会员的贴子成功！"
my()
else
my_bt="删 失 败 ！"
my_nr="·批量删除会员的贴子失败，参数错误！"
my()
end if
'增加论坛