我们在学习Web开发的时候，怎么弄才能快速设计出Web日程安排表出来呢？下面给大家分享这个网页设计教程，教大家如何快速设计Web日程安排表，具体的操作和相关代码，我们从下面一一为大家道来：
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
go
以上就是小编给大家带来的网页设计教程系列制作Web日程安排表的方法，程序员不用写多少代码就可以完成的，有需要的学习朋友可以参考学习，更多设计制作相关的教程学习可以登录课课家网络学习平台了解具体的详情。
