CJJ专用ASP类库中的某个class

  '----******************** TConnString *****************************----
  '数据库连接字符串结构体
  Class TConnString
      Public DBName,DBPath,DBServer,DBUser,DBPass,DBType
  End Class
  '----******************** TConnString *****************************----

  '----********************* TDBOperate *****************************----
  '通用数据库操作类
  Class TDBOperate
      Private cls_oConn,cls_oRS '类私有Connection对象、RecordSet对象
      Private cls_sErrInfo,cls_sConn,cls_sSQL,cls_sURL,cls_sFormAction
      Private cls_iPageSize '分页数
      Private cls_lTotalPage,cls_lTotalRecord,cls_lPageNo

      '类初始化
      Private Sub Class_Initialize()
      End Sub

      '*****************************************
      ' 类型：    属性
      ' 目的：    根据获取的Connection String，创建数据库连接
      ' 输入：    a_sConn:数据类型字符串
      ' 返回：    无
      '*****************************************
      Public Property Let SetConn(a_sConn)
          Dim sObjType


          sObjType = LCase(TypeName(a_sConn))
          If sObjType <> "string" Then
              cls_sErrInfo = cls_sErrInfo & "<li>SetConn：非法的字符串参数</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>数据库连接出错</li>" & Chr(10)
          End If
          On Error Goto 0
      End Property

      '*****************************************
      ' 类型：    属性
      ' 目的：    根据获取的Connection对象，创建数据库连接
      ' 输入：    a_oConn:数据类型字符串
      ' 返回：    无
      '*****************************************
      Public Property Set SetConn(a_oConn)
          Dim sObjType,sConn
          Dim oConnStr

          sObjType = LCase(TypeName(a_oConn))

          Select Case sObjType
          Case "connection"
              '设置Connection对象
              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>数据库连接对象出错，无法创建Connection对象</li>" & Chr(10)
                  Exit Property
              End If

             '设置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>数据库连接出错</li>" & Chr(10)
              End If
              On Error Goto 0
          Case Else
              cls_sErrInfo = cls_sErrInfo & "<li>SetConn：非法的对象参数</li>" & Chr(10)
              Exit Property
          End Select
      End Property

      '*****************************************
      ' 类型：    属性
      ' 目的：    设置RecordSet对象
      ' 输入：    a_sSQL:   SQL语句。
      ' 返回：    无。
      '*****************************************
      Public Property Let SetRS(a_sSQL)
          If LCase(TypeName(cls_oConn)) <> "connection" Then
              cls_sErrInfo = cls_sErrInfo & "<li>非法的Connection对象，无法创建RecordSet对象</li>" & Chr(10)
              Exit Property
          End If

          cls_sSQL = a_sSQL

          '创建RecordSet对象
          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

      '*****************************************
      ' 类型：    属性
      ' 目的：    设置RecordSet对象
      ' 输入：    a_oRS:   RecordSet对象
      ' 返回：    无。
      '*****************************************
      Public Property Set SetRS(a_oRS)
          If LCase(TypeName(a_oRS))<>"recordset" Then
              cls_sErrInfo = cls_sErrInfo & "<li>非法的RecordSet对象</li>" & Chr(10)
              Exit Property
          End If

          '设置RecordSet对象
          Set cls_oRS = a_oRS
      End Property

      '*****************************************
      ' 类型：    属性
      ' 目的：    设置RecordSet对象
      ' 输入：    a_oRS:   RecordSet对象
      ' 返回：   返回一RecordSet对象
      '*****************************************
      Public Property Get GetRS()
          Set GetRS = cls_oRS
      End Property

      '获取Connection对象
      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对象获取失败</li>"
'              Exit Property              
          End If

          Set GetConn = cls_oConn
      End Property

      '返回数据库连接字符串
      Public Property Get ConnStr
          ConnStr = cls_sConn
      End Property

      '设置第个页面显示的数据数
      Public Property Let PageSize(a_iPageSize)
          If Not IsNumeric(a_iPageSize) Then
              cls_sErrInfo = cls_sErrInfo & "<li>无效的分页记录数参数</li>" & Chr(10)
              Exit Property
          End If

          cls_iPageSize = a_iPageSize
      End Property

      '设置SQL语句,用于建立RecordSet对象
      Public Property Let SQL(a_sSQL)
           If IsNone(a_sSQL) Then
              cls_sErrInfo = cls_sErrInfo & "<li>没有设置SQL,无法创建RecordSet对象</li>" & Chr(10)
              Exit Property
          End If

          cls_sSQL = Trim(a_sSQL)
      End Property

      '执行数据操作
      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对象</li>" & Chr(10)
          End If
      End Sub

      '*****************************************
      ' 类型：    属性
      ' 目的：    设定或显示URL。
      ' 输入：    a_sURL:   需要分页的文件地址。
      ' 返回：    无
      '*****************************************
      Public Property Let URL(ByVal a_sURL)
          cls_sURL = a_sURL
      End Property

      '*****************************************
      ' 类型：    过程
      ' 目的：    统计总记录数、计算总页数
      ' 输入：    无
      ' 返回：    无
      '*****************************************
      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>库中无任何记录</li>"
          End If

          '计算总计录数
          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方法进行分页
                  lTotalRecord = cls_oRS.RecordCount
              Case gbl_iPagination_UsePgCount  '使用PageCount方法进行分页
                  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

          '计算总页数
          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

          '获取当前页参数
          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

          '如果没有选择第几页，则默认显示第一页
          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 '当前页参数为空或者非数字，默认将转到第1页
              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

      '*****************************************
      ' 类型：    过程
      ' 目的：    显示分页信息
      ' 输入：    无
      ' 返回：    无
      '*****************************************
      Public Sub Pages(ByVal a_sStr)
          Dim strPages,k,intTemp,intTemp1
          Dim sResult

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

          '计算总页数及总记录数
          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 & "首页 前页 <a href=""" & cls_sURL & cls_lPageNo+1 & """>后页</a> <a href=""" & cls_sURL & cls_lTotalPage & """>末页</a>" & Chr(10)
                  Else
                      If cls_lPageNo >= cls_lTotalPage Then
                          sResult = sResult & "<a href=""" & cls_sURL & "1"">首页</a>  <a href=""" & cls_sURL  & cls_lPageNo -1 & """>前页</a>  " & "后页  末页" & Chr(10)
                      Else
                          sResult = sResult & "<a href=""" & cls_sURL & "1"">首页</a> <a href=""" & cls_sURL  & cls_lPageNo -1 & """>前页</a> " & "<a href=""" & cls_sURL  & cls_lPageNo+1 & """>后页</a> <a href=""" & cls_sURL  & cls_lTotalPage & """>末页</a>" & Chr(10)
                      End If
                  End If
                  sResult = sResult & "　页次：<strong>" & cls_lPageNo & "</strong>/" & cls_lTotalPage & "页 共<strong>" & cls_lTotalRecord & "</strong>条记录　<strong>" & cls_iPageSize & "</strong>条/页</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=""请输入页号,然后回车"">页 " & 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)

          '输出分页信息
          Response.Write("result:" & sResult)
      End Sub

      '类销毁
      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


      '*****************************************
      ' 类型：    过程
      ' 目的：    显示分页类中出现的错误信息
      ' 输入：    无
      ' 返回：    无
      '*****************************************
      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"-->
<% 
  '*****************************************
  '类型：函数
  '目的：报错
  '参数：
  'a_num:报错信息参数
  '*****************************************
  Private Function ShowError(a_Num)
      Dim sErrInfo

      sErrInfo = ""
      Response.Write("<p>Error Number:era_" & a_Num & "</p>")
      Select Case a_Num
      Case "1000"
          sErrInfo = "参数类型不正确，请检查"
      Case "1100"
          sErrInfo = "无法打开数据库连接"
      Case Else
          sErrInfo = "发现未知错误，请与管理员联系"
      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

  '循环读取数据库中的表名
  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>数据库名</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('获取的服务器端的数据错误！');
                return null;
            }

            for (var i=0;i<aElmnts.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>数据库名:<input type="text" name="txtDBName" size="7" value="work"> 数据库用户名:<input type="text" name="DBUserName" size="8" value="sa">数据库密码:<input type="password" name="DBUserPassWord" size="10" value=""> 数据库服务器路径:<input type="text" name="DBServerPath" size="20" value="127.0.0.1"></p>
    <p>数据表名:<select size="1" id="sltTBName" name="sltTBName" onchange="serverResult('getFieldList.asp?n=','sltTBName','fieldcount,tblFields');">
    <option selected="selected">请选择一个表</option>
    <%=sHtml%>
    </select></p>

<div id="fieldcount">表字段个数:<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">字段类型</td>
            <td width="27" align="center">使用</td>
            <td width="18" align="center">只读</td>
            <td align="center" width="80">表单项类型</td>
            <td align="center" width="100">表单项名称</td>
            <td align="center" width="92">表单项描述</td>
            <td align="center" width="87">表单项验证</td>
            <td align="center">表单项默认值</td>
        </tr>
     </thead>
     <tbody>
     </tbody>
    </table>
    <p align="left">需要生成的动态ASP网页类型:<select size="1" name="sltAspType">
    <option value="0">数据添加</option>
    <option value="1">数据编辑</option>
    <option value="2">数据删除</option>
    <option value="3">数据管理</option>
    <option value="4">数据列表</option>
    </select> 文件名:<input type="text" name="txtFileName" size="17" value="">
    文件类型:<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>