荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: gary (杀手玫瑰), 信区: Homepage
标  题: 建立基于 Web 的事件日历
发信站: 荔园晨风BBS站 (Wed Sep 26 20:31:49 2001), 转信

http://www.microsoft.com/china/msdn/workshop/calendar.asp

建立基于 Web 的事件日历

Scott Semyan
Microsoft Corporation
2000年7月

摘要:本文说明如何使用 ASP、Internet Information Services 和 Microsoft
SQL Server 建立日历。

 下载本文的示例代码
(如果您无法“在当前位置打开文件”,请试着选择“保存到磁盘”选项。)

目录

简介
SQL 后端
ASP 前端
性能问题
结论



简介
在本文中我将示范如何建立基于 Web 的日历。本文为不熟悉 Active Server
Pages (ASP)、Structured Query Language (SQL) 和 ActiveX? Data Objects
(ADO) 的开发者提供了对数据驱动的 Web 站点的很好介绍。同时也为很有经验的
开发者提供了可伸缩性方面的技巧。



图 1. 基于 Web 的事件日历

什么是基于 Web 的日历?
基于 Web 的日历最近已变得十分流行。起初人们将其日程表保存在个人信息管理
器,如 Microsoft? Outlook? 中。简单地说,这些日历的问题在于它们是属于个
人的,并且很难共享日历供其他人查看或使用。这样就需要有一种方法,要么使您
的个人日历可供其他人查看,要么有一个小组日历可供许多人同时使用。随着
Internet 的兴起 — 任何时间、任何地方均可用 — 基于 Web 的日历已变得可行


用基于 Web 的日历您可以做什么?
基于 Web 的日历允许您与其他人共享您的日程表或管理一组人员的日历。如果您
希望人们可以访问您的日程表,则共享您的日程表是有用的。另一方面,小组日历
对于显示诸如最后期限或里程碑之类的主要事件,或显示谁在什么时候休假都是有
用的。

在这里提供了什么?
在我的公司我们有一个 intranet 站点,在此站点中我们将所有与我们小组有关的
信息,包括预定的休假、里程碑和假日,都集中在一起。为了做到这一点,我建立
了一个简单的基于 Web 的日历,来供任何人查看、添加和/或删除事件(请参见图
 1)。

我在本文中描述了如何使用 Microsoft Internet Information Services (IIS)
和 Microsoft SQL Server? 内的 ASP 页建立一个非常简单的基于 Web 的日历。
在本文的结论部分,我将讨论当扩展此应用程序以支持许多用户时所必须考虑的性
能方面牵涉的问题。对于不熟悉 IIS 和 ASP 的人,本文可视为建立数据驱动 Web
 站点的一个好的教程。


SQL后端

要保存什么数据?
第一个问题是您希望每个日期保存何种数据?就我的日历而言,我仅需保存表明事
件性质的一个文本字符串,最长 100 个字符。可以容易地扩展此数据模型以包括
很多内容,而不是仅仅包括一个文本字符串。

架构

Calendar.sql

SQL 代码包含在以下代码片断中:

--------------------------------------------------
-- 表
--------------------------------------------------

create table Schedule
(
   idSchedule   smallint identity primary key,
   dtDate      smalldatetime not null,
   vcEvent      varchar(100) not null
)
go

--------------------------------------------------
-- 存储过程
--------------------------------------------------

create procedure GetSchedule (@nMonth tinyint, @nYear smallint)
as
   select idSchedule, convert(varchar, datepart(dd, dtDate)) 'nDay',
vcEvent
   from Schedule
   where datepart(yy, dtDate) = @nYear and datepart(mm, dtDate) =
@nMonth
   order by datepart(dd, dtDate)
go

create procedure AddEvent (@vcDate varchar(20), @vcEvent varchar(100))
as
   insert Schedule
   select @vcDate, @vcEvent
go

create procedure DeleteEvent (@idSchedule smallint)
as
   delete Schedule where idSchedule = @idSchedule
go

