用ASP和SQL实现基于Web的事件日历

设计ASP客户端

　　ASP的实现代码如下：

　　header.asp

<@ LANGUAGE="VBSCRIPT" ENABLESESSIONSTATE = False ％＞ ＜％ ' 目的：表头包括用来启动所有页的文件 ' 还包括全局函数 Option Explicit Response.Buffer = True Response.Expires = 0 sub Doheader(strTitle) ％＞ ＜html＞ 　　 ＜head＞ 　　 ＜META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"＞ 　　 ＜title＞Event Calendar - ＜%= strTitle %＞＜/title＞ 　　 ＜/head＞ 　　 ＜body bgcolor="white" link="blue" alink="blue" vlink="blue"＞ 　　 ＜basefont face="Verdana, Arial"＞ 　　 ＜center＞＜h1＞Event Calendar＜/h1＞ 　　 ＜h3＞＜%= strTitle %＞＜/h3＞ ＜％ end sub 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 GetDataConnection = oConn end function ％＞

　　利用ADO，我们可以很容易地将 ASP 页面与 SQL 数据库相连接。首先我们要创建一个到数据库的连接。为了获得记录集，我们要调用 Connection 对象的 Execute 方法，将希望执行的命令的文本字符串传入，一旦有了记录集，就可以在其中循环。header.asp 包含获得数据连接的函数，这意味着如果数据源有变化，我们只有一个位置需要编辑连接信息（服务器、用户和口令）。请注意，作为结果，我们必须在函数的末尾使用 set 命令传出新连接。