admin_catunite.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp"-->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_catunite.asp
'Version:2.0
'UpdateTime: 2004-10-7 15:10:31
'Script Written by www.aspease.com 
'=========================================================
admheader
if Request("action") = "unite" then
	call unite()
else
	call catinfo()
end if
admfooter
sub catinfo()
response.Write("<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3""  align=center class=""tableBorder"">")
response.Write("	<tr>")
response.Write("	<th height=25>合并拍卖数据")
response.Write("	</th>")
response.Write("	</tr>")
response.Write("	<form action=admin_catunite.asp?action=unite method=post>")
response.Write("	<tr>")
response.Write("	  <td class=row> <B>合并拍卖分类</B>：<BR>")
response.Write("        <B>将本分类及其下属分类的商品都转移至目标分类，并删除本分类及其下属分类</B><BR>")
response.Write("        <BR>")
	set rs = server.CreateObject ("Adodb.recordset")
	sql="select catid,catname,depth from cat order by rootid,orders"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "没有拍卖分类"
	else
		response.write " 将拍卖分类 "
		response.Write("<select name=oldcat size=1>")
		do while not rs.eof
			response.Write("<option value=""")
			response.Write(rs(0))
			response.Write(""">")
			if rs(2)>0 then
				for i=1 to rs(2)
					response.Write("－")
				next
			end if
			response.Write(rs(1))
			response.Write("</option>")
		rs.movenext
		loop
		response.Write("</select>")
	end if
	rs.close
	sql="select catid,catname,depth from cat order by rootid,orders"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "没有拍卖分类"
	else
		response.write " 合并到 "
		response.Write("<select name=newcat size=1>")
		do while not rs.eof
			response.Write("<option value=""")
			response.Write(rs(0))
			response.Write(""">")
			if rs(2)>0 then
				for i=1 to rs(2)
					response.Write("－")
				next
			end if
			response.Write(rs(1))
			response.Write("</option>")
		rs.movenext
		loop
		response.Write("</select>")
	end if
	rs.close
	set rs=nothing
response.Write(" <BR><BR>")
response.Write("        <input type=submit name=Submit value=合并>")
response.Write("        <BR><BR>")
response.Write("	</td>")
response.Write("	</tr>")
response.Write("	<tr>")
response.Write("	<td class=row><B>注意事项</B>：<BR><FONT COLOR=""red"">所有操作不可逆，请慎重操作</FONT><BR>")
response.Write("        不能在同一个分类内进行操作、不能将一个分类合并到其下属分类中。<BR>")
response.Write("        合并后您所指定的拍卖分类（或者包括其下属分类）将被删除，所有商品将转移到您所指定的目标分类中 </td>")
response.Write("	</tr></form>")
response.Write("	</table>")
end sub
sub unite()

if fval(request("newcat"))=fval(request("oldcat")) then
	response.write "请不要在相同分类内进行操作。"
	exit sub
end if
newcat=clng(request("newcat"))
oldcat=clng(request("oldcat"))
'将本拍卖分类及其下属类别的商品都转移至目标拍卖，并删除本拍卖及其下属分类
'得到当前版面下属拍卖分类
set rs=conn.execute("select ParentStr,catid,depth,ParentID,child from cat where catid="&sqlval(oldcat))
if fval(rs(0))=0 then
ParentStr=rs(1)
iParentID=rs(1)
else
ParentStr=rs(0) & ","
iParentID=rs(3)
end if
iParentStr=rs(1)
depth=rs(2)
child=rs(4)+1
i=0
set rs=conn.execute("select catid from cat where catid="&sqlval(newcat)&" and ParentStr like '%"&ParentStr&"%'")
if not (rs.eof and rs.bof) then
	response.write "不能将一个分类合并到其下属子类中"
	exit sub
end if
'得到当前版面下属拍卖分类ID
set rs=conn.execute("select catid from cat where ParentStr like '%"&ParentStr&"%'")
if not (rs.eof and rs.bof) then
do while not rs.eof
	iParentStr=iParentStr & "," & rs(0)
	i=i+1
rs.movenext
loop
end if
if i>0 then
	ParentStr=iParentStr
else
	ParentStr=oldcat
end if

if depth>0 then
conn.execute("update cat set child=child-"&child&" where catid="&iparentid)
for i=1 to depth
	'得到其父类的父类的版面ID
	set rs=conn.execute("select parentid from cat where catid="&iparentid)
	if not (rs.eof and rs.bof) then
		iparentid=rs(0)
		conn.execute("update cat set child=child-"&child&" where catid="&iparentid)
	end if
next
end if
AllPostTable="auctions"
AllPostTable=split(AllPostTable,"|")
For i=0 to ubound(AllPostTable)
conn.execute("update "&AllPostTable(i)&" set auc_catid="&newcat&" where auc_catid in ("&ParentStr&")")
Next

conn.execute("delete from cat where catid in ("&ParentStr&")")
set trs=conn.execute("select ParentStr,catid from cat where catid="&newcat)
if trs(0)="0" then
ParentStr=trs(1)
else
ParentStr=trs(0)
end if
response.write "合并成功，已经将被合并拍卖分类的所有数据转入您所合并拍卖分类中。"
set trs=nothing
end sub
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_catunite.asp
'Version:2.0
'UpdateTime: 2004-10-7 15:10:31
'Script Written by www.aspease.com 
'=========================================================%>