<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<%
'=======================================
'88red科技獨立開發完成本程序，并提供免費技術支持與升級服務
'官方網站 http://www.88red.com    QQ:8375158  TEL:13964489818
'對于商業客戶，本站提供細致周到的各項售后服務；對于盜版客戶恕不提供，對于散播本程序者本站將追究其法律責任
'88red科技將陸續開發其他各種先進程序，例如企業網站建站系統等等，對老客戶購買其他程序給予最大程度的優惠，歡迎洽談
'=======================================
dim action,id
action=request.querystring("action")
id=request.queryString("id")

select case action
'//添加
case "add" 
bcadd=trim(request("bcadd"))
name1=trim(request("name11"))
filename2="../"&name1&"1.htm"
set fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(server.mappath(""&filename2&""))=true  then
response.write"<script language=javascript>alert('同名稱的文件已經存在');this.location.href='javascript:history.go(-1)';</script>"
response.end
else
fso.createtextfile(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("zhanshi")=true
rs.Update
end if
rs.Close
set rs=nothing                                                                        
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("zhanshi")=request("zs")
rs.Update
rs.Close
set rs=nothing
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 news where bclassid="&id
filename1="../"&request("name2")&"1.htm"
set fso=server.createobject("scripting.filesystemobject")
fso.deletefile(server.mappath(""&filename1&""))
set fso=nothing
response.Redirect "bigclass.asp"
end select
%>