CJJ專用ASP類庫(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ù)操作類
Class TDBOperate
Private cls_oConn,cls_oRS '類私有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
'類初始化
Private Sub Class_Initialize()
End Sub
'*****************************************
' 類型： 屬性
' 目的： 根據(jù)獲取的Connection String，創(chuàng)建數(shù)據(jù)庫(kù)連接
' 輸入： a_sConn:數(shù)據(jù)類型字符串
' 返回： 無(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
'*****************************************
' 類型： 屬性
' 目的： 根據(jù)獲取的Connection對(duì)象，創(chuàng)建數(shù)據(jù)庫(kù)連接
' 輸入： a_oConn:數(shù)據(jù)類型字符串
' 返回： 無(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
'*****************************************
' 類型： 屬性
' 目的： 設(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
'*****************************************
' 類型： 屬性
' 目的： 設(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
'*****************************************
' 類型： 屬性
' 目的： 設(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
'*****************************************
' 類型： 屬性
' 目的： 設(shè)定或顯示URL。
' 輸入： a_sURL: 需要分頁(yè)的文件地址。
' 返回： 無(wú)
'*****************************************
Public Property Let URL(ByVal a_sURL)
cls_sURL = a_sURL
End Property
'*****************************************
' 類型： 過(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
'*****************************************
' 類型： 過(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),然后回車"">頁(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
'類銷毀
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
'*****************************************
' 類型： 過(guò)程
' 目的： 顯示分頁(yè)類中出現(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 *****************************----
稍提一個(gè)編碼風(fēng)格
個(gè)人覺(jué)得代碼混排是個(gè)雞肋，混排的可讀性差，所以我一般都只是少量混排，盡量將代碼和HTML分離。
<!--#include file="pubdb.asp"-->
<%
'*****************************************
'類型：函數(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ù)類型不正確，請(qǐng)檢查"
Case "1100"
sErrInfo = "無(wú)法打開數(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;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>數(shù)據(jù)庫(kù)名:<input type="text" name="txtDBName" size="7" value="work"> 數(shù)據(jù)庫(kù)用戶名:<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">字段類型</td>
<td width="27" align="center">使用</td>
<td width="18" align="center">只讀</td>
<td align="center" width="80">表單項(xiàng)類型</td>
<td align="center" width="100">表單項(xià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è)類型:<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="">
文件類型:<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>
相關(guān)文章
ASP不能打開注冊(cè)表關(guān)鍵字錯(cuò)誤 ''80004005''的解決方法
這篇文章主要介紹了ASP不能打開注冊(cè)表關(guān)鍵字錯(cuò)誤 '80004005'的解決方法，感興趣的小伙伴們可以參考一下2015-10-10
好久沒(méi)發(fā)布新玩意，完成了tsys的少年不在版
好久沒(méi)發(fā)布新玩意，完成了tsys的少年不在版...2007-01-01
ASPWebPack 代碼 提供下載...2007-09-09
在asp中使用js的encodeURIComponent方法
encodeURIComponent 方法返回一個(gè)已編碼的 URI。如果您將編碼結(jié)果傳遞給 decodeURIComponent，那么將返回初始的字符串2012-03-03
本人從網(wǎng)絡(luò)搜集并整理了一下asp查詢pr值的代碼,實(shí)驗(yàn)并成功的用asp實(shí)現(xiàn)了查詢pr，測(cè)試通過(guò)。2011-02-02
動(dòng)網(wǎng)論壇驗(yàn)證碼改進(jìn) 加法驗(yàn)證碼(ASPJpeg版)
很多站長(zhǎng)都為論壇里太多的垃圾廣告抓狂，本程序就是為了對(duì)付論壇垃圾廣告群發(fā)器的。 將驗(yàn)證碼改為加法運(yùn)算，比如驗(yàn)證碼顯示“25+64等于？”，那么輸入“91”就能通過(guò)驗(yàn)證。2008-11-11
asp下取得客戶端IP地址函數(shù) 轉(zhuǎn)換IP地址函數(shù)
asp下取得客戶端IP地址函數(shù) 轉(zhuǎn)換IP地址函數(shù)...2007-08-08
asp下利用fso實(shí)現(xiàn)文件夾或文件移動(dòng)改名等操作函數(shù)
以后利用fso來(lái)操作文件和文件夾就方便了2008-01-01
不能使用“；文件已在使用中 Microsoft JET Database Engine
不能使用 ''；文件已在使用中。說(shuō)明: 執(zhí)行當(dāng)前 Web 請(qǐng)求期間，出現(xiàn)未處理的異常。請(qǐng)檢查堆棧跟蹤信息，以了解有關(guān)該錯(cuò)誤以及代碼中導(dǎo)致錯(cuò)誤的出處的詳細(xì)信息2012-06-06
簡(jiǎn)單的ASP統(tǒng)計(jì)制作實(shí)例
一個(gè)能對(duì)訪問(wèn)者進(jìn)行編號(hào)、記錄訪問(wèn)次數(shù)、IP、時(shí)間的統(tǒng)計(jì)制作實(shí)例，需要的朋友可以參考下2015-09-09