对于我的 schedule 表,我使用一个标识键(自身递增)为主键,因此我自己无需
创建一个唯一键。我为 idSchedule 选择 smallint,这是因为根据我的需要,我
不会有 32,000 多种不同的事件。而对于大型应用程序,则很可能希望使用一个长
整数来获得多达 20 亿个记录。因为我无需按秒记录时间,所以我将日期保存为
smalldatetime 以节省空间。通常的日期时间会精确到毫秒,占用的空间是精确到
分钟的 smalldatetime 的两倍。大型应用程序可能需要选用其它占用更少空间的
记录日期的方法(例如,用一个整数来表示特定日期,如 1970 年 1 月 1 日之后
的天数)。

对于我的数据,我选择变长字符串 (varchar),最长为 100 个字符。在 SQL
Server 7.0 中您可以使用 nvarchar,它可以容纳 Unicode 字符,从而使您的应
用程序可以在全球使用。然而,创建全球可以使用的 Web 页还有其它问题,但这
超出了本文讨论的范围。

存储过程

有关 SQL 中的存储过程的简短注释:存储过程优于 ASP 中的硬编码的 SQL 有两
个主要原因。第一个原因是,将数据访问代码与表示代码保持分离可确保数据的独
立性。这允许您更改数据结构(及其伴随的存储过程),而无需修改 ASP 页。这
是经典的 Microsoft Windows? DNA n 层体系结构。首选存储过程的第二个原因是
它们比文本查询运行得更快,因为存储过程第一次被调用时就经过分析。因此,随
后的调用不必再分析此过程。

我需要以下三个存储过程来访问和操纵此表中的数据:GetSchedule、AddEvent 和
 DeleteEvent。

对于 GetSchedule 过程,我将希望返回的数据的月份和年份传递给它。下一步,
我使用 Datepart() 函数来获得事件的数字日期。然后在我建立日历的同时使用此
数字来与该月的这一天相匹配。按天对结果进行排序是很重要的,稍后我们就可以
看到这一点。

AddEvent 过程仅向某个给定日期添加文本事件。由于所有的事件都标记有唯一的
日程表 ID,因此我不担心添加重复事件。

从此日程表删除事件仅需唯一日程表 ID。将此 ID 传递给 DeleteEvent 过程即会
删除此事件。

ASP 前端
基本 UI

图 1 显示主要的用户界面 (UI)。设置的 UI 象挂式日历。我的一周从星期天开始
,包含 7 天。为了简易起见,我没有进行繁琐的格式化,但使用样式表可容易地
使此日历看起来更专业。由此主页,用户可以看到哪些事件是已安排的。另外,使
用底部的链接可以在日历中按月前后翻动,或者使用此页左上角的下拉式列表框可
以选择特定的月份和年份。到“添加/删除事件”页的链接就在日历的下方。

ASP 代码基础

header.asp

<%@ LANGUAGE="VBSCRIPT"
   ENABLESESSIONSTATE = False %>
<%
'********************************************************************
' 名称:header.asp
'
' 目的:标头包括用来启动所有页的文件,
'   还包括全局函数
'
'********************************************************************

Option Explicit
Response.Buffer = True
Response.Expires = 0

sub Doheader(strTitle)
%>
   <html>
   <head>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html;
charset=gb2312">
   <title>Event Calendar - <%= strTitle %></title>
   </head>

   <body bgcolor="white" link="blue" alink="blue" vlink="blue">
   <basefont face="Verdana, Arial">

   <center><h1>Event Calendar</h1>
   <h3><%= strTitle %></h3>
<%
end sub

sub DoFooter(strTitle)
%>
   </center>
   </body></html>
<%
end sub

function GetDataConnection()
   dim oConn, strConn
   Set oConn = Server.CreateObject("ADODB.Connection")
   strConn = "Provider=SQLOLEDB; Data Source=adspm; Initial
Catalog=TeamWeb; "
   strConn = strConn & "User Id=TeamWeb; Password=x"
   oConn.Open strConn
   set GetDataConnection = oConn
end function
%>

在我用 ASP 对 Web 站点进行编码时,我喜欢整个站点使用单个标头页。这使我可
以将常用的函数、样式、Microsoft JScript? 等置于一页上。对于此站点,我已
经建立了一个标头页(请参阅前面的代码示例),它为整个站点设定了一些 ASP
设置并包含了我在所有其他页中使用的三个函数:一个 HTML 标头和注脚以及我的
数据连接代码。

