cnbbrclass_list.asp

. 缓存处理技术

<!--#include file="sysconfig.asp"-->
<!--#include file="CheckAdmin.asp"-->
<!--#include file="CnbbrClass_AdminMenu.asp"-->
<%

Dim DispNextClass
DispNextClass=CheckStr(Trim(Request.QueryString("next")))
if not isNum(DispNextClass) then DispNextClass=0

Dim AddClassB_BR
AddClassB_BR=Request.Form("AddClass")
If AddClassB_BR="AddClass" then
   Dim ClassNameBB_R,ClassIDB_B_R
   ClassNameBB_R=CheckStr(Trim(Request.Form("ClassNameBBR")))
   ClassIDB_B_R=Request.Form("ClassIDBBR")
   if Not isNum(ClassIDB_B_R) then Call ALertInfo("对不起，商品分类的所属分类ID有误！请返回！","CnbbrClass_Add.asp",1)
   Dim RsClass
   sql="select max(orderid) as m from aucclass where upid="& ClassIDB_B_R
   set RsClass=server.createobject("ADODB.recordset")
   RsClass.open sql,conn,1,1
   k=RsClass("m")
   if k="" or isNull(k) then
      k=1
   else
      k=k+1
   end if
   RsClass.Close
   Set RsClass=Nothing
   Sql="Select * From AucClass Where ClassID is Null"
   Set Rs=Server.CreateObject("ADODB.RecordSet")
   Rs.Open Sql,conn,1,3
   Rs.AddNew
   Rs("ClassName")=ClassNameBB_R
   Rs("UpID")=ClassIDB_B_R
   Rs("orderID")=k
   Rs("AucAmount")=0
   Rs.Update
   Call AlertInfo("商品分类添加成功！","CnbbrClass_Add.asp",1)

End if

With ReSponse
	.Write "<BR>" & Vbcrlf
	.Write "<table cellpadding=2 cellspacing=1 width=98% border=0 align=center class=tablebg>" & Vbcrlf
	.Write "<form name=from1 method=post action="""">" & Vbcrlf
	.Write "  <tr class=titletd>" & Vbcrlf
	.Write "   <td align=Center>商品分类管理页 ( 现只支持四级分类 )</td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "  <tr class=td>" & Vbcrlf
	.Write "   <td align=Left>" & Vbcrlf

	Sql="Select * From AucClass Where UpId=0 order by orderid"
	Set Rs=Server.CreateObject("ADODB.RecordSet")
	Rs.Open Sql,conn,1,1
	If Rs.Eof then
	   .Write "还没有商品分类，请先<a href=""CnbbrClass_Add.asp"">添加分类</a>！" & Vbcrlf
	Else
	   Do While Not Rs.Eof
	      	.Write "<table cellpadding=0 cellspacing=0 width=99% border=0 align=center>" & Vbcrlf
		.Write "  <tr bgcolor=""#F2F2F2"">" & vbcrlf
		.Write "   <td width=50% align=left height=26><font color=""#6666EE""><b> + </b></font> <a href=""?Next="& Rs("ClassID") &""">"& Rs("ClassName") &"</a></td>" & Vbcrlf
		.Write "   <td align=left><a href=""CnbbrClass_Add.asp?ClassID="& Rs("ClassID") &"&Next="& Rs("ClassID") &""">添加分类</a> | <a href=""CnbbrClass_Edit.asp?ClassID="& Rs("ClassID") &"&Next="& Rs("ClassID") &""">管理分类</a> | <a href=""CnbbrClass_Del.asp?ClassID="& Rs("ClassID") &"&Next="& Rs("ClassID") &""">删除分类</a> | <a href=""CnbbrClass_Order.asp?ClassID="& Rs("ClassID") &"&Next="& Rs("ClassID") &"&editact=EditAct&Direction=Up"">向上</a> | <a href=""CnbbrClass_Order.asp?ClassID="& Rs("ClassID") &"&Next="& Rs("ClassID") &"&editact=EditAct&Direction=Down"">向下</a></td>" & Vbcrlf
		.Write "  </tr>" & Vbcrlf
		if Clng(DispNextClass)=Clng(Rs("ClassID")) then Call RsNextClass(Rs("ClassID"),1)
		.Write "</table>" & Vbcrlf
	   Rs.MoveNext
	   Loop
	End if

	.Write "   </td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "  <tr class=titletd>" & Vbcrlf
	.Write "   <td align=center>&nbsp;</td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "</form>" & Vbcrlf
	.Write "</table>" & Vbcrlf
End With

Function RsNextClass(UpClassID,CurrentDeep)





  if Response.IsClientConnected=0 then Exit Function

  Dim RsNextClassBBR
  Sql="Select ClassName,ClassId From AucClass Where UpID="& UpClassID &" order by orderid"
  Set RsNextClassBBR=Server.CreateObject("ADODB.ReCordSet")
  RsNextClassBBR.Open Sql,Conn,1,1
  If Not RsNextClassBBR.Eof then
     Do While Not RsNextClassBBR.Eof
	Response.Write "  <tr height=22 bgcolor=""#FFFFFF"" onMouseOver=""this.bgColor='#FAFAFA';"" onMouseOut=""this.bgColor='#FFFFFF'"">" & vbcrlf
	Response.Write "   <td align=left>"& Print_Space(CurrentDeep*2) &"┠ "& RsNextClassBBR("ClassName") &"</td>" & Vbcrlf
	Response.Write "   <td align=left><a href=""CnbbrClass_Add.asp?ClassID="& RsNextClassBBR("ClassID") &"&Next="& Rs("ClassID") &""">添加分类</a> | <a href=""CnbbrClass_Edit.asp?ClassID="& RsNextClassBBR("ClassID") &"&Next="& Rs("ClassID") &""">管理分类</a> | <a href=""CnbbrClass_Del.asp?ClassID="& RsNextClassBBR("ClassID") &"&Next="& Rs("ClassID") &""">删除分类</a> | <a href=""CnbbrClass_Order.asp?ClassID="& RsNextClassBBR("ClassID") &"&Next="& Rs("ClassID") &"&editact=EditAct&Direction=Up"">向上</a> | <a href=""CnbbrClass_Order.asp?ClassID="& RsNextClassBBR("ClassID") &"&Next="& Rs("ClassID") &"&editact=EditAct&Direction=Down"">向下</a></td>" & Vbcrlf
	Response.Write "  </tr>" & Vbcrlf
  	Call RsNextClass(RsNextClassBBR("ClassID"),CurrentDeep+1)
     RsNextClassBBR.MoveNext
     Loop
  End If
  RsNextClassBBR.Close
  set RsNextClassBBR=Nothing
End Function
%>