by1455的自留地

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理
(第八周)

在Steering Committee Meeting 会议记录摘要
web设计提出了网站的结构和main page


以JQERUY为基础的框架

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-tranditional.dtd">
<head>
 <meta http-equiv="Content-Type" content="text/html; charset=utf-8">

 <link rel="stylesheet" type="text/css" href="_style/default.css" media="all">
 <script language=javascript src="_style/jquery.js" ></script>
 <script language=javascript src="_style/jquery.tabs.pack.js" ></script>
 <script language=javascript src="_style/interface.js" ></script>
 <script language=javascript src="_style/ourportal.js" ></script>
 <script language=javascript >
 <!--
  var ajaxcount = 0;
  
  jQuery(document).ready(function() {
   
   the code for load webpart 
     
  });

  
 -->
 </script>
 <title>Our Portal</title>
</head>

<body class="internal">

<div class="base" id="home">
<div class="layout">

 <div class="header" id="header">
 </div>
<!-- End of Header -->
 
 <div class="clear"></div>
 
 <div class="content">
  <div class="side" id="side">
   
  </div>
<!-- End of Side -->

  <div class="main" id="main">
   
  </div>
<!-- End of Main -->
  
  <div class="clear"></div>
 </div>
<!-- End of Content -->
 
 <div class="clear"></div>

</div><!-- End of Layout -->
</div><!-- End of Base -->

</body>
</html>

中间层viewlist.aspx 演化到version 0.5
基本上确定由3个部件组成
1:将sharepoint List 转化到 xml 格式
以下是其中一段代码
Function GetListXML(ByVal SPList As SPList, ByVal SPviewName As String, ByVal SPFolder As SPFolder) As String
        Dim buf As String = String.Empty
        Dim ViewGUID As String = SPList.Views(SPviewName).ID.ToString("B").ToUpper()
        Dim ds As New DataSet
        Dim Dt As DataTable = Nothing
        Dim SPQuery As SPQuery = New SPQuery()
        Dim SPListItems As SPListItemCollection
        SPQuery.Folder = SPFolder
        SPListItems = SPList.GetItems(SPQuery, ViewGUID)
        If SPListItems.Count > 0 Then
            Dt = SPListItems.GetDataTable()   
            ds.DataSetName = "List"
            Dt.TableName = "View"
            ds.Tables.Add(Dt)
            buf = ds.GetXml.toString()
        End If
        Return buf
End Function

2:从doc lib 取出XSL 文件
3:把已放在string中的xml和xsl进行转换(transform)得到html

posted on 2007-10-30 18:02  by1455  阅读(768)  评论(0编辑  收藏  举报