chunfeng.asp

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

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

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 = @idSchedulego

[1]