如何制作一个Web日程安排表？_编程10000问_

NEWSZW_HZH_BEGIN-->

chunfeng.asp

' 该页面可以看到已安排了哪些事情 , 并在底部链接可按月前后翻动 .

' 该代码包含获得数据连接的函数 , 如果数据源一旦有变化 , 则只有一个位置需要编辑连接信息 ( 服务器、用户和口令 ).

  <@ LANGUAGE="VBscript"

  ENABLESESSIONSTATE = False ％＞

  ＜％

  ' 表头包括用来启动所有页的文件 , 包括全局函数 .

  Option Explicit

  Response.Buffer = True

  Response.Expires = 0

  sub Dochunfeng(strtitle)

  ％＞

  ＜ html ＞

  　　 ＜ head ＞

  　　 ＜ META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312" ＞

  　　 ＜ title ＞星河影动之精英日程安排＜ %= strtitle % ＞＜ /title ＞

  　　 ＜ /head ＞

  　　 ＜ body bgcolor="white" link="blue" alink="blue" vlink="blue" ＞

  　　 ＜ basefont face="Verdana, Arial" ＞

  　　 ＜ center ＞＜ h1 ＞我的日程安排＜ /h1 ＞

  　　 ＜ h3 ＞＜ %= strtitle % ＞＜ /h3 ＞

  ＜％

  ' 创建数据库连接 .

  end sub

' 调用 Connection 对象 Execute 方法 , 将希望执行的命令的文本字符串传入 , 一旦有了记录集 , 就可在其中循环 .

  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 命令传出新连接 .

  set GetDataConnection = oConn

  end function

  ％＞

Calendar.sql

-- 建立 SQL 服务器端 . 只需保存表明事件性质的一个文本字符串 ( 最长为 100 个字符 ) 即可 .

-- 创建表

  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

[1]