我做的第一件事情是将语言设置为 Microsoft Visual Basic? Scripting Edition
 (VBScript) 并禁用会话状态。设置语言不是必需的,但这是一个好主意。另外,
我显式告知 IIS 此站点不使用 ASP 会话状态,这样可以稍微提高性能。我的其他
编码约定是设置 Option Explicit(意思是我必须在使用变量之前 dim 它们)、
缓冲的输出(IIS 将保留输出,然后立即将其全部吐出 — 这可以提高性能),以
及将此页设置为立即到期(以便用户始终可以获得刷新的页面)。

我使用处理所有我的 HTML 标头代码的 Doheader 函数。我传入页名,它同时显示
在 HTML 标题中和页顶部的 H3 标记中。这给予我一个单独的位置来编辑 HTML
BODY 属性、样式等。与 Doheader 函数类似,我喜欢在需要添加一个普通的注脚
(包括联系信息等)时有一个注脚函数。

ADO 使我可以很容易地将我的 ASP 页与我的 SQL 数据库相连接。首先我创建一个
到数据库的连接。为了获得记录集,我调用 Connection 对象的 Execute 方法,
将希望执行的命令的文本字符串传入。一旦有了记录集,就可以在其中循环。
header.asp 包含获得我的数据连接的函数。这意味着如果我的数据源有变化我就
只有一个位置需要编辑连接信息(服务器、用户、口令)。请注意,作为结果我必
须在函数的末尾使用 set 命令传出新连接。

工作原理

Calendar.asp

<!--#includes file="header.asp"-->
<%
'********************************************************************
' 名称:Calendar.asp
'
' 目的:主日历页以日历格式显示事件
'
'********************************************************************

dim dbConn, rs, nDex, nMonth, nYear, dtDate

' 获取当前日期
dtDate = Now()

' 设置月份和年份
nMonth = Request.QueryString("nMonth")
nYear = Request.QueryString("nYear")
if nMonth = "" then nMonth = Month(dtDate)
if nYear = "" then nYear = Year(dtDate)

' 将日期设置为当前月份的第一天
dtDate = DateSerial(nYear, nMonth, 1)

Set dbConn = GetDataConnection
Set rs = dbConn.Execute ("GetSchedule " & nMonth & ", " & nYear)

Doheader(MonthName(Month(dtDate)) & "&nbsp;&nbsp;" & nYear)
%>
<form method="get" name="DateSelect" action="Calendar.asp">

