一段电影模块整体生成的代码，贴着备份，改改应该可以实现文章系统的整体生成。
case"createpage"
if len(list)>0 then
'悟空 重新获取listid,将子栏目包括进去
set rs=conn.execute("select listid from king__movie_list where listid in (" & list & ") or listid1 in (" & list & ");")
list = ""
if not rs.eof and not rs.bof then
data = rs.getrows()
for i=0 to ubound(data,2)
if len(list)>0 then
list = list & "," & data(0, i)
else
list = data(0,i)
end if
next
end if
rs.close
set rs = nothing
'---------------------------
set rs=conn.execute("select kid from king__movie_page where listid in ("&list&");")
if not rs.eof and not rs.bof then
