首先打开数据库：KS_Data/KesionCMS7.mdb

打开KS_Announce表，增加StartDate及CloseDate字段

----------------------------------------------------

后台管理页面修改

修改后台文件：AdminManage/KS.Announce.asp

------------------------------------------------

116行增加：

'增加公告管理显示开始及结束时间

   .echo "          <td align=""center"" class=""sort"">开始时间</td>"

   .echo "          <td align=""center"" class=""sort"">结束时间</td>"

189行增加：

'增加公告管理显示开始及结束时间

       .echo "  <td class='splittd' align='center'><FONT Color=red>" & Node.SelectSingleNode("@startdate").text & "</font> </td>"

       .echo "  <td class='splittd' align='center'><FONT Color=red>" & Node.SelectSingleNode("@closedate").text & "</font> </td>"

220行增加：

'增加公告开始及结束时间的数据库操作

       StartDate   = RSObj("StartDate")

       CloseDate   = RSObj("CloseDate")

288行增加：

'增加开始时间开始

    .echo "          <tr>"

    .echo "            <td height=""25"" align='right' width='85' class='clefttitle'><strong>开始时间:</strong></td>"

    .echo "            <td>"

    .echo "              <input name=""StartDate"" type=""text"" id=""StartDate"" value="""

     If Flag <> "Edit" Then

     .echo (Now)

     Else

     .echo (AddDate)

     End If

    .echo """ Readonly class=""textbox"" style=""width:200px"">"

    .echo "                <a href=""#""popUpCalendar(this,document.AnnounceForm.StartDate, dateFormat,-1,-1)""><img src=""Images/date.gif"" border=""0"" align=""absmiddle"" title=""选择日期""></a>"

    .echo "              </td>"

    .echo "          </tr>"

'增加开始时间结束

'增加结束时间开始

    .echo "          <tr>"

    .echo "            <td height=""25"" align='right' width='85' class='clefttitle'><strong>结束时间:</strong></td>"

    .echo "            <td>"

    .echo "              <input name=""CloseDate"" type=""text"" id=""CloseDate"" value="""

     If Flag <> "Edit" Then

     .echo (Now)

     Else

     .echo (AddDate)

     End If

    .echo """ Readonly class=""textbox"" style=""width:200px"">"

    .echo "                <a href=""#""popUpCalendar(this,document.AnnounceForm.CloseDate, dateFormat,-1,-1)""><img src=""Images/date.gif"" border=""0"" align=""absmiddle"" title=""选择日期""></a>"

    .echo "              </td>"

    .echo "          </tr>"

'增加结束时间结束

365行增加：

'增加开始时间判断

    .echo "      if (form.AddDate.value=='')" & vbCrLf

    .echo "   {" & vbCrLf

    .echo "    alert('请输入公告开始日期!');" & vbCrLf

    .echo "    form.AddDate.focus();" & vbCrLf

    .echo "    return false;" & vbCrLf

    .echo "   }" & vbCrLf

'增加结束时间判断

    .echo "      if (form.AddDate.value=='')" & vbCrLf

    .echo "   {" & vbCrLf

    .echo "    alert('请输入公告结束日期!');" & vbCrLf

    .echo "    form.AddDate.focus();" & vbCrLf

    .echo "    return false;" & vbCrLf

    .echo "   }" & vbCrLf

403行增加：

'增加开始时间及结束时间的数据库操作

   StartDate = Replace(Replace(Request.Form("StartDate"), """", ""), "'", "")

   CloseDate = Replace(Replace(Request.Form("CloseDate"), """", ""), "'", "")

414行增加：

'增加开始时间及结束时间的判断操作

   If StartDate = "" Then Call KS.AlertHistory("公告开始日期不能为空!", -1)

   If CloseDate = "" Then Call KS.AlertHistory("公告结束日期不能为空!", -1)

435行增加：

'增加开始时间及结束时间的数据库操作

      RSObj("StartDate") = StartDate

      RSObj("CloseDate") = CloseDate

468行增加：

'增加开始时间及结束时间的数据库操作

     RSObj("StartDate") = StartDate

     RSObj("CloseDate") = CloseDate

注：我所写的行数与你原始文件的行数不一至，但按从上到下的添加的话是正确的位置，可正常添加修改及删除公告。

----------------------------------------------------

现请大虾帮助制作前台调用方式，如果能够做成模板最好

-----------------------------------------------------

我想要的样式为：

可以自动从数据库中获取符合条件的公告并在前台弹出，有多条数据符合条件就弹出多个窗口。

样图中的效果是我用静态做的，不能自动从数据库中获取

代码如下：