bcmanage.asp

if you want it,call me.

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
dim action,id
action=request.querystring("action")
id=request.queryString("id")

sub makeclass()
filename="../class.js"
set fso=server.createobject("scripting.filesystemobject")
set ffile=fso.createtextfile(server.mappath(""&filename&""))
mb="document.write('"
mb=mb&"<table width=170 border=0 cellpadding=0 cellspacing=0><tr  class=tabbgcolorli><td>　☆ 商品分类</td></tr></table><table width=170 height=56 border=0 cellpadding=0 cellspacing=0><tr><td class=border1>"
set rs=server.CreateObject("adodb.recordset")
sql="select * from bigclass order by paixu"
			rs.open sql,conn,1,1
			if rs.eof then
			mb=mb&"暂时没有商品分类"
			else
			do while not rs.eof 
			xsid=rs("bcid")
			classname=rs("name1")

           mb=mb&"&nbsp;&nbsp;&nbsp;&nbsp;[<a href="&url&"class/"&classname&"/index1.htm><font color=blue>"&rs("bcname")&"</font></a>]<br>" 
			set rs1=server.createobject("adodb.recordset")
			sql1="select * from smallclass where bcid="&xsid
			rs1.open sql1,conn,1,1
			if rs1.eof then
			mb=mb&"<br>"
			else
mb=mb&"<TABLE cellSpacing=0 cellPadding=0 width=160 border=0><TR>"
i=0
			do while not rs1.eof
i=i+1
			mb=mb&"<td width=80 align=center><a href="&url&"class/"&rs1("name2")&"/index1.htm>"&rs1("scname")&"</a></td>"
if i mod 2=0 then
mb=mb&"</tr><tr><td height=3></td></tr>"
end if

			rs1.movenext
			loop
mb=mb&"</table>"
			end if
			rs1.close
			set rs1=nothing
            rs.movenext
			loop
			end if
			rs.close
			mb=mb&"</td></tr></table>"
			mb=mb&"')"
			
			ffile.write""&mb&""
			ffile.close
			set ffile=nothing
	set fso=nothing
	set rs=nothing
	end sub

select case action
'//添加
case "add" 
bcadd=trim(request("bcadd"))
name1=trim(request("name11"))
filename2="../class/"&name1
set fso=server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath(""&filename2&""))=true  then
response.write"<script language=javascript>alert('同名称的文件夹已经存在');this.location.href='javascript:history.go(-1)';</script>"
response.end
else
fso.createfolder(server.mappath(""&filename2&"")) 
end if
set fso=nothing 
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from bigclass where bcname='"&bcadd&"' or name1='"&name1&"'",conn,1,3
if not rs.eof then
response.write"<script language=javascript>alert('名称重名，请换一个名称');this.location.href='javascript:history.go(-1)';</script>"
response.end
else
rs.AddNew
rs("bcname")=bcadd
rs("name1")=name1
rs.Update
end if
rs.Close
set rs=nothing
                                                                               
call makeclass
response.Redirect "bigclass.asp"
'//重命名
case "rename"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from bigclass where bcid="&id,conn,1,3
rs("bcname")=trim(request("bcname"))
rs("paixu")=trim(request("order"))
rs.Update
rs.Close
set rs=nothing
call makeclass
response.Redirect "bigclass.asp"
'//删除
case "del"
conn.execute "delete from bigclass where bcid="&id
conn.execute "delete from smallclass where bcid="&id
conn.execute "delete from goods where bclassid="&id
filename1="../class/"&request("name2")
set fso=server.createobject("scripting.filesystemobject")
fso.deletefolder(server.mappath(""&filename1&""))
set fso=nothing
call makeclass
response.Redirect "bigclass.asp"
end select
%>