Webスケジュールはどうやって作りますか？

chunfeng.asp'このページでは、何が予定されていますか？下のリンクは月の前後で変更できます。このコードにはデータ接続を獲得する関数が含まれています。データソースが変化したら、接続情報（サーバ、ユーザとパスワード）を編集する必要があります。  <@ LANGUAGE=「VBscript」  ENABLESESSIONSTATE=False%  ＜％   ' テーブルヘッダには、グローバル関数を含むすべてのページを起動するファイルが含まれています。  Option Explicit  Resonse.Buffer=True  Resonse.Expires=0  sub Dochunfeng(sttitle)  ％＞   ＜html＞  ＜ヘッド＞  ＜META HTTP-EQUIV=「Content-Type」CONTENT=「text/」charset=gb 2312">  ＜title＞星河影動のエリートスケジュール＜%=sttitle%＞＜title＞  ＜／head＞  ＜body bg色=「ホワイト」link=「blue」alink=「blue」vlink=「blue」  ＜basefont face=「Vedana、Arial」＞  ＜センター＞＜h 1＞私のスケジュール＜h 1＞  ＜h 3＞＜%=sttitle%＞＜h 3＞  ＜％   ' データベース接続を作成します。  end sub'はConnectionオブジェクトExecute方法を呼び出し、実行したいコマンドのテキスト文字列を入力し、記録セットがあればその中にループすることができます。  function Get Data Connection()  dim oCon，stron  Set oCon=Server.reat Object（「ADODB.C onnect」）  strun=「Provider=SQLOLEDB」Data Source=adspmInitial Catalog=Team Web;  striCon=strinn&&"User Id=Team Web;Password=x"  oConn.Open stron  ' その結果、setコマンドを使って新たな接続が流れます。  set Get Data Connection=oCon  end function  ％＞  Calendar.sql--SQLサーバ端を作成します。イベントの性質を示すテキスト文字列（最大100文字）を保存してください。  -- テーブルを作成  create table Schedule  (   idSchedule slalint identity prmary key，  dtDate smaldetime not null、  vcEvent varrhal(100)not null  )   go  -- 保存プロセス  create procedure Get Schedule（@nMonth tinyint、@nYear smaallint）  as  select idSchedule，convert(varrhar，datepart)'nDay'vcEvent  from Schedule  where datepart(yy，dtDate)=@nYear and datepart(mm，dtDate)=@nMonth  order by datepart(dd，dtDate)  go  create procedure AddEvent(@vcDate varhar(20)@vcEvent varhar(100)  as  insert Schedule  select@vcDate、@vcEvent  go  create procedure DeleteEvent(@idSchedule smaallint)  as  delete Schedule where id Schedule=@idSchedule  go[1]