[/u]' 该页面可以看到已安排了哪些事情,并在底部链接可按月前后翻动. ' 该代码包含获得数据连接的函数,如果数据源一旦有变化,则只有一个位置需要编辑连接信息(服务器、用户和口令). <@ 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 ％＞
[u]Calendar.sql
[/u]-- 建立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 [b][1][/b]
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码（独立后台）...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号：苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有
