<%
Function addType(saType,title,l_id)
 dim f_id,tem_fid,level
 IF l_id<>"請選擇類別" Then                                         '得到類別最高級數(shù),以及主ID
 tem_fid=split(l_id,",")
 level=ubound(tem_fid)
 f_id=tem_fid(level)
 mainid=tem_fid(0)
 Else
 level=0
 f_id=0
 mainid=0
 End IF

 set rs=server.createObject("adodb.recordset")
 IF saType="soft" Then
 sql="select * from ZD_softtype"
 Else
 sql="select * from ZD_articletype" 
 End IF
 rs.open sql,conn,1,3
 rs.addnew
 rs("title")=title
 IF l_id<>"請選擇類別" Then 
 rs("listid")=cstr(l_id)&","&rs("id")
 rs("typelevel")=level+1
 Else
 rs("listid")=rs("id")
 rs("typelevel")=level
 End IF
 rs("f_id")=f_id
 IF mainid=0 Then
 mainid=rs("id")
 Else
 rs("mainid")=mainid
 End IF
 rs.update
 rs.close
 set rs=nothing
 call SaveLog(Session("member"),"成功添加類別"&title,now(),"類別添加",getIP(),true)
 addType="<font color=red>"&title&"</font>類別添加成功!"
End Function

Function editeType(saType,t_id,title,l_id)
 dim f_id,tem_fid,level
 IF l_id<>"請選擇類別" Then
 tem_fid=split(l_id,",")
 level=ubound(tem_fid)
 f_id=tem_fid(level)
 mainid=tem_fid(0)
 Else
 level=0
 f_id=0
 mainid=0
 End IF

 set rs=server.createObject("adodb.recordset")
 IF saType="soft" Then
 sql="select * from ZD_softtype where id="&t_id
 Else
 sql="select * from ZD_articletype where id="&t_id 
 End IF
 rs.open sql,conn,1,3
 rs("title")=title
 IF l_id<>"請選擇類別" Then 
 rs("listid")=cstr(l_id)&","&rs("id")
 rs("typelevel")=level+1
 Else
 rs("listid")=rs("id")
 rs("typelevel")=level
 End IF
 rs("f_id")=f_id
 IF mainid=0 Then
 mainid=rs("id")
 Else
 rs("mainid")=mainid
 End IF
 rs.update
 rs.close
 set rs=nothing
 call SaveLog(Session("member"),"成功修改類別"&title,now(),"類別修改",getIP(),true)
 editeType="成功修改<font color=red>"&title&"</font>!"
End Function

Function delType(saType,t_id)
 dim tem_tid,i
 tem_tid=split(t_id,",")
 for i=0 to ubound(tem_tid)
 IF saType="soft" Then
 sql="delete * from ZD_softtype where id="&tem_tid(i)
 Else
 sql="delete * from ZD_articletype where id="&tem_tid(i)
 End IF
 conn.execute(sql)
 delType=delType & "成功刪除類別ID為&nbsp;<font color=red>"&tem_tid(i)&"</font>&nbsp;的類別的數(shù)據(jù)庫記錄!<br>"
 next
 call SaveLog(Session("member"),"成功刪除類別,類別ID為:"&t_id,now(),"類別刪除",getIP(),true)
End Function
%>