chunfeng.asp
' 該頁面可以看到已安排了哪些事情,并在底部鏈接可按月前后翻動(dòng).
' 該代碼包含獲得數(shù)據(jù)連接的函數(shù),如果數(shù)據(jù)源一旦有變化,則只有一個(gè)位置需要編輯連接信息(服務(wù)器、用戶和口令).
@ LANGUAGE="VBscript"
ENABLESESSIONSTATE = False ％＞
＜％
' 表頭包括用來啟動(dòng)所有頁的文件,包括全局函數(shù).
Option Explicit
Response.Buffer = True
Response.Expires = 0
sub Dochunfeng(strtitle)
％＞
＜html＞
＜head＞
＜META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"＞
＜title＞星河影動(dòng)之精英日程安排＜%= strtitle %＞＜/title＞
＜/head＞
＜body bgcolor="white" link="blue" alink="blue" vlink="blue"＞
＜basefont face="Verdana, Arial"＞
＜center＞＜h1＞我的日程安排＜/h1＞
＜h3＞＜%= strtitle %＞＜/h3＞
＜％
' 創(chuàng)建數(shù)據(jù)庫連接.
end sub
' 調(diào)用Connection 對(duì)象 Execute 方法,將希望執(zhí)行的命令的文本字符串傳入,一旦有了記錄集,就可在其中循環(huán).
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
' 作為結(jié)果,使用set命令傳出新連接.
set GetDataConnection = oConn
end function
％＞
Calendar.sql
-- 建立SQL服務(wù)器端.只需保存表明事件性質(zhì)的一個(gè)文本字符串(最長(zhǎng)為100個(gè)字符)即可.
-- 創(chuàng)建表
create table Schedule
(
idSchedule smallint identity primary key,
dtDate smalldatetime not null,
vcEvent varchar(100) not null
)
go
-- 存儲(chǔ)過程
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 [1]
