当前位置:编程学习 > asp >>

客户端CGI——结合javascript、dhtml实现bbs的backoffice(一)。

答案:         客户端CGI——结合javascript、dhtml实现bbs的backoffice(只与服务器交互一次)。
    最近见到很多朋友问有关对form元素的操作问题,下面把我写的一个bbs的backoffice部分帖出来给大家。这个程序实现了对bbs中栏目及其下属论坛的增、删、改名、排序、移动、修改属性等等操作,而只与服务器交互一次,其中用到的表单元素有text , button, submit,select , textarea等,如果你能够全部理解这些代码,那么不敢说你精通javascript和dhtml(我就不敢),最起码可以说你会了。
    因为是草稿,所以未进行程序优化及界面处理,实际上你如果结合css可以把它做得象一个windows程序而不象html页面。另外一条因为我是用ie5来测试的,所以其中一些写法不是很规范,如引用form名时前面没加document , 函数没有返回值等,这些在nescape里都是不允许的,如果你要在nescape里用,请自己把语法规范了。
    由于源代码很长(30000多字节),我将分为几个部分来讲,你把几部分中的代码合在一起存为一个html文件就可以直接运行了。首先需要从数据库中取出记录放到前台javascript数组中,因为着重点是放在前台,所以这里的asp我就不列出来了,只把它生成的html列出来,它的目的是生成数组及初始页面。这部分代码中牵涉到一个生成javascript二维数组的技巧,请大家仔细看一下,这是整个程序的关键所在。下面这段程序生成两个数组,一个是aCategory,代表bbs大的栏目,共有四个;另一个是aForum,代表同栏目相关联的论坛。整个程序的操作实际上就是围绕着两个数组来实现的,同这两个数组相关联的是表单frmManager的两个select :selCategory和selForum。


<script language=javascript>

   //版块数组的构造函数
   function MakeCategory(CategoryID , CategoryName , OrderNum)
     {
       this.CategoryID   = CategoryID ;
       this.CategoryName = CategoryName ;
       this.OrderNum     = OrderNum ;
       return this ;
     }

   //论坛数组的构造函数
   function MakeForum(CategoryID , CategoryName , OrderNum , RootCategoryID , Description , MasterID)
     {
       this.CategoryID     = CategoryID ;
       this.CategoryName   = CategoryName ;
       this.OrderNum       = OrderNum ;
       this.RootCategoryID = RootCategoryID ;
       this.Description    = Description ;
       this.MasterID       = MasterID ;
       return this ;
     }

   //建立版块数组并赋值
  var aCategory = new Array() ;
  aCategory[0] = new MakeCategory(1 , '技术交流' ,1) ;
  aCategory[1] = new MakeCategory(2 , '项目管理' ,2) ;
  aCategory[2] = new MakeCategory(3 , '内部公告' ,3) ;
  aCategory[3] = new MakeCategory(4 , '海阔天空' ,4) ;

   //建立论坛数组并赋值
  var aForum = new Array() ;
  aForum[0] = new MakeForum(5 , 'Asp&Database' ,1 ,1 ,'asp, access,PB, sql.oralce,etc. ',1);
  aForum[1] = new MakeForum(6 , 'Design World' ,2 ,1 ,'photoshop,dreamweaver,flash, 3dmax,etc.',2);
  aForum[2] = new MakeForum(7 , 'Design World' ,3 ,1 ,'photoshop,dreamweaver,flash, 3dmax,etc.',2);
  aForum[3] = new MakeForum(8 , 'Program Language' ,4 ,1 ,'Java, html/dhtml/xml, C/C++, Php/Jsp, vbscript/javascript, etc.',1);
  aForum[4] = new MakeForum(9 , 'System Administration' ,5 ,1 ,'Windows9x/NT/2000, Unix, Linux , etc.',2);
  aForum[5] = new MakeForum(10 , 'Network Security' ,6 ,1 ,'TCP/IP, Socket, hacker, FireWall, Proxy, etc.',1);
  aForum[6] = new MakeForum(11 , 'New Idea' ,7 ,1 ,'Welcome all Creative, innovative and anything different .',1);
  aForum[7] = new MakeForum(12 , '4biz电子商务搜索引擎门户项目' ,1 ,2 ,'E-Commerce Search Engine Portal.',2);
  aForum[8] = new MakeForum(13 , 'Poker Town ' ,2 ,2 ,'Our first Online Game.',1);
  aForum[9] = new MakeForum(14 , 'Vertigine' ,3 ,2 ,'Powerful Vertical Search Engine.',2);
  aForum[10] = new MakeForum(15 , 'EasyCase' ,4 ,2 ,'EasyCase-New modeling tool.',1);
  aForum[11] = new MakeForum(16 , '日常管理' ,1 ,3 ,'Daily Grind.',2);
  aForum[12] = new MakeForum(17 , '临时通知' ,2 ,3 ,'Temporary Notice.',1);
  aForum[13] = new MakeForum(18 , '会议安排' ,3 ,3 ,'Meeting Schedule.',2);
  aForum[14] = new MakeForum(19 , '有感而发' ,4 ,4 ,'Just say it.',1);
  aForum[15] = new MakeForum(20 , '似水流年' ,5 ,4 ,'all that gone with wind.',1);
  aForum[16] = new MakeForum(21 , '谈情说爱' ,6 ,4 ,'Let"s talk about love.',2);
  aForum[17] = new MakeForum(22 , '笑话站' ,7 ,4 ,'Just joke , whatever it is.',1);

</script>

<html>
<head>
<title>版块管理</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<link rel='stylesheet' href=></head>
<body bgcolor='#FFFFFF'  onload='On_Load();'>
<p align=center class=bigtitle>Ematters Board 版块管理</p>
<form name = frmManager method='post' action='ChangeForum.asp'>
<table width=720 border=0 align=center cellspacing=1 cellpadding=4 bgcolor=#000000>
   <tr bgcolor=#ffffff>
      <td width=250 align=left>
        版块名称
      </td>
       <td width=70 align=center>
            
       </td>
      <td width=400 align=left>
        论坛名称
   </tr>
   <tr bgcolor=#ffffff>
      <td  align=left>
        <input type=text name=txtCategoryName size=20 value='请选择版块' disabled>
      </td>
       <td width=120 align=center>
           <input type=button name='btnChangeName' value='修改名称' disabled onclick=On_ChangeName();>
       </td>
      <td  align=left>
        <input type=text name=txtForumName size=20 value='请选择论坛' disabled>
   </tr>
   <tr bgcolor=#ffffff>
      <td align=left>
        <select name=selCategoryName size=10 width=200 onchange='On_CategoryChange();' style='width:120'>
        </select>
        <input type=button name=btnAddCategory value = '增加' onclick='On_AddCategory();'>
        <input type=button name=btnDeleteCategory value='删除' onclick='On_DeleteCategory();'>
      &l

上一个:一个基于ASP的标题广告管理系统(转)(一)
下一个:一个基于ASP的标题广告管理系统(转)(二)

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,