<table width=700>
<tr><td colspan=2><select name="nMonth" onChange="DateSelect.submit();
"><%
      for nDex = 1 to 12
         Response.Write "<option value=""" & nDex & """"
         if MonthName(nDex) = MonthName(nMonth) then
            Response.Write " selected"
         end if
         Response.Write ">" & MonthName(nDex)
      next %></select>&nbsp;
   <select name="nYear" onChange="DateSelect.submit();"><%
      ' 注:已将年份设置为 1999 年和 2000 年之间
      for nDex = 1999 to 2002
         Response.Write "<option value=""" & nDex & """"
         if nDex = CInt(nYear) then Response.Write " selected"
         Response.Write ">" & nDex
      next %></select></td></tr>

<tr><td colspan=2>
   <table border=1 bgcolor="gray" cellpadding=3>
   <tr bgcolor="Blue"><td width=90><font
color="white"><b>Sunday</b></font></td>
      <td width=90><font color="white"><b>Monday</b></font></td>
      <td width=90><font color="white"><b>Tuesday</b></font></td>
      <td width=90><font color="white"><b>Wednesday</b></font></td>
      <td width=90><font color="white"><b>Thursday</b></font></td>
      <td width=90><font color="white"><b>Friday</b></font></td>
      <td width=90><font
color="white"><b>Saturday</b></font></td></tr>
   <tr bgcolor="#ffffc0">
      <%
      ' 添加空单元格,直至到达正确日期为止
      for nDex = 1 to Weekday(dtDate) - 1
         Response.Write "<td bgcolor=""#c0c0c0"">&nbsp;</td>"
      next

      do
         Response.Write "<td valign=""top"">" & Day(dtDate) &
"<br>&nbsp;<br>"

         if not rs.EOF then
            do
               if CInt(rs("nDay")) <> CInt(Day(dtDate)) then exit do

               Response.Write "<font size=""-1""><b>" & rs("vcEvent")
               Response.Write "</b></font><br>"
               rs.MoveNext

               if rs.EOF then exit do
            loop
         end if

            Response.Write "</td>"

            if WeekDay(dtDate) = 7 then
               Response.Write "</tr>" & vbCrLf & "<tr
bgcolor=""#ffffc0"">"
            end if
            dtDate = DateAdd("d", 1, dtDate)
         loop until (Month(dtDate) <> CInt(nMonth))

         ' 如果需要添加空白单元格填充剩余的月份
         if Weekday(dtDate) <> 1 then
            for nDex = Weekday(dtDate) to 7
               Response.Write "<td bgcolor=""#C0C0C0"">&nbsp;</td>"
            next
         end if
         %>
      </tr>
   </table></td></tr>

<tr><td colspan=2 align="center"><b><a
   href="Events.asp?nMonth=<%= nMonth %>&nYear=<%= nYear %>"
   >Add/Remove Events</a></td></tr>

<tr><td><a href="Calendar.asp?nMonth=<%
            if nMonth = 1 then
               Response.Write "12&nYear=" & nYear - 1
            else
               Response.Write nMonth - 1 & "&nYear=" & nYear
            end if %>"><b>&lt;- Previous Month</b></a></td>
      <td align=right><a href="Calendar.asp?nMonth=<%
         if nMonth = 12 then
            Response.Write "1&nYear=" & nYear + 1
         else
            Response.Write nMonth + 1 & "&nYear=" & nYear
         end if %>"><b>Next Month - &gt;</b></a>
      </td>
   </tr>
</table>

</form>

<%
DoFooter("Home")
%>

此项目最具挑战性的部分是建立一个精确的 HTML 日历。有多个算法要确定。例如
,每月有多少天,是否为闰年等。我不做所有这些工作,而是使用 Visual
Basic 内的 date 对象来建立我的日历。

为了设计某个给定月份的日历,我首先为该年该月的第一天创建 date 对象。然后
我使用 DateAdd() 函数只是将日期向前递增,一次一天。接着我可以使用内建方
法来显示它是一周的星期几以及此月何时结束。我还知道这是此月的哪一天,并利
用这一点来与我的日程表信息同步。这使我可以建立显示日历的表。

Event Calendar 页是通过使用在查询字符串中传递的日期和年份动态创建的。如
果未传入月份和年份,则使用当前的月份和年份。

这简化了建立可在月份之间移动的 UI。向后移动一个月的链接是通过调用
Calendar.asp 和提供表明上一月的查询字符串(如果在一月份则递减年份)创建
的。向前移动一个月与此一样容易(首先检查一下看看是否在十二月份)。移动到
特定的月份和年份就更容易了。所有要做的工作是用 Calendar.asp 建立一个表格
作为目标,用我们希望包含的月份和年份填充下拉式列表框,然后将提交事件附加
到下拉式列表框的 onChange() 事件中。这使得页在用户选择新的月份或年份时自
动更新。请注意我是如何使用 MonthName() 函数来列出月份的。

显示事件是十分容易的。首先我使用 ADO 连接到我的 SQL 数据库来抽出给定月份
的事件。我调用我的 GetSchedule 存储过程并传入正在讨论的月份和年份。这提
供给我一个包含事件列表以及它们发生的日子(按天排序)的记录集。

现在,在我建立日历的同时,我仅在其发生的日子显示事件。因为我知道我的事件
是按天排序的,所以我可以做到这一点。



图 2. “添加/删除事件”页

“添加/删除事件”页使用户可以添加新事件或删除现有的事件。首先将日历移动
到适当的月份,然后单击“添加/删除事件”链接可访问此页。此链接是为包括表
明添加/删除事件的月份和年份的查询字符串而创建的。

此月的当前事件列表是通过使用与 Calendar.asp 相同的 GetSchedule 存储过程
生成的。这一次所有我们要做的工作只是在记录集中循环以显示此月的所有事件。


Events.asp

<!--#includes file="header.asp"-->
<%

'********************************************************************
   ' 名称:Events.asp
   '
   ' 目的:用于向事件数据库中添加事件以及从中删除事件。
   '

'********************************************************************

   dim dbConn, rs, nDex, nMonth, nYear, dtDate, dtTemp

   ' 获取当前日期
   dtDate = Now()

   ' 设置月份和年份
   nMonth = Request("nMonth")
   nYear = Request("nYear")
   if nMonth = "" then nMonth = Month(dtDate)
   if nYear = "" then nYear = Year(dtDate)

   Set dbConn = GetDataConnection
   Set rs = dbConn.Execute ("GetSchedule " & nMonth & ", " & nYear)

   Doheader("Add/Remove Events")
%>

   <form method="get" action="AddEvent.asp">

   <br>Currently Scheduled Events for <b><%
    Response.Write MonthName(nMonth) & "&nbsp;&nbsp;" & nYear
    %></b>:<p>
   <table bgcolor="gray" border=1 cellpadding=3>
   <tr bgcolor="Blue"><td><font color="white"><b>Day</b></font></td>
      <td colspan=2><font color="white"><b>Event</b></font></td></tr>

   <% if rs.EOF then
      Response.Write "<tr><td colspan=3 bgcolor=""#ffffc0"">No events
listed</td></tr>"
   end if

   while not rs.EOF
      Response.Write "<tr bgcolor=""#ffffc0""><td>" & rs("nDay") &
"</td><td>"
      Response.Write rs("vcEvent") & "</td><td><input type=""button""
value=""Remove"""
      Response.Write " onClick=""window.location.href='RemoveEvent.
