cls_create_process.asp

一个很好的asp cms管理系统

<%
Option Explicit
'----------------------------------------------------------------------------------
'本页:
'   频道列表生成html页面
'说明:
'
'----------------------------------------------------------------------------------
%>
<!--#include file="inc/Config.class.asp"-->
<!--#include file="inc/DBControl.class.asp"-->
<!--#include file="inc/FunctionLib.class.asp"-->
<!--#include file="inc/Manager.class.asp"-->
<!--#include file="inc/Template.class.asp"-->
<%
Dim Cfg, Db, FLib, Tpl, Admin
Set Cfg = New Config
Set Db = New DBControl
Set FLib = New FunctionLib
Set Admin = New Manager
Set Tpl = New TemplateEngine

If Not Admin.Logined Then
    FLib.Alert "对不起，你已经超时或未登录","./",1
    Response.End
End If

If Not Admin.CheckPopedom("TSYS_GROUP4_CREATE") Then
    FLib.Alert "权限不足", "BACK", 0
    Response.End
ENd If

Dim Class_list,TopNum,TopNum2

Class_list = FLib.SafeSql(Request("Class_list"))
TopNum     = FLib.SafeSql(Request("TopNum"))
TopNum2    = FLib.SafeSql(Request("TopNum2"))
If Class_list="" or TopNum="" or TopNum2="" then
    FLib.Alert "参数不足", "BACK", 0
    Response.End
End If

Db.Open()

dim ClassId,i
ClassId = split(Class_list,",")

For i=0 to Ubound(ClassId)
	call ShowTree(ClassId(i))
Next

Sub ShowTree(parentID)
     Dim sql
     Dim rs
     Set rs = Db.CreateRs()
     sql=Db.SqlTran("SELECT id FROM res_class_list WHERE parent="&parentID)
     rs.open sql,Db.Conn,1,1
     if rs.eof then
           CreateClassHtml(parentID)
     end if
     Do While Not rs.Eof
           Call ShowTree(rs("id"))
           rs.Movenext
     Loop
	 rs.Close
	 set rs = Nothing
End Sub

Sub CreateClassHtml(ClassId)
	Dim sql,rs
	sql = Db.SqlTran("SELECT * FROM res_class_list WHERE id="&ClassId)
	set rs = Db.ExeCute(Sql)
	if not(rs.eof and rs.bof) then
		   response.Write rs("title")&" 频道可以生成列表页 <br>"
		   
	end if
	 rs.Close
	 set rs = Nothing
End Sub
%>