scmanage.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,id1
action=request.querystring("action")
id1=request.queryString("id")
id9=request("id8")
id7=request("cid")
id5=request("id2")
id3=request("id6")
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" 
filename1="../class/"&request("name1")
set fso=server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath(""&filename1&""))=true  then
response.write"<script language=javascript>alert('同名称的文件夹已经存在');this.location.href='javascript:history.go(-1)';</script>"
response.end
else
fso.createfolder(server.mappath(""&filename1&"")) 
end if
set fso=nothing 
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from smallclass",conn,1,3
rs.AddNew
rs("scname")=trim(request("scadd"))
rs("bcid")=id1
rs("name2")=request("name1")
rs.Update
rs.Close
set rs=nothing
call makeclass
response.Redirect "smallclass.asp?id="&id1
'//重命名
case "rename"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from smallclass where scid="&id3,conn,1,3
rs("scname")=trim(request("scname"))
rs.Update
rs.Close
set rs=nothing
call makeclass
response.Redirect "smallclass.asp?id="&request("id2")
'//删除
case "del"
conn.execute "delete from smallclass where scid="&request("id8")
conn.execute "delete from goods where sclassid="&request("id8")
filename1="../class/"&request("name3")
set fso=server.createobject("scripting.filesystemobject")
fso.deletefolder(server.mappath(""&filename1&""))
set fso=nothing
call makeclass
response.Redirect "smallclass.asp?id="&id7
end select
%>