asp?nMonth=" & nMonth
      Response.Write "&nYear=" & nYear & "&idSchedule=" &
rs("idSchedule") & "'""></td></tr>"
      rs.MoveNext
   wend
   %></table>

   <p><br>
   <table bgcolor="gray" border=1 cellpadding=3>
      <tr bgcolor="Blue"><td><font color="white"><b>Add New Event:
</b></font></td></tr>
      <tr bgcolor="#ffffc0"><td>Event:
         <input type="text" size=30 maxlength=100 name="Event"> Day:
<select name="nDay"><%
         ' 将日期设置为当前月份的第一天
         dtDate = DateSerial(nYear, nMonth, 1)

         dtTemp = dtDate
         do
            Response.Write "<option value=""" & Day(dtTemp) & """>" &
Day(dtTemp)
            dtTemp = DateAdd("d", 1, dtTemp)
         loop until (Month(dtTemp) <> CInt(nMonth)) %></select>
         <input type="hidden" name="nMonth" value="<%= nMonth %>">
         <input type="hidden" name="nYear" value="<%= nYear %>">
         <input type="Submit" value="Add Event"></td></tr>
   </table>
   </form>

   <p><a href="Calendar.asp?nMonth=<%= nMonth %>&nYear=<%= nYear
%>">Back to Calendar</a>

<%
   DoFooter("Home")
%>

要添加新事件,用户只是将其事件键入窗体,然后单击提交按钮。通过使用
maxlength 属性将窗体元素长度限制为 100 个字符,以匹配 Schedule 表中的
event 字段。

要删除一个事件,用户单击希望删除的事件旁边的按钮。此按钮调用
RemoveEvent.asp,传入此事件的 idSchedule 以及当前月份和年份,以便可以建
立回到 Events.asp 链接。

AddEvent.asp

<!--#includes file="header.asp"-->
<%

'********************************************************************
   ' 名称:AddEvent.asp
   '
   ' 目的:用于向事件数据库中添加事件。
   '

'********************************************************************

   dim dbConn, strSQL

   Set dbConn = GetDataConnection
   strSQL = "AddEvent '" & Request("nMonth") & "/" & Request("nDay")
   strSQL = strSQL & "/" & Request("nYear") & "', '"
   strSQL = strSQL & Replace(Request("Event"), "'", "''") & "'"

   dbConn.Execute (strSQL)

   Response.Redirect("Events.asp?nMonth=" & Request("nMonth") &
"&nYear=" & Request("nYear"))
%>

AddEvent.asp 页接收由窗体传入的信息并使用 AddEvent 存储过程将其插入到数
据库中。然后此页重定向回到“添加/删除事件”页,因此用户可立即看到他们的
新事件。请注意我是如何使用 Replace() 函数来将单引号 (') 更改为一对单引号
 (' ') 的,SQL 将后者解释为单引号。如果您不这样做,在用户试图输入类似“
All Saint's Day”的事件时您会得到一个错误。

RemoveEvent.asp

<!--#includes file="header.asp"-->
<%

'********************************************************************
   ' 名称:RemoveEvent.asp
   '
   ' 目的:用于从事件数据库中删除事件。
   '

'********************************************************************

   dim dbConn

   Set dbConn = GetDataConnection
   dbConn.Execute ("DeleteEvent " & Request("idSchedule") )

   Response.Redirect("Events.asp?nMonth=" & Request("nMonth") &
"&nYear=" & Request("nYear"))
%>

RemoveEvent.asp 页使用 DeleteEvent 存储过程来删除给定的事件 ID,然后立即
向用户发送回“事件”页。




性能问题
伸展

ASP 的美妙之处在于它使建立 Web 页变得十分容易。然而,如果您希望建立一个
可以适应大量用户的站点,则您需要仔细编码。在本节中我将讨论增强我在这里所
提供的基于 Web 的日历的可伸缩性的各种方法。虽然我说明的这些方法是针对此
应用程序的,但是它们可用于提高任何 ASP Web 站点上的性能。

SQL 优化

提高站点性能的一个简单方法是给 Schedule 表的 date 字段添加一个索引。这将
加速 GetEvents 存储过程,其原因是它在给定日期之间查找事件。

对于小站点,可以将 SQL 与 IIS 安装在同一服务器上。一旦站点开始增长,您就
会希望将 SQL 移动到其自身的服务器上。当站点进一步增长时,您可能希望添加
均指向同一 SQL 服务器的多个 IIS 服务器。如果到 SQL 服务器的通信量过度增
长,您就可以将数据分割到不同的服务器上。您可能想将奇数月份分配到一台服务
器,将偶数月份分配到另一台服务器上。当然,您将希望修改 header.asp 中的
GetDataConnection,以便它为您提供基于此月份的正确连接。

ASP 优化

ASP 解释的主要优化将是高速缓存页面,以便无需每次都对它们进行解释。做到这
一点的最简易的方法是借助 ASP Application 对象。要做到这一点,您只是将页
 HTML 保存到含有月份和年份名称的应用程序变量(例如 Calendar07-2000)中。
然后,当显示 Event Calendar 页时,您首先检查一下看看日历是否已经保存在应
用程序变量中,如果是这样,只需检索它。这省去了到 SQL 框的过程。下面的一
些伪代码显示这是如何工作的:

<<do header>>

ShowCalendar(nMonth, nYear)

<<do Footer>>

sub ShowCalendar(nMonth, nYear)

   if Application("Calendar" & nMonth & "-" & nYear) = "" then
      <<Build Calendar>>
      Application("Calendar" & nMonth & "-" & nYear) = <<Calendar>>
   End if

   Response.Write Application("Calendar" & nMonth & "-" & nYear)
End sub

当然,在 Events.asp 页更改某个月份的事件时,您将需要清空该月份的应用程序
变量,以便反映这些更改。

安全性

有几种方法可实现此站点上的安全性。对于 intranet 站点,基于 Microsoft
Windows NT? 的验证是最容易设置的,其原因是您的用户将很可能已经登录到网络
。您可能希望让所有用户查看 Event Calendar 页,但是只有管理员能访问
Add/Remove Events 页。

如果关心审计,您可以容易地修改 AddEvent 和 DeleteEvent 过程将其信息保存
到审计表中。您还可以确保 IIS 为每个页命中的查询字符串和用户进行日志记录
。然后逐个分析日志以确定何人于何时做了什么,这是很简单的。




结论
在本文中我演示了如何建立基于 Web 的日历。我的基于 Web 的日历是很简单的,
但是可以容易地将其扩展为功能完备的站点。我试图细致地说明创建基于 Web 的
日历所遵循的步骤,以便入门用户可以看到在工作的 ASP、SQL 和 ADO。最后,我
提供了一些有关如何尽可能大地扩展此站点的几点技巧。如果您发现任何错误或者
可能有什么想法能够改进此代码,请给我发送电子邮件,地址为
semyan@hotmail.com。


--
   I Believe I Can ...
_____________________________________________________
欢迎光临我的主页          Netdreams!
Http://netdreams.yeah.net

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.28.85]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店