Moondy’s Zone

一位IT民工的点点滴滴…… WEB前端、网页重构、AS3

private function loadxml() {
   var Requesturl:URLRequest=new URLRequest("getinfo.asp?page="+page+"&"+Math.random()* 10);//路径可以是绝对也可以是相对，后面加随机数是解决数据刷新问题。
   loader=new URLLoader(Requesturl);
   loader.addEventListener(Event.COMPLETE,xmlcomplete);
  }
  private function xmlcomplete(e:Event) {
   listxml=new XML(e.target.data);
   add_list();
   listxml.@page>1 ? add_page() : 0;//如果页数大于1，显示分页
  }
private function add_list() {//list_block为一个元件，里面有分别命名为book_title,book_name,book_date的三个动态文本。
   for (var i=0; i<listxml.item.length(); i++) {
    list_block=new list_mc;
    list_block.y=25* i;
    list_block.visible=false;
    list_block.book_title.text=listxml.item.@book_title[i].toString();
    list_block.book_name.text=listxml.item.@book_name[i].toString();
    list_block.book_date.text=listxml.item.@book_date[i].toString();
   }
  }

private function send_book(e:MouseEvent) {
   //在这里可以先对表单进行验证
    var request:URLRequest=new URLRequest("sendinfo.asp");
    var variables:URLVariables=new URLVariables();
    variables.book_name=input_boxs.input_name.text;
    variables.book_qq=input_boxs.input_qq.text;
    variables.book_mail=input_boxs.input_mail.text;
    variables.book_title=input_boxs.input_title.text;
    variables.book_info=input_boxs.input_info.text;
    request.data=variables;
    var loader:URLLoader=new URLLoader();
    loader.dataFormat=URLLoaderDataFormat.TEXT;
    loader.addEventListener(Event.COMPLETE,send_complete);//提交成功后运行send_complete
    loader.load(request);
   }
  }

<% on error resume next
datapath = "date/book_data.mdb"//数据库的路径
set conn=Server.Createobject("adodb.connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;"&amp;"Data Source=" &amp; Server.MapPath(datapath)
conn.open connstr
%>

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from book order by book_id desc"
rs.open sql,conn,1,1
rs.pagesize=8
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
%>
<?xml version="1.0" encoding="utf-8"?>
<guestbook page="<%=pages%>">
<% do while not rs.eof%>
<item book_name="<%=rs("book_name")%>" book_mail="<%=rs("book_mail")%>" book_qq="<%=rs("book_qq")%>" book_title="<%=rs("book_title")%>" book_time="<%=rs("book_time")%>" book_date="<%=rs("book_date")%>" ><![CDATA[<%=rs("book_info")%>]]></item>
<%
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
%></guestbook>

<?xml version="1.0" encoding="utf-8"?>
<guestbook>
<item book_name="姓名" book_mail="16955732@qq.com"
book_qq="16955732" book_title="标题名称" book_time="2009-1-13 下午 10:36:21" book_date="2009-1-13" ><![CDATA[留言内容]]></item>
</guestbook>

<!--#include file="conn.asp"-->
<%
Dim book_name,book_qq,book_mail,book_title,book_info
 book_name=request("book_name")
 book_qq=request("book_qq")
 book_mail=request("book_mail")
 book_title=request("book_title")
 book_info=request("book_info")
 
 set rs = server.createobject("adodb.recordset")
 sql = "select top 1 * from book"
 rs.open sql,conn,1,3
 rs.addnew
 rs("book_name") = book_name
 rs("book_qq") = book_qq
 rs("book_mail") = book_mail
 rs("book_title") = book_title
 rs("book_info") = book_info
 rs.update
 rs.close:set rs = nothing
%>

numChildren : int
//返回此对象的子项数目。
getChildAt(index:int):DisplayObject
//返回位于指定索引处的子显示对象实例。
getChildIndex(child:DisplayObject):int
//返回 DisplayObject 的 child 实例的索引位置。
setChildIndex(child:DisplayObject, index:int):void
//更改现有子项在显示对象容器中的位置。
swapChildren(child1:DisplayObject, child2:DisplayObject):void
//交换两个指定子对象的 Z 轴顺序（从前到后顺序）。
swapChildrenAt(index1:int, index2:int):void
//在子级列表中两个指定的索引位置，交换子对象的 Z 轴顺序（前后顺序）。
removeChildAt(index:int):DisplayObject
//从 DisplayObjectContainer 的子列表中指定的 index 位置删除子 DisplayObject。

置顶：
容器.setChildIndex(对象A,容器.numChildren-1);
置底：
容器.setChildIndex(对象A,0);
插入对象B的前面：
容器.setChildIndex(对象A,容器.getChildIndex(对象B));
插入对象B的后面：
容器.setChildIndex(对象A,容器.getChildIndex(对象B)-1);

//以下代码是放在MOUSE_UP的事件里。
var obj_box:Array=new Array;//新建立数组。
for (var i=0; i<block_box.numChildren; i++) {
var aa:Object={objs:block_box.getChildAt(i),depth_y:block_box.getChildAt(i).y};
obj_box.push(aa);
//这里可以说是一个简单的JSON应用，把对象以及Y值添加到数组里。
}
*****************************************************************************
for (i=0; i<block_box.numChildren; i++) {
block_box.setChildIndex(obj_box.sortOn("depth_y",Array.NUMERIC)[i].objs,i);
//重新排序后再指定索引位置。其中sortOn是按指定的属性来排序。
}