CJJ專(zhuān)用ASP類(lèi)庫(kù)中的某個(gè)class

  '----******************** TConnString *****************************----
  '數(shù)據(jù)庫(kù)連接字符串結(jié)構(gòu)體
  Class TConnString
      Public DBName,DBPath,DBServer,DBUser,DBPass,DBType
  End Class
  '----******************** TConnString *****************************----

  '----********************* TDBOperate *****************************----
  '通用數(shù)據(jù)庫(kù)操作類(lèi)
  Class TDBOperate
      Private cls_oConn,cls_oRS '類(lèi)私有Connection對(duì)象、RecordSet對(duì)象
      Private cls_sErrInfo,cls_sConn,cls_sSQL,cls_sURL,cls_sFormAction
      Private cls_iPageSize '分頁(yè)數(shù)
      Private cls_lTotalPage,cls_lTotalRecord,cls_lPageNo

      '類(lèi)初始化
      Private Sub Class_Initialize()
      End Sub

      '*****************************************
      ' 類(lèi)型：    屬性
      ' 目的：    根據(jù)獲取的Connection String，創(chuàng)建數(shù)據(jù)庫(kù)連接
      ' 輸入：    a_sConn:數(shù)據(jù)類(lèi)型字符串
      ' 返回：    無(wú)
      '*****************************************
      Public Property Let SetConn(a_sConn)
          Dim sObjType


          sObjType = LCase(TypeName(a_sConn))
          If sObjType > "string" Then
              cls_sErrInfo = cls_sErrInfo  "li>SetConn：非法的字符串參數(shù)/li>"  Chr(10)
              Exit Property
          End If

          Set cls_oConn = CreateObject("Adodb.Connection")
          On Error Resume Next
          cls_oConn.Open a_sConn
           If Err Then
              Err.Clear
              Set cls_oConn = Nothing
              On error goto 0
              cls_sErrInfo = cls_sErrInfo  "li>數(shù)據(jù)庫(kù)連接出錯(cuò)/li>"  Chr(10)
          End If
          On Error Goto 0
      End Property

      '*****************************************
      ' 類(lèi)型：    屬性
      ' 目的：    根據(jù)獲取的Connection對(duì)象，創(chuàng)建數(shù)據(jù)庫(kù)連接
      ' 輸入：    a_oConn:數(shù)據(jù)類(lèi)型字符串
      ' 返回：    無(wú)
      '*****************************************
      Public Property Set SetConn(a_oConn)
          Dim sObjType,sConn
          Dim oConnStr

          sObjType = LCase(TypeName(a_oConn))

          Select Case sObjType
          Case "connection"
              '設(shè)置Connection對(duì)象
              Set cls_oConn = a_oConn
          Case "tconnstring"
             sConn = ""
             Set oConnStr = a_oConn
             Select Case (oConnStr.DBType)
             Case gbl_iDB_Access
                  sConn = "Provider = micorsoft.jet.oledb.4.0; User ID = "  oConnStr.DBUser  "; Password = "  Replace(oConnStr.DBPass, Chr(0), "")  ";Initial Catalog = "  oConnStr.DBName  "; Data Source = "  SqlLocalName  ";"
              Case gbl_iDB_MsSQL
                  sConn = "Provider = Sqloledb; User ID = "  oConnStr.DBUser  "; Password = "  Replace(oConnStr.DBPass, Chr(0), "")  ";Initial Catalog = "  oConnStr.DBName  "; Data Source = "  oConnStr.DBServer  ";"
              End Select

              If sConn = "" Then
                  cls_sErrInfo = cls_sErrInfo  "li>數(shù)據(jù)庫(kù)連接對(duì)象出錯(cuò)，無(wú)法創(chuàng)建Connection對(duì)象/li>"  Chr(10)
                  Exit Property
              End If

             '設(shè)置Connection連接串值，供ConnStr屬性返回
              cls_sConn = sConn

              Set cls_oConn = CreateObject("Adodb.Connection")
              On Error Resume Next
              cls_oConn.Open sConn
               If Err Then
                  Err.Clear
                  Set cls_oConn = Nothing
                  cls_sErrInfo = cls_sErrInfo  "li>數(shù)據(jù)庫(kù)連接出錯(cuò)/li>"  Chr(10)
              End If
              On Error Goto 0
          Case Else
              cls_sErrInfo = cls_sErrInfo  "li>SetConn：非法的對(duì)象參數(shù)/li>"  Chr(10)
              Exit Property
          End Select
      End Property

      '*****************************************
      ' 類(lèi)型：    屬性
      ' 目的：    設(shè)置RecordSet對(duì)象
      ' 輸入：    a_sSQL:   SQL語(yǔ)句。
      ' 返回：    無(wú)。
      '*****************************************
      Public Property Let SetRS(a_sSQL)
          If LCase(TypeName(cls_oConn)) > "connection" Then
              cls_sErrInfo = cls_sErrInfo  "li>非法的Connection對(duì)象，無(wú)法創(chuàng)建RecordSet對(duì)象/li>"  Chr(10)
              Exit Property
          End If

          cls_sSQL = a_sSQL

          '創(chuàng)建RecordSet對(duì)象
          Set cls_oRS = CreateObject("Adodb.RecordSet")


