save_type.asp

前台完全分离了HTML与ASP

<%
Function addType(saType,title,l_id)
 dim f_id,tem_fid,level
 IF l_id<>"请选择类别" Then                                         '得到类别最高级数,以及主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;的类别的数据库记录!<br>"
 next
 call SaveLog(Session("member"),"成功删除类别,类别ID为:"&t_id,now(),"类别删除",getIP(),true)
End Function
%>