'**************询问是否删除********************
Sub Askdel(url)
    a=MsgBox ("真的要删除吗？",32+4,"确认是否删除")
	if a=6 then
       location.href=url
    end if
End Sub



'---------全选-------------------------------
Function chkall(n)
   If n<=1 Then
      If chkselectform.chkallbox.checked=True Then
         chkselectform.chk_ids.checked=True
      Else 
	     chkselectform.chk_ids.checked=False 
      End If 
   Else 
      If chkselectform.chkallbox.checked=True Then
         For i=0 To chkselectform.chk_ids.length-1
	        chkselectform.chk_ids(i).checked=True
         Next 
      Else 
         For i=0 To chkselectform.chk_ids.length-1
	        chkselectform.chk_ids(i).checked=False 
         Next 
      End If 
   End If 
End Function 


'--------------------------------------------------------

Function InBClass(inBClassData,inSClassData,inMClassData)
      inBData="<select name='BClass' size=10  onchange='vbscript:InSClass MyForm.BClass.value,"""&inSClassData&""","""&inMClassData&"""'>"
	  inBData=inBData&"<option value=-1 selected>——请选择一级分类——"
	  inBData=inBData&inBClassData
	  inBData=inBData&"</select>"
      BClassArea.innerhtml=inBData
End Function 

Function InSClass(OfID,inSClassData,inMClassData)
   optData=""
   If CLng(OfID)<>-1 Then    
      GetSData=Split(inSClassData,"┼")
      For i=0 To UBound(GetSData)
         tmp=Split(GetSData(i),"∷")
	     tmpOfID=tmp(0)
	     If CLng(tmpOfID)=CLng(OfID) Then
	        Exit for
	     End If 
      Next    
      SelectData=GetSData(i)        '1∷4⊙按时克当量了‖5⊙打开了解立刻
	  tmpsz1=Split(SelectData,"∷")
      tmpdata=tmpsz1(1)             '4⊙按时克当量了‖5⊙打开了解立刻 
      tmpsz2=Split(tmpdata,"‖")       
      For i=0 To UBound(tmpsz2)
         tmpopt=Split(tmpsz2(i),"⊙")
         tmpMyID=tmpopt(0)
	     tmpMyName=tmpopt(1)
         optData=optData&"<option value='"&tmpMyID&"'>"&tmpMyName
      Next
   End If 
   inSData="<select name='SClass' size=10 onchange='vbscript:InMClass MyForm.SClass.value,"""&inMClassData&"""'>"
   inSData=inSData&"<option value=-1>——请选择二级分类——"
   inSData=inSData&optData
   inSData=inSData&"</select>"
   SClassArea.innerhtml=inSData   
   MClassArea.innerhtml="<select name='MClass' size=10><option value=-1>——请选择三级分类——</select>"
End Function 

Function InMClass(OfID,inMClassData)
   optData=""
   If CLng(OfID)<>-1 Then    
      GetMData=Split(inMClassData,"┼")
      For i=0 To UBound(GetMData)
         tmp=Split(GetMData(i),"∷")
	     tmpOfID=tmp(0)
	     If CLng(tmpOfID)=CLng(OfID) Then
	        Exit for
	     End If 
      Next    
      SelectData=GetMData(i)        '1∷4⊙按时克当量了‖5⊙打开了解立刻
	  tmpsz1=Split(SelectData,"∷")
      tmpdata=tmpsz1(1)             '4⊙按时克当量了‖5⊙打开了解立刻 
      tmpsz2=Split(tmpdata,"‖")       
      For i=0 To UBound(tmpsz2)
         tmpopt=Split(tmpsz2(i),"⊙")
         tmpMyID=tmpopt(0)
	     tmpMyName=tmpopt(1)
         optData=optData&"<option value='"&tmpMyID&"'>"&tmpMyName
      Next      
   End If 
   inMData="<select name='MClass' size=10>"
   inMData=inMData&"<option value=-1>——请选择三级分类——"
   inMData=inMData&optData
   inMData=inMData&"</select>"
   MClassArea.innerhtml=inMData 
End Function