'          On Error Resume Next
          cls_oRS.Open cls_sSQL,cls_oConn,1,1
'          On Error Goto 0
      End Property

      '*****************************************
      ' 類(lèi)型：    屬性
      ' 目的：    設(shè)置RecordSet對(duì)象
      ' 輸入：    a_oRS:   RecordSet對(duì)象
      ' 返回：    無(wú)。
      '*****************************************
      Public Property Set SetRS(a_oRS)
          If LCase(TypeName(a_oRS))>"recordset" Then
              cls_sErrInfo = cls_sErrInfo  "li>非法的RecordSet對(duì)象/li>"  Chr(10)
              Exit Property
          End If

          '設(shè)置RecordSet對(duì)象
          Set cls_oRS = a_oRS
      End Property

      '*****************************************
      ' 類(lèi)型：    屬性
      ' 目的：    設(shè)置RecordSet對(duì)象
      ' 輸入：    a_oRS:   RecordSet對(duì)象
      ' 返回：   返回一RecordSet對(duì)象
      '*****************************************
      Public Property Get GetRS()
          Set GetRS = cls_oRS
      End Property

      '獲取Connection對(duì)象
      Public Property Get GetConn()
          If cls_sErrInfo > "" Then
              Call ShowError()
          End If

          If LCase(TypeName(cls_oConn))>"connection" Then
              cls_sErrInfo = cls_sErrInfo  "li>Connection對(duì)象獲取失敗/li>"
'              Exit Property              
          End If

          Set GetConn = cls_oConn
      End Property

      '返回?cái)?shù)據(jù)庫(kù)連接字符串
      Public Property Get ConnStr
          ConnStr = cls_sConn
      End Property

      '設(shè)置第個(gè)頁(yè)面顯示的數(shù)據(jù)數(shù)
      Public Property Let PageSize(a_iPageSize)
          If Not IsNumeric(a_iPageSize) Then
              cls_sErrInfo = cls_sErrInfo  "li>無(wú)效的分頁(yè)記錄數(shù)參數(shù)/li>"  Chr(10)
              Exit Property
          End If

          cls_iPageSize = a_iPageSize
      End Property

      '設(shè)置SQL語(yǔ)句,用于建立RecordSet對(duì)象
      Public Property Let SQL(a_sSQL)
           If IsNone(a_sSQL) Then
              cls_sErrInfo = cls_sErrInfo  "li>沒(méi)有設(shè)置SQL,無(wú)法創(chuàng)建RecordSet對(duì)象/li>"  Chr(10)
              Exit Property
          End If

          cls_sSQL = Trim(a_sSQL)
      End Property

      '執(zhí)行數(shù)據(jù)操作
      Public Sub Execute()
          If cls_sErrInfo > "" Then
              ShowError("ul>"  Chr(10)  cls_sErrInfo  "/ul>"  Chr(10))
              Exit Sub
          End If

          If LCase(TypeName(cls_oConn))="connection" Then
              If IsNumeric(cls_iPageSize) Then
                  Set cls_oRS =  CreateObject("Adodb.RecordSet")
                  cls_oRS.Open cls_sSQL,cls_oConn,1,1
              Else
              End If
          Else
              cls_sErrInfo = cls_sErrInfo  "li>非法的Connection對(duì)象/li>"  Chr(10)
          End If
      End Sub

      '*****************************************
      ' 類(lèi)型：    屬性
      ' 目的：    設(shè)定或顯示URL。
      ' 輸入：    a_sURL:   需要分頁(yè)的文件地址。
      ' 返回：    無(wú)
      '*****************************************
      Public Property Let URL(ByVal a_sURL)
          cls_sURL = a_sURL
      End Property

      '*****************************************
      ' 類(lèi)型：    過(guò)程
      ' 目的：    統(tǒng)計(jì)總記錄數(shù)、計(jì)算總頁(yè)數(shù)
      ' 輸入：    無(wú)
      ' 返回：    無(wú)
      '*****************************************
      Private Sub Pagination(ByVal a_sStr)
          Dim iPosition,cls_sErrInfo,i,oRS_Temp,lTotalRecord

          If cls_sErrInfo > "" Then
             Call ShowErrors()
             Exit Sub
          End If

          If cls_oRS.Eof And cls_oRS.Bof Then
             cls_sErrInfo = cls_sErrInfo  "li>庫(kù)中無(wú)任何記錄/li>"
          End If

          '計(jì)算總計(jì)錄數(shù)
          Select Case LCase(TypeName(a_sStr))
          Case "string"
               Set oRS_Temp = cls_oConn.Execute(a_sStr)
               lTotalRecord = CLng(oRS_Temp(0).Value)
          Case "integer"
              Select Case (Int(Trim(a_sStr)))
              Case gbl_iPagination_UseRcdCount '使的RecordCount方法進(jìn)行分頁(yè)
                  lTotalRecord = cls_oRS.RecordCount
              Case gbl_iPagination_UsePgCount  '使用PageCount方法進(jìn)行分頁(yè)
                  lTotalRecord = cls_oRS.PageCount * cls_iPageSize
              End Select
          End Select

          cls_lTotalRecord = lTotalRecord
          If (cls_lTotalRecord=2147483647 AND cls_lTotalRecord>=-2147483648) Then
              cls_lTotalRecord = CLng(cls_lTotalRecord)
          Else
              cls_lTotalRecord = 2147483647
          End If

          If cls_lTotalRecord 0 Then
              cls_lTotalRecord = 0
          End If

          '計(jì)算總頁(yè)數(shù)
          If cls_lTotalRecord Mod cls_iPageSize = 0 Then
              cls_lTotalPage = CLng(cls_lTotalRecord \&;cls_iPageSize * -1)*-1
          Else
              cls_lTotalPage = CLng(cls_lTotalRecord \&;cls_iPageSize * -1)*-1 + 1
          End If

          '獲取當(dāng)前頁(yè)參數(shù)
          cls_lPageNo = Trim(Request.QueryString("Page"))
          If cls_lPageNo = "" Then
              cls_lPageNo = Trim(Request.Form("Page"))
                 If cls_lPageNo = "" Then
                 cls_lPageNo = 1
              End If
          End If

          '如果沒(méi)有選擇第幾頁(yè)，則默認(rèn)顯示第一頁(yè)
          If cls_lPageNo > "" And IsNumeric(cls_lPageNo) Then
              If (cls_lPageNo = 2147483647 And cls_lPageNo>=-2147483648) Then
                  cls_lPageNo = CLng(cls_lPageNo)
              Else
                  cls_lPageNo = 2147483647
                End If
              If (cls_lPageNo=0) Then
                  cls_lPageNo = 1
              End If
          Else '當(dāng)前頁(yè)參數(shù)為空或者非數(shù)字，默認(rèn)將轉(zhuǎn)到第1頁(yè)
              cls_lPageNo=1
          End If

          If (cls_lPageNo > cls_lTotalPage AND cls_lTotalPage>0) Then
              cls_lPageNo = cls_lTotalPage
          End If

          cls_oRS.PageSize     = cls_iPageSize
          cls_oRS.AbsolutePage = cls_lPageNo

          iPosition = InstrRev(cls_sURL,"?")
          cls_sFormAction = cls_sURL
          If iPosition > 0 Then
              cls_sURL = cls_sURL  "Page="
          Else
              cls_sURL = cls_sURL  "?Page="
          End If
     End Sub

      '*****************************************
      ' 類(lèi)型：    過(guò)程
      ' 目的：    顯示分頁(yè)信息
      ' 輸入：    無(wú)
      ' 返回：    無(wú)
      '*****************************************
      Public Sub Pages(ByVal a_sStr)
          Dim strPages,k,intTemp,intTemp1
          Dim sResult

          If Not IsNone(cls_sErrInfo) Then
              Call ShowErrors()
          End If

          '計(jì)算總頁(yè)數(shù)及總記錄數(shù)
          Call Pagination(a_sStr)

          If cls_lTotalPage = 1 Then Exit Sub
          sResult = sResult  "table class=""clsShowPage"">"  Chr(10)
          sResult = sResult  "  tr>"  Chr(10)  "    td>"  Chr(10)
          sResult = sResult  "      table width=""100%"">"  Chr(10)
          sResult = sResult  "         tr>"  Chr(10)  "           td class=""PageText"">"  Chr(10)

          If cls_lTotalPage >= 1 Then

                  If cls_lPageNo = 1 Then
                      sResult = sResult  "首頁(yè) 前頁(yè) a href="""  cls_sURL  cls_lPageNo+1  """>后頁(yè)/a> a href="""  cls_sURL  cls_lTotalPage  """>末頁(yè)/a>"  Chr(10)
                  Else
                      If cls_lPageNo >= cls_lTotalPage Then
                          sResult = sResult  "a href="""  cls_sURL  "1"">首頁(yè)/a>  a href="""  cls_sURL   cls_lPageNo -1  """>前頁(yè)/a>  "  "后頁(yè)  末頁(yè)"  Chr(10)
                      Else
                          sResult = sResult  "a href="""  cls_sURL  "1"">首頁(yè)/a> a href="""  cls_sURL   cls_lPageNo -1  """>前頁(yè)/a> "  "a href="""  cls_sURL   cls_lPageNo+1  """>后頁(yè)/a> a href="""  cls_sURL   cls_lTotalPage  """>末頁(yè)/a>"  Chr(10)
                      End If
                  End If
                  sResult = sResult  "　頁(yè)次：strong>"  cls_lPageNo  "/strong>/"  cls_lTotalPage  "頁(yè) 共strong>"  cls_lTotalRecord  "/strong>條記錄　strong>"  cls_iPageSize  "/strong>條/頁(yè)/td>"  Chr(10)
                  sResult = sResult  "      form name=""gopage"" action="""  cls_sFormAction  """ method=""post"">"  Chr(10)
                  sResult = sResult  "      td> 第"
                  sResult = sResult  "    input type=""text"" name=""pageno"" class=""InputPage"" title=""請(qǐng)輸入頁(yè)號(hào),然后回車(chē)"">頁(yè) "  Chr(10)
                  sResult = sResult  "input type=""submit"" class=""GotoPage"" value=""GO"">/td>/form>/tr>"  Chr(10)
          End If
          sResult = sResult  "      /table>"  Chr(10)  "    /td>"  Chr(10)  "  /tr>"  Chr(10)  "/table>"  Chr(10)

          '輸出分頁(yè)信息
          Response.Write("result:"  sResult)
      End Sub

      '類(lèi)銷(xiāo)毀
      Private Sub Class_Terminate()     
          If LCase(TypeName(cls_oConn))>"nothing" Then
              cls_oConn.Close
              Set cls_oConn = Nothing
          End If

          If LCase(TypeName(cls_oRS))>"nothing" Then
       '       cls_oRS.Close
              Set cls_oRS = Nothing
          End If
      End Sub


      '*****************************************
      ' 類(lèi)型：    過(guò)程
      ' 目的：    顯示分頁(yè)類(lèi)中出現(xiàn)的錯(cuò)誤信息
      ' 輸入：    無(wú)
      ' 返回：    無(wú)
      '*****************************************
      Private Sub ShowErrors()
          If cls_cls_sErrInfo > "" Then
              cls_cls_sErrInfo = "ul>"  Chr(10)  cls_sErrInfo  "/ul>"  Chr(10)
              Response.Write(cls_cls_sErrInfo)
              Response.End
          End If
      End Sub
  End Class
  '----********************* TDBOperate *****************************----

!--#include file="pubdb.asp"-->
% 
  '*****************************************
  '類(lèi)型：函數(shù)
  '目的：報(bào)錯(cuò)
  '參數(shù)：
  'a_num:報(bào)錯(cuò)信息參數(shù)
  '*****************************************
  Private Function ShowError(a_Num)
      Dim sErrInfo

      sErrInfo = ""
      Response.Write("p>Error Number:era_" a_Num "/p>")
      Select Case a_Num
      Case "1000"
          sErrInfo = "參數(shù)類(lèi)型不正確，請(qǐng)檢查"
      Case "1100"
          sErrInfo = "無(wú)法打開(kāi)數(shù)據(jù)庫(kù)連接"
      Case Else
          sErrInfo = "發(fā)現(xiàn)未知錯(cuò)誤，請(qǐng)與管理員聯(lián)系"
      End Select
      sErrInfo = "p>Error Description:" sErrInfo "/p>"
      Response.Write(sErrInfo)
      Response.End
  End Function

  Dim oRS,sHtml

  Call OpenDB()
  Set oRS = oConn.OpenSchema(20)
  sHtml=""
  oRS.MoveFirst

  '循環(huán)讀取數(shù)據(jù)庫(kù)中的表名
  Do While Not oRS.EOF
      If UCase(oRS(3))="TABLE" Then
          sTemp = Trim(oRS(2))
          If sTBName = sTemp Then
              sHtml= sHtml Space(2) "option value=""" sTemp """ selected=""selected"">" sTemp "/option>" Chr(10)
          Else
              sHtml= sHtml Space(2) "option value=""" sTemp """>" sTemp "/option>" Chr(10)
          End If
      End If
      oRS.MoveNext
  Loop
  Call CloseDB()
%>

html>
head>
meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
title>數(shù)據(jù)庫(kù)名/title>
script type="text/javascript">
!--
    var sDstID="";
    function serverResult(a_sUrl,a_sSrcID,a_sDstID) {
       var sValue = document.getElementById(a_sSrcID).value;
       sDstID=a_sDstID;
       if ((sValue == null) || (sValue == "")) return;

       var sUrl = a_sUrl+sValue;
       oXml.open("GET", sUrl,true);
       oXml.onreadystatechange = updateData;
       oXml.send(null); 
    }

    function updateData() {

        var aElmnts = sDstID.split(',');
        var oElmnt = null;
        var aTags=null;
        var oXmlData=null;

        if ((oXml.readyState == 4) (oXml.status == 200)) {
            aTags = oXml.responseXML.documentElement.getElementsByTagName("cjjitem");
            if (aTags.length!=aElmnts.length) {
                alert('獲取的服務(wù)器端的數(shù)據(jù)錯(cuò)誤！');
                return null;
            }

            for (var i=0;iaElmnts.length ;i++ ) {
                oElmnt = document.getElementById(aElmnts[i]);
                oElmnt.innerHTML=aTags[i].firstChild.data;
            }
        }
        return true;
    }

    var oXml = false;
    if (window.ActiveXObject) {
        oXml = new ActiveXObject("Microsoft.XMLHTTP");
    } else if (window.XMLHttpRequest) {
        oXml=new XMLHttpRequest();
    }
//-->
/script>
/head>
body>
form method="POST" name="form1" action="addFormData.asp">
    p>　/p>
    p>數(shù)據(jù)庫(kù)名:input type="text" name="txtDBName" size="7" value="work"> 數(shù)據(jù)庫(kù)用戶(hù)名:input type="text" name="DBUserName" size="8" value="sa">數(shù)據(jù)庫(kù)密碼:input type="password" name="DBUserPassWord" size="10" value=""> 數(shù)據(jù)庫(kù)服務(wù)器路徑:input type="text" name="DBServerPath" size="20" value="127.0.0.1">/p>
    p>數(shù)據(jù)表名:select size="1" id="sltTBName" name="sltTBName" onchange="serverResult('getFieldList.asp?n=','sltTBName','fieldcount,tblFields');">
    option selected="selected">請(qǐng)選擇一個(gè)表/option>
    %=sHtml%>
    /select>/p>

div id="fieldcount">表字段個(gè)數(shù):input type="text" id="txtFldCount" name="txtFldCount" value="0" />/div>
  table id="tblFields" border="1" width="91%">
    thead>
        tr>
            td align="center" width="94">字段名/td>
            td align="center" width="113">字段類(lèi)型/td>
            td width="27" align="center">使用/td>
            td width="18" align="center">只讀/td>
            td align="center" width="80">表單項(xiàng)類(lèi)型/td>
            td align="center" width="100">表單項(xiàng)名稱(chēng)/td>
            td align="center" width="92">表單項(xiàng)描述/td>
            td align="center" width="87">表單項(xiàng)驗(yàn)證/td>
            td align="center">表單項(xiàng)默認(rèn)值/td>
        /tr>
     /thead>
     tbody>
     /tbody>
    /table>
    p align="left">需要生成的動(dòng)態(tài)ASP網(wǎng)頁(yè)類(lèi)型:select size="1" name="sltAspType">
    option value="0">數(shù)據(jù)添加/option>
    option value="1">數(shù)據(jù)編輯/option>
    option value="2">數(shù)據(jù)刪除/option>
    option value="3">數(shù)據(jù)管理/option>
    option value="4">數(shù)據(jù)列表/option>
    /select> 文件名:input type="text" name="txtFileName" size="17" value="">
    文件類(lèi)型:select size="1" name="sltFileType">
    option value="ASP">ASP/option>
    option value="PHP">PHP/option>
    option value="JSP">JSP/option>
    option value="PERL">PERL/option>
    option value="VB.NET">VB.NET/option>
    option value="C#">C#/option>
    /select>
    input type="submit" value="生成文件" name="action">/p>
/form>
/body>
/html>