📄 class.asp
字号:
<!--#INCLUDE FILE="checklogin1.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="include/site.css" type="text/css" rel="stylesheet">
<SCRIPT language=JavaScript src="script/jsfun.js"></SCRIPT>
<body>
<%
set rs = server.createobject("adodb.recordset")
action=request("action")
Classlevel=request("Classlevel")
if Classlevel="" then Classlevel=1
ClassID=request("ClassID")
ClassName=request("ClassName")
ClassEN=request("ClassEN")
if Classlevel<3 then
table="BigClass"
else
table="SmallClass"
end if
'response.Write(request("action")&";"&ClassID&";"&table&";"& ClassName&";"&ClassEN)
select case action
case "ModifyClass"
call ModifyClass(ClassID,table)
case "DeleteClass"
call DeleteClass(ClassID,table)
case "AddClass"
call AddClass(table)
case "ModifyClassOk"
call ModifyClassOk(ClassID,table)
case "AddClassOK"
call AddClassOK
case else
call ShowClass(Classlevel,ClassName)
end select
sub ShowClass(Classlevel,ClassName)%>
<table width="100%" height="450" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#4397c5">
<tr>
<td>
<!--#include file = topMenu.htm-->
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="450" colspan="2" valign="top">
<%
set rsSmallClass = server.createobject("adodb.recordset")
select case Classlevel
case 1
sql = "select * from bigclass where Isfatherclass=true order by id desc "
case 2
sql = "select * from bigclass where BigClassCN='"&ClassName&"' and Isfatherclass=false order by id desc "
case 3
sql = "select * from SmallClass where SmallClassCN='"&ClassName&"' and Isfatherclass=true order by id desc "
case 4
sql = "select * from SmallClass where SmallClassCN='"&ClassName&"' and Isfatherclass=false order by id desc "
case else
sql = "select * from bigclass where Isfatherclass=true order by id desc "
end select
rs.open sql,conn,1,1
if Classlevel<2 then
table="bigclass"
else
table="SmallClass"
end if
dim x
x=10
while not rs.eof
x=x+1
if Classlevel<3 then
ClassCN=rs("BigClassCN")
ClassEN=rs("BigClassEN")
else
ClassCN=rs("SmallClassCN")
ClassEN=rs("SmallClassEN")
end if
TclassString=classString(ClassLevel,ClassCN,ClassEN)
if x=11 then
response.write(" <A class=Level1 id=OUT"&x&"t style=""cursor: hand""><img class=LEVEL1 id=OUT"&x&"i src=images/list.gif border=0 align=absMiddle> "&ClassCN&"</a>"&_
" <a href=Class.asp?action=AddClass&Classlevel="&Classlevel&"&ClassID="&rs("ID")&"&ClassName="&ClassCN&"&ClassEN="&ClassEN&">添加子类</a>"&_
" <a href=Class.asp?action=ModifyClass&Classlevel="&Classlevel&"&ClassID="&rs("ID")&"&ClassName="&ClassCN&"&ClassEN="&ClassEN&">修改</a>"&_
" <a href=Class.asp?action=DeleteClass&Classlevel="&Classlevel&"&ClassID="&rs("ID")&"&ClassName="&ClassCN&"&ClassEN="&ClassEN&">删除</a>"&_
" <a href=addtelephone.asp"&TclassString&">添加电话号码</a><br>")
else
response.write(" <A class=Level1 id=OUT"&x&"t style=""cursor: hand""><img class=LEVEL1 id=OUT"&x&"i src=images/list.gif border=0 align=absMiddle> "&ClassCN&"</a>"&_
" <a href=Class.asp?action=AddClass&Classlevel="&Classlevel&"&ClassID="&rs("ID")&"&ClassName="&ClassCN&"&ClassEN="&ClassEN&">添加子类</a>"&_
" <a href=Class.asp?action=ModifyClass&Classlevel="&Classlevel&"&ClassID="&rs("ID")&"&ClassName="&ClassCN&"&ClassEN="&ClassEN&">修改</a>"&_
" <a href=Class.asp?action=DeleteClass&Classlevel="&Classlevel&"&ClassID="&rs("ID")&"&ClassName="&ClassCN&"&ClassEN="&ClassEN&">删除</a>"&_
" <a href=addtelephone.asp"&TclassString&">添加电话号码</a><br>")
end if
response.write("<div class=chn id=OUT"&x&"s style=""DISPLAY: none"">")
select case Classlevel
case 1
rsSmallClass.source = "select * from "&table&" where FatherClass='"&ClassCN&"' and Isfatherclass=false order by id desc"
case 2
rsSmallClass.source = "select * from "&table&" where BigClassCN='"&ClassCN&"' and Isfatherclass=true order by id desc"
case 3
rsSmallClass.source = "select * from "&table&" where FatherClass='"&ClassCN&"' and Isfatherclass=false order by id desc"
case 4
rsSmallClass.source = "select * from "&table&" where FatherClass='"&ClassCN&"' and Isfatherclass=false order by id desc"
case else
rsSmallClass.source = "select * from "&table&" where FatherClass='"&ClassCN&"' and Isfatherclass=false order by id desc"
end select
'response.Write(rsSmallClass.source&"<br>")
rsSmallClass.open rsSmallClass.source,conn,1,1
while not rsSmallClass.eof
if Classlevel<2 then
SubName=rsSmallClass("BigClassCN")
SubNameEN=rsSmallClass("BigClassEN")
else
SubName=rsSmallClass("SmallClassCN")
SubNameEN=rsSmallClass("SmallClassEN")
end if
SclassString=classString(ClassLevel+1,SubName,SubNameEN)
%>
├ <a href="Class.asp?action=Enter&Classlevel=<%=Classlevel+1%>&ClassName=<%=SubName%>" title="点击进入"><%=SubName%></a>
<a href="Class.asp?action=AddClass&Classlevel=<%=Classlevel+1%>&ClassID=<%=rsSmallClass("ID")%>&ClassName=<%=SubName%>&ClassEn=<%=SubNameEN%>">添加子类</a>
<a href="Class.asp?action=ModifyClass&Classlevel=<%=Classlevel+1%>&ClassID=<%=rsSmallClass("ID")%>&ClassName=<%=SubName%>&ClassEn=<%=SubNameEN%>">修改</a>
<a href="Class.asp?action=DeleteClass&Classlevel=<%=Classlevel+1%>&ClassID=<%=rsSmallClass("ID")%>&ClassName=<%=SubName%>&ClassEn=<%=SubNameEN%>">删除</a>
<a href="addtelephone.asp<%=SclassString%>">添加电话号码</a><br>
<%
rsSmallClass.movenext
wend
response.write("</div>")
rsSmallClass.Close
rs.movenext
wend
rs.close
response.Write("<br><br>")
call AddClass("bigclass")
%>
</td>
</tr>
</table>
<%end sub
'--------------------------------------------------------------------
sub ModifyClass(ID,table)
rs.source="select * from "&table&" where id="&ID
'response.Write(rs.source)
rs.open rs.source,conn,1,1
select case Classlevel
case 1
FatherClass=""
ClassCN=rs("BigClassCN")
ClassEN=rs("BigClassEN")
case 2
FatherClass=rs("FatherClass")
ClassCN=rs("BigClassCN")
ClassEN=rs("BigClassEN")
case 3
FatherClass=rs("BigClassCN")
ClassCN=rs("SmallClassCN")
ClassEN=rs("SmallClassEN")
case 4
FatherClass=rs("FatherClass")
ClassCN=rs("SmallClassCN")
ClassEN=rs("SmallClassEN")
end select
%>
<form name="form" method="POST" action="class.asp?action=ModifyClassOk">
<p align="center"><b>修改分类</b></p>
<table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" border="0" cellpadding="0" align="center" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan=3><!--#include file = topMenu.htm--></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" valign="middle" width="153" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';> 上级分类:</td>
<td width="328" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<%=FatherClass%></td>
</tr>
<tr>
<td height="25" width="152" valign="middle" bgcolor="#FFFFFF"> 分类中文名称：</td>
<td height="25" width="326" valign="middle" bgcolor="#FFFFFF">
<input type="text" name="ClassName" size="20" value="<%=ClassCN%>">
</td>
</tr>
<tr>
<td height="25" width="152" valign="middle" bgcolor="#FFFFFF"> 分类特征码：</td>
<td height="25" width="326" valign="middle" bgcolor="#FFFFFF">
<input type="text" name="ClassEN" size="20" value="<%=ClassEN%>">
<input type="hidden" name="ClassID" value="<%=ID%>">
<input type="hidden" name="Classlevel" value="<%=Classlevel%>">
</td>
</tr>
<tr>
<td height="40" align="center" colspan=2 bgcolor="#FFFFFF" width="100%">
<input type="submit" value=" 修 改 " name="B12">
<input type="reset" value=" 还 原 " name="B13">
</td>
</tr>
</table>
</form>
<%
rs.close
end sub
'--------------------------------------------------------------------
sub DeleteClass(ID,table)
'找到该分类下的所有下级分类，并删除。
sql="select * from "&table&" where id="&ID
'response.Write(sql)
rs.open sql,conn,1,1
select case Classlevel
case 1
FatherClass=""
ClassCN=rs("BigClassCN")
'删除一，二级分类 ？三，四级怎么删除呢？
conn.execute("Delete from BigClass where IsFatherClass=false and FatherClass='"&ClassCN&"'")
conn.execute("Delete from telephone where BigClassCN1='"&ClassCN&"'")
case 2
'删除二，三级分类 ？四级怎么删除呢？
FatherClass=rs("FatherClass")
ClassCN=rs("BigClassCN")
conn.execute("Delete from SmallClass where IsFatherClass=true and FatherClass='"&ClassCN&"'")
conn.execute("Delete from telephone where BigClassCN1='"&FatherClass&"' and BigClassCN='"&ClassCN&"'")
case 3
FatherClass=rs("BigClassCN")
ClassCN=rs("SmallClassCN")
'删除三，四级分类
conn.execute("Delete from SmallClass where IsFatherClass=false and FatherClass='"&ClassCN&"'")
conn.execute("Delete from telephone where BigClassCN='"&FatherClass&"' and SmallClassCN='"&ClassCN&"'")
case 4
'删除四级分类
FatherClass=rs("FatherClass")
ClassCN=rs("SmallClassCN")
conn.execute("Delete from telephone where SmallClassCN='"&FatherClass&"' and SmallClassCN1='"&ClassCN&"'")
end select
conn.execute("Delete From "&table&" where ID="&ID)
response.write "<script>alert('删除分类"&ClassCN&"成功！');window.location.href='javascript:history.go(-1)';</script>"
rs.close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -