addarticle.vbs

程序设计:Flyangel 用到了vb.net c# asp.net xml等 最大特别是核心功能组件化. 特色: 强大的后台管理功能 支持二级分类 支持匿名投稿 超强用户权限设置

function xzfj()
  dim count_obj,tr_obj,td_obj,file_obj,form_obj,count,table_obj
  dim button_obj,countview_obj
  dim str1,str2
  set form_obj=document.getElementById("tool")
  set fj_obj=document.getElementById("td_fj")
  if fj_obj.innertext="" then
     fj_obj.innertext=""
  end if
  set count_obj=document.getElementById("count_obj")
  if (count_obj is nothing) then
    set count_obj=document.createElement("input")
        count_obj.type="hidden"
        count_obj.id="count_obj"
        count_obj.value=1
        form_obj.appendChild(count_obj)
        count=1
        count_obj.value=1
  else
    set count_obj=document.getElementById("count_obj")
        count=cint(count_obj.value)+1
        count_obj.value=count
  end if
     set div_obj=document.createElement("div")
     div_obj.id="div_"&cstr(count)
      fj_obj.appendchild(div_obj)


str1="<TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0><TR><TD vAlign=bottom align=middle width=90><input type='button' value='隐藏' onclick='vbscript:delthis("+""""+div_obj.id+""""+")' id='button'1 name='button'1 class=unnamed5></TD>"
str2="<TD class=InputAreaCell colSpan=5 rowSpan=2><OBJECT id=doc_html type=text/x-scriptlet height=320  width=""99%"" data=editor.html VIEWASTEXT left:0px; TOP: 0px></OBJECT>"
str3="</TD></TR><TR><TD vAlign=center align=middle height=60><INPUT class=unnamed5 onclick='return handin()' type=button value='保存' name=button_html></TD></TR></TABLE>"
   div_obj.innerHtml=str1+str2+str3
end function

function delthis(id)
dim child,parent
set child_t=document.getElementById(id)
if  (child_t is nothing ) then
 alert("对象为空")
else
call delmain_wer(child_t)
end if
set parent=document.getElementById("td_fj")
if parent.hasChildNodes() =false then
   parent.innerText=""
end if
end function
 function delmain_wer(obj)
   dim length,i,tt
   set tt=document.getElementById("table_obj")
   if (obj.haschildNodes) then
     length=obj.childNodes.length
     for i=(length-1) to 0 step -1
         call delmain_wer(obj.childNodes(i))
         if obj.childNodes.length=0 then
            obj.removeNode(false)
         end if
     next
   else
   obj.removeNode(false)
   end if
  end function