begin
      with ADOStoredProc3 do
      begin
        Parameters.ParamByName('@SN').Value := KcbhList[i];
        ExecProc;
      end;
    end;

    ADOQuery1.Close;
    ADOQuery1.Parameters[0].Value := SdXH;
    ADOQuery1.Open;

    Response.Content := PageMain.Content;
    Handled := true;
  end;
end;

procedure TWebModule1.WebModule1ailoginAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  SdVerify := '';
  SdXH := '';
  SdXM := '';

  queryString := 'select count(*) from 選課登記 where datediff(mi,登錄時間,getdate())<30';
  ADOQryTemp.Close;
  ADOQryTemp.SQL.Clear;
  ADOQryTemp.SQL.Add(queryString);
  ADOQryTemp.Open;
  SdTotal := ADOQryTemp.Fields[0].AsString;

  Response.Content := PageLogin.Content;
  Handled := true;
end;

procedure TWebModule1.PageLoginHTMLTag(Sender: TObject; Tag: TTag;
  const TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
  if CompareText(TagString, 'Verify') = 0 then
  begin
    ReplaceText := SdVerify;
  end;

  if CompareText(TagString, 'SdXH') = 0 then
  begin
    ReplaceText := SdXH;
  end;

  if CompareText(TagString, 'SdXM') = 0 then
  begin
    ReplaceText := SdXM;
  end;

  if CompareText(TagString, 'Total') = 0 then
  begin
    ReplaceText := SdTotal;
  end;
end;

procedure TWebModule1.PageMainHTMLTag(Sender: TObject; Tag: TTag;
  const TagString: string; TagParams: TStrings; var ReplaceText: string);
var
  i: Integer;
  LessonList: string;
begin
  if CompareText(TagString, 'LoginSN') = 0 then
  begin
    ReplaceText := LoginSN;
  end;

  if CompareText(TagString, 'SdXH') = 0 then
  begin
    ReplaceText := SdXH;
  end;
  if CompareText(TagString, 'SdXM') = 0 then
  begin
    ReplaceText := SdXM;
  end;
  if CompareText(TagString, 'SdZyBH') = 0 then
  begin
    ReplaceText := SdZyBH;
  end;
  if CompareText(TagString, 'SdZyMc') = 0 then
  begin
    ReplaceText := SdZyMc;
  end;
  if CompareText(TagString, 'SdXb') = 0 then
  begin
    ReplaceText := SdXb;
  end;
  if CompareText(TagString, 'SdNj') = 0 then
  begin
    ReplaceText := SdNj;
  end;

  if CompareText(TagString, 'GongBi1') = 0 then
  begin
    ReplaceText := GongBi1;
  end;
  if CompareText(TagString, 'ZhuanBi1') = 0 then
  begin
    ReplaceText := ZhuanBi1;
  end;
  if CompareText(TagString, 'ZhuanXuan1') = 0 then
  begin
    ReplaceText := ZhuanXuan1;
  end;
  if CompareText(TagString, 'RenXuan1') = 0 then
  begin
    ReplaceText := RenXuan1;
  end;

  if CompareText(TagString, 'KcBH') = 0 then
  begin
    ReplaceText := KcBH;
  end;
  if CompareText(TagString, 'KtH') = 0 then
  begin
    ReplaceText := KtH;
  end;
  if CompareText(TagString, 'KcMc') = 0 then
  begin
    ReplaceText := KcMc;
  end;

  i := 0;
  LessonList := '';

  ADOQuery1.First;
  while not ADOQuery1.Eof do
  begin
    i := i + 1;
    LessonList := LessonList + '<tr>';
    LessonList := LessonList + '<td><p align="center"><input type="checkbox" name="SelectSN" value="' + ADOQuery1.FieldByName('SN').AsString + '"></td>';
    LessonList := LessonList + '<td align="center"><font size="2" ' + '>' + IntToStr(i) + '</font></td>';
    LessonList := LessonList + '<td align="center"><font size="2" ' + '>' + ADOQuery1.FieldByName('課程編號').AsString + '</font></td>';
    LessonList := LessonList + '<td align="left"><font size="2" ' + '>&nbsp;' + ADOQuery1.FieldByName('課程名稱').AsString + '</font></td>';
    LessonList := LessonList + '<td align="center"><font size="2" ' + '>' + ADOQuery1.FieldByName('課堂號').AsString + '</font></td>';
    LessonList := LessonList + '<td align="center"><font size="2" ' + '>' + ADOQuery1.FieldByName('課程課類').AsString + '</font></td>';
    LessonList := LessonList + '<td align="center"><font size="2" ' + '>' + ADOQuery1.FieldByName('學分').AsString + '</font></td>';
    LessonList := LessonList + '<td align="center"><font size="2" ' + '>' + ADOQuery1.FieldByName('上課時間').AsString + '</font></td>';
    LessonList := LessonList + '<td align="left"><font size="2" ' + '>&nbsp;' + ADOQuery1.FieldByName('任課教師').AsString + '</font></td>';
    LessonList := LessonList + '</tr>';

    ADOQuery1.Next;
  end;

  if CompareText(TagString, 'LessonList') = 0 then
  begin
    ReplaceText := LessonList;
  end;
end;

procedure TWebModule1.PageFailHTMLTag(Sender: TObject; Tag: TTag;
  const TagString: string; TagParams: TStrings; var ReplaceText: string);
var
  i: Integer;
  FailList: string;
begin
  if CompareText(TagString, 'SdXH') = 0 then
  begin
    ReplaceText := SdXH;
  end;

  if CompareText(TagString, 'SdXM') = 0 then
  begin
    ReplaceText := SdXM;
  end;

  if CompareText(TagString, 'FailSum') = 0 then
  begin
    ReplaceText := IntToStr(ADOQryTemp.RecordCount);
  end;

  i := 0;
  FailList := '';
  while not ADOQryTemp.Eof do
  begin
    i := i + 1;
    FailList := FailList + '<tr>';
    FailList := FailList + '<td align="center" height="24"><font size="2">' + IntToStr(i) + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('課程編號').AsString + '</font></td>';
    FailList := FailList + '<td align="left"><font size="2">&nbsp;' + ADOQryTemp.FieldByName('課程名稱').AsString + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('課程標志').AsString + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('標準學分').AsString + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('平時').AsString + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('期末').AsString + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('總評').AsString + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('學期').AsString + '</font></td>';
    FailList := FailList + '</tr>';

    ADOQryTemp.Next;
  end;

  if CompareText(TagString, 'FailList') = 0 then
  begin
    ReplaceText := FailList;
  end;
end;

procedure TWebModule1.WebModuleCreate(Sender: TObject);
begin
//ADO
  ADOConnection1 := TADOConnection.Create(nil);
  ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=選課系統;Data Source=dbserver';

  ADOQryTemp := TADOQuery.Create(nil);
  ADOQuery1 := TADOQuery.Create(nil);
  ADOStoredProc1 := TADOStoredProc.Create(nil);
  ADOStoredProc2 := TADOStoredProc.Create(nil);
  ADOStoredProc3 := TADOStoredProc.Create(nil);

  ADOQryTemp.Connection := ADOConnection1;

  ADOQuery1.Connection := ADOConnection1;

  queryString := 'select 選課結果.SN,選課結果.學生編號,選課結果.課程編號,選課結果.課堂號,選課結果.開課專業,選課結果.開課年級,選課結果.學分,選課結果.重修標志,';
  queryString := queryString + ' 選課手冊.任課教師,選課手冊.課程名稱,選課手冊.課程課類,選課手冊.上課時間';
  queryString := queryString + ' from 選課結果信息,選課手冊';
  queryString := queryString + ' where 選課結果.學生編號=:SdXH';
  queryString := queryString + ' and 選課結果.課程編號=選課手冊.課程編號 and 刪除標志=0';
  queryString := queryString + ' and 選課結果.課堂號=選課手冊.課堂號';
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(queryString);

  with ADOStoredProc1 do
  begin
    Connection := ADOConnection1;
    ProcedureName := '選課登錄;1';
    with Parameters.AddParameter do
    begin
      Name := '@學生編號';
      DataType := ftString;
      Direction := pdInput;
    end;
    with Parameters.AddParameter do
    begin
      Name := '@選課ID';
      DataType := ftInteger;
      Direction := pdOutput;
    end;
  end;

  with ADOStoredProc2 do
  begin
    Connection := ADOConnection1;
    ProcedureName := '學生選課;1';
    with Parameters.AddParameter do
    begin
      Name := '@學生編號';
      DataType := ftString;
      Direction := pdInput;
    end;
    with Parameters.AddParameter do
    begin
      Name := '@課程編號';
      DataType := ftString;
      Direction := pdInput;
    end;
    with Parameters.AddParameter do
    begin
      Name := '@課堂號';
      DataType := ftString;
      Direction := pdInput;
    end;
    with Parameters.AddParameter do
    begin
      Name := '@返回碼';
      DataType := ftInteger;
      Direction := pdOutput;
    end;
  end;

  with ADOStoredProc3 do
  begin
    Connection := ADOConnection1;
    ProcedureName := '選課刪除;1';
    with Parameters.AddParameter do
    begin
      Name := '@SN';
      DataType := ftInteger;
      Direction := pdInput;
    end;
  end;

  ADOConnection1.Open;
end;

procedure TWebModule1.WebModuleDestroy(Sender: TObject);
begin
  ADOStoredProc3.Free;
  ADOStoredProc2.Free;
  ADOStoredProc1.Free;
  ADOQryTemp.Free;
  ADOQuery1.Free;
  ADOConnection1.Free;
end;

procedure TWebModule1.WebModuleAfterDispatch(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  ADOQryTemp.Close;
  ADOQuery1.Close;
end;

end.