国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP，暢享免費電子書等14項超值服

開通VIP

首頁

好書

留言交流

下載APP

聯(lián)系客服
[開發(fā)中]ASP數(shù)據(jù)庫封裝驅(qū)動。 Drunk Dream-


思路：
原來的方案：
　　我們是首先根據(jù)數(shù)據(jù)庫的字段和實際需求設(shè)計Web表單，然后從Web表單獲取提交的數(shù)據(jù)集，然后在服務(wù)段將提交的數(shù)據(jù)集和數(shù)據(jù)庫的字段一一對應(yīng)，然后再一一作過濾和處理……
現(xiàn)在的方案：
　　直接從數(shù)據(jù)庫生成框架緩存，將每一個表的字段及其相關(guān)屬性（類型要求、必填、長度、默認值……）儲存在全局數(shù)組中。當外部提交某張表單時，從對應(yīng)的全局數(shù)組中生成相應(yīng)的Dictionary對象，然后依據(jù)這個和數(shù)據(jù)表完全映射的Dictionary遍歷獲取對應(yīng)的提交值，由此替代了一一對應(yīng)和讀取的繁瑣過程。
　　實現(xiàn)部分被簡化為：

for i=0 to Ubound(KeysArray)-1
　　Key=KeysArray(i,0)
　　Item=Request(md5(Key))
　　objDict.Add Key,Item
next

　　也就是說，這是和傳統(tǒng)方案完全相反的思路，這個思路保證了所獲取的數(shù)據(jù)一定是數(shù)據(jù)庫所需要的數(shù)據(jù)，數(shù)據(jù)庫要求的數(shù)據(jù)類型或者必須為空的數(shù)據(jù)如果出現(xiàn)異常則必然會出錯，等等。
　　最后在實現(xiàn)表單處理的語句簡化為，其他的一切操作都被封裝在類中：

Call System_Initialize()
Dim objUser ‘新建對象
Set objUser = new TUser
　　objUser.Table="Comm_User" ‘指定數(shù)據(jù)表
　　If objUser.Creat Then ‘建立表的Dictionary對象
　　　　objUser.ValidAndTransfer() ‘獲取數(shù)據(jù)、驗證并轉(zhuǎn)入最終的數(shù)據(jù)驅(qū)動層
　　　　objUser.Update() ‘更新該表數(shù)據(jù)
　　End IF
Set objUser = nothing
Call System_Terminate()

　　與之配套的另外一個方面是從緩存的數(shù)據(jù)表框架中按照實際表單的需要自動生成Web表單，顯示在客戶端?！?br>

在SQL Server中遍歷當前數(shù)據(jù)庫的所有用戶表

SELECT Table_name
FROM INFORMATION_SCHEMA.TABLES
WHERE (TABLE_TYPE <> ‘VIEW‘)

Table_name：表名；
TABLE_TYPE：表的類型；

參見：SQL Server聯(lián)機手冊，T-SQL參考，信息架構(gòu)視圖。
又及：ACCESS下也可實現(xiàn)相關(guān)的功能[1]

在SQL Server中遍歷指定表的字段及屬性

SELECT Column_name,IS_NULLABLE,DATA_TYPE
FROM INFORMATION_SCHEMA.COLUMNS
WHERE (TABLE_NAME = ‘myTableName‘)

TABLE_NAME：表名；
Column_name：列名；
IS_NULLABLE：是否允許為空；
DataType：系統(tǒng)數(shù)據(jù)類型；
ORDINAL_POSITION：列標識號；
COLUMN_DEFAULT：列的默認值；
CHARACTER_OCTET_LENGTH：以字節(jié)為單位的最大長度，適于二進制數(shù)據(jù)、字符數(shù)據(jù)，或者文本和圖像數(shù)據(jù)。否則，返回 NULL。

從數(shù)據(jù)庫生成當前庫所有表全局Array緩存

　　strSQL="SELECT Table_name FROM INFORMATION_SCHEMA.TABLES WHERE (TABLE_TYPE<>‘VIEW‘)"
　　Set objRS_table= objConn.Execute(strSQL)
　　do while not objRS_table.EOF

　　　　strSQL="SELECT Column_name,DATA_TYPE,IS_NULLABLE,COLUMN_DEFAULT,CHARACTER_OCTET_LENGTH FROM INFORMATION_SCHEMA.COLUMNS WHERE (TABLE_NAME = ‘"& objRS_table("Table_name") &"‘)"
　　　　set objRS_column=server.createobject("adodb.recordset")
　　　　objRS_column.open strSQL,objConn,1,1
　　　　Dim i,TableTemp
　　　　i=0
　　　　ReDim TableTemp(objRS_column.RecordCount,4)

　　　　do while not objRS_column.EOF
　　　　　　TableTemp(i,0)=objRS_column(0)
　　　　　　TableTemp(i,1)=objRS_column(1)
　　　　　　TableTemp(i,2)=objRS_column(2)
　　　　　　TableTemp(i,3)=objRS_column(3)
　　　　　　TableTemp(i,4)=objRS_column(4)
　　　　　　i=i+1
　　　　objRS_column.movenext
　　　　loop
　　　　Set objRS_column= nothing
　　　　
　　　　application(objRS_table(0))=TableTemp

　　objRS_table.movenext
　　loop


數(shù)據(jù)驅(qū)動層

<%
‘******************************************************
‘底層A：對DataBase操作的封裝。
‘返回錯誤代碼頭：DB
‘******************************************************
Class TDBDriver
　　Public objDict

　　Private Table
　　Private KeysArray
　　Private ItemArray

　　Private objRS

　　Private strSQL
　　Private SQL_Start
　　Private SQL_Main
　　Private SQL_Join
　　Private SQL_Where
　　Private SQL_Order
　　Private SQL_Group

　　Public PageSize

　　Private ErrorMsg

　　‘插入一條數(shù)據(jù)或者更新指定的條目
　　Public Function Update()
　　　　If objDict.Item(KeysArray(0,0))="" Then
　　　　　　SQL_Start="Insert into "& Table
　　　　　　SQL_Main=" ("
　　　　　　　　‘從有數(shù)據(jù)的部分對應(yīng)更新入數(shù)據(jù)庫
　　　　　　　　For i=1 to objDict.Count-1
　　　　　　　　　　If Not ItemArray(i)="" Then
　　　　　　　　　　　　SQL_Main= SQL_Main & KeysArray(i,0) &","
　　　　　　　　　　End If
　　　　　　　　Next
　　　　　　　　‘去掉最后一個“,”
　　　　　　　　SQL_Main=Left(SQL_Main,Len(SQL_Main)-1)

　　　　　　　　SQL_Main= SQL_Main &") Values("
　　　　　　　　For i=1 to objDict.Count-1
　　　　　　　　　　If Not ItemArray(i)="" Then
　　　　　　　　　　　　If KeysArray(i,1)="int" Then
　　　　　　　　　　　　　　SQL_Main= SQL_Main & objDict.Item(KeysArray(i,0))
　　　　　　　　　　　　Else
　　　　　　　　　　　　　　SQL_Main= SQL_Main &"‘"& objDict.Item(KeysArray(i,0)) &"‘"
　　　　　　　　　　　　End if
　　　　　　　　　　　　SQL_Main= SQL_Main &","
　　　　　　　　　　End If
　　　　　　　　Next
　　　　　　　　‘去掉最后一個“,”
　　　　　　　　SQL_Main=Left(SQL_Main,Len(SQL_Main)-1)
　　　　　　SQL_Main= SQL_Main &")"
　　　　Else
　　　　　　SQL_Start="Update "& Table &" Set "
　　　　　　For i=1 To objDict.Count-1
　　　　　　　　If Not ItemArray(i)="" Then
　　　　　　　　　　SQL_Main= SQL_Main &" ("& KeysArray(i,0) &"="
　　　　　　　　　　If KeysArray(i,1)="int" Then
　　　　　　　　　　　　SQL_Main= SQL_Main & objDict.Item(KeysArray(i,0))
　　　　　　　　　　Else
　　　　　　　　　　　　SQL_Main= SQL_Main &"‘"& objDict.Item(KeysArray(i,0)) &"‘"　　
　　　　　　　　　　End if
　　　　　　　　　　SQL_Main= SQL_Main &"),"
　　　　　　　　End IF
　　　　　　Next
　　　　　　‘去掉最后一個“,”
　　　　　　SQL_Main=Left(SQL_Main,Len(SQL_Main)-1)
　　　　　　SQL_Where=" Where "& KeysArray(0,0) &"="& objDict.Item(KeysArray(0,0))
　　　　End if

　　　　strSQL=SQL_Start & SQL_Main & SQL_Where
　　　　‘objConn.Execute(strSQL)
　　　　Response.Write strSQL
　　　　Update=True
　　End Function

　　‘刪除數(shù)據(jù)
　　Public Function Delete()
　　　　If objDict.Item(KeysArray(0,0))="" Then Call ShowError(ErrorMsg,01) :Exit Function
　　　　SQL_Start="Delete From "& Table
　　　　SQL_Where=" Where "& KeysArray(0,0) &"="& objDict.Item(KeysArray(0,0))
　　　　strSQL=SQL_Start & SQL_Where
　　　　objConn.Execute(strSQL)

　　　　Delete=True
　　End Function

　　‘返回單條數(shù)據(jù)
　　Public Function ReturnSingle()
　　　　If objDict.Item(KeysArray(0,0))="" Then Call ShowError(ErrorMsg,02) :Exit Function
　　　　SQL_Start="Select * From "& Table
　　　　SQL_Where=" Where "& KeysArray(0,0) &"="& objDict.Item(KeysArray(0,0))
　　　　strSQL=SQL_Start & SQL_Where
　　　　Set objRS =objConn.Execute(strSQL)
　　　　If objRS.EOF or objRS.BOF Then
　　　　　　Call ShowError(ErrorMsg,03)
　　　　Else
　　　　　　For i=1 To Ubound(objDict.Items)-1
　　　　　　　　objDict.Item(KeysArray(i,0)) = objRS(i)
　　　　　　Next
　　　　End IF
　　　　Set objRS =Nothing
　　　　ReturnSingle=objDict
　　End Function

　　‘返回分頁數(shù)據(jù)
　　‘需要繼承回傳的數(shù)據(jù)
　　Public Function ReturnList()
　　　　‘必須指定頁長、頁數(shù)
　　　　If PageSize="" Then Call ShowError(ErrorMsg,0) :Exit Function

　　End Function

　　Public Function Transfer(ExternalDict)
　　　　Set objDict=ExternalDict.objDict
　　　　‘參數(shù)導(dǎo)入，只是為了書寫方便
　　　　Table=ExternalDict.Table
　　　　KeysArray=ExternalDict.KeysArray
　　　　ItemArray=objDict.Items
　　End Function

　　Private Sub Class_Initialize()
　　　　ErrorMsg="DB"
　　　　‘傳入FormDriver處理過的Dictionary
　　End Sub

　　Private Sub Class_Terminate()
　　　　‘返回FormDriver處理過的Dictionary
　　End Sub
End Class
‘******************************************************


‘******************************************************
‘底層B：對Dictionary操作的封裝。
‘返回錯誤代碼頭：DC
‘******************************************************
Class TDictionaryDriver
　　Public Table
　　Public KeysArray

　　Public objDict
　　Private Key
　　Private Item

　　Private ErrorMsg

　　‘根據(jù)系統(tǒng)緩存導(dǎo)入框架
　　‘報錯信息
　　Public Function Creat()
　　　　‘必須指定數(shù)據(jù)表
　　　　If Table="" Then Call ShowError(ErrorMsg,01) :Exit Function
　　　　‘必須是系統(tǒng)緩存中已經(jīng)存在的數(shù)據(jù)表
　　　　If IsNull(application(Table)) Then Call ShowError(ErrorMsg,02) :Exit Function
　　　　‘導(dǎo)入數(shù)據(jù)表框架
　　　　KeysArray=application(Table)
　　End Function

　　‘根據(jù)數(shù)據(jù)表框架-獲取[過濾]數(shù)據(jù)
　　‘通過加密的方案解決表單字段和數(shù)據(jù)庫字段的異步問題
　　Public Function GetRequest()
　　　　for i=0 to Ubound(KeysArray)-1
　　　　　　Key=KeysArray(i,0)
　　　　　　Item=Request(md5(Key))
　　　　　　‘Item=Request.QueryString(md5(Key))
　　　　　　‘Item=Request.Form(Key)
　　　　　　objDict.Add Key,Item
　　　　next
　　　　‘形成Dictionary對象
　　　　GetRequest=True
　　End Function

　　‘根據(jù)數(shù)據(jù)表框架-效驗獲取的數(shù)據(jù)
　　Public Function Valid()
　　　　‘注入轉(zhuǎn)換和過濾
　　　　‘必填項
　　　　If objDict.Item(KeysArray(0,0))="" Then
　　　　　　‘對于新增數(shù)據(jù)，必填項目不能為空
　　　　　　‘允許更新操作跳過必填項目遍歷進行部分更新
　　　　　　for i=1 to Ubound(KeysArray)-1 ‘跳過主鍵遍歷
　　　　　　　　If Trim(KeysArray(i,2))="No" And objDict.Item(KeysArray(i,0))="" Then Call ShowError(ErrorMsg,03) :Exit Function
　　　　　　next
　　　　End IF
　　　　‘字段類型要求
　　　　for i=0 to Ubound(KeysArray)-1
　　　　　　‘效驗數(shù)據(jù)類型要求
　　　　　　If KeysArray(i,1)="int" Then
　　　　　　　　If IsNumeric(objDict.Item(KeysArray(i,0)))=0 Then Call ShowError(ErrorMsg,04) :Exit Function
　　　　　　　　If objDict.Item(KeysArray(i,0))>2147483647 or objDict.Item(KeysArray(i,0))<-2147483647 Then Call ShowError(ErrorMsg,05) :Exit Function
　　　　　　ElseIf objDict.Item(KeysArray(i,0))<>"" And KeysArray(i,1) ="datetime" Then
　　　　　　　　If IsDate(objDict.Item(KeysArray(i,0)))=0 Then Call ShowError(ErrorMsg,06) :Exit Function
　　　　　　ElseIF KeysArray(i,1)="bit" Then
　　　　　　　　If (Not objDict.Item(KeysArray(i,0))=0) And (Not objDict.Item(KeysArray(i,0))=1) Then Call ShowError(ErrorMsg,07) :Exit Function
　　　　　　End If
　　　　　　‘效驗字段長度
　　　　　　If IsNumeric(KeysArray(i,4)) And Len(objDict.Item(KeysArray(i,0)))>=KeysArray(i,4) Then Call ShowError(ErrorMsg,08) :Exit Function
　　　　　　‘默認值
　　　　next
　　　　Valid=True
　　End Function

　　‘從數(shù)據(jù)庫框架和Dictionary還原出完整的表單，該表單需要具體對象類根據(jù)實際需求進行進一步處理
　　‘通過加密的方案解決表單字段和數(shù)據(jù)庫字段的異步問題
　　Public Function ReturnForm()
　　　　Dim strForm
　　　　strForm="<form action="""" method=""post"" id="""& MD5(Table) &"""><ul>" &chr(10)
　　　　strForm=strForm &"<li><input id="""& MD5(KeysArray(0,0)) &""" type=""hiddden"" value="""& objDict.Item(KeysArray(0,0)) &"""></li>" &chr(10)

　　　　　　for i=0 to Ubound(KeysArray)-1
　　　　　　‘效驗數(shù)據(jù)類型
　　　　　　　　If KeysArray(i,1)="int" Then
　　　　　　　　‘Radio
　　　　　　　　‘Select
　　　　　　　　‘Checkbox
　　　　　　　　　　strForm=strForm &"<li><input id="""& MD5(KeysArray(i,0)) &""" type=""text"" value="""& objDict.Item(KeysArray(i,0)) &"""></li>"&chr(10)
　　　　　　　　ElseIf KeysArray(i,1) ="datetime" Then
　　　　　　　　　　strForm=strForm &"<li><input id="""& MD5(KeysArray(i,0)) &""" type=""text"" value="""& objDict.Item(KeysArray(i,0)) &"""></li>"&chr(10)
　　　　　　　　ElseIF KeysArray(i,1)="bit" Then
　　　　　　　　　　strForm=strForm &"<li><input id="""& MD5(KeysArray(i,0)) &""" type=""text"" value="""& objDict.Item(KeysArray(i,0)) &"""></li>"&chr(10)
　　　　　　　　ElseIF KeysArray(i,1)="text" Then
　　　　　　　　　　strForm=strForm &"<li><textarea id="""& MD5(KeysArray(i,0)) &""" type=""text"">"& objDict.Item(KeysArray(i,0)) &"</textarea></li>"&chr(10)
　　　　　　　　End If
　　　　　　next

　　　　strForm=strForm &"</ul><form>" &chr(10)
　　　　Response.Write strForm
　　　　ReturnForm=True
　　End Function

　　Private Sub Class_Initialize()
　　　　‘創(chuàng)建Dictionary對象
　　　　Set objDict=CreateObject("Scripting.Dictionary")
　　　　ErrorMsg="DC"
　　End Sub

　　Private Sub Class_Terminate()
　　　　‘釋放Dictionary對象
　　　　Set objDict=nothing
　　End Sub
End Class


‘******************************************************
‘交互層，根據(jù)實際需要定制結(jié)合對Dictionary和DataBase的操作，定義針對對象的直接操作。
‘返回錯誤代碼頭：UR
‘******************************************************
Class TUser
　　Public Table

　　Private objDictionary
　　Private objDataBase

　　Private ErrorMsg

　　Public Function Update()
　　　　iF objDataBase.Update Then Update=True
　　End Function

　　Public Function Delete()
　　　　iF objDataBase.Delete Then Delete=True
　　End Function

　　Public Function DrawForm()
　　　　iF objDictionary.ReturnForm Then DrawForm=True
　　End Function

　　Public Function ValidAndTransfer()
　　　　objDictionary.GetRequest()
　　　　If objDictionary.Valid Then
　　　　　　Call objDataBase.Transfer(objDictionary)
　　　　Else
　　　　　　Call ShowError(ErrorMsg,01) :Exit Function
　　　　End If
　　End Function

　　Public Function Creat()
　　　　If Not Table="" Then
　　　　　　objDictionary.Table=Table
　　　　　　objDictionary.Creat()
　　　　End If
　　　　Creat=True
　　End Function

　　Private Sub Class_Initialize()
　　　　ErrorMsg="UR"
　　　　Set objDictionary= new TDictionaryDriver
　　　　Set objDataBase = new TDBDriver
　　End Sub

　　Private Sub Class_Terminate()
　　　　Set objDictionary= Nothing
　　　　Set objDataBase = nothing
　　End Sub
End Class


‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
Call System_Initialize()

Dim objUser
Set objUser = new TUser
　　objUser.Table="Comm_User"
　　If objUser.Creat Then
　　　　‘objUser.ValidAndTransfer()
　　　　‘objUser.Update()
　　　　Call objUser.DrawForm()
　　End IF
Set objUser = nothing

Call System_Terminate()

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。
打開APP，閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
asp學習
加速ASP程序的顯示速度
asp簡單的ajax留言板
SQL指令植入式攻擊的危害及其防范措施
常用的adodb使用方法,學習資料
Altairis Simple ASP.NET SQL Providers
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長圖 關(guān)注 下載文章
綁定賬號成功
后續(xù)可登錄賬號暢享VIP特權(quán)！
如果VIP功能使用有故障，
可點擊這里聯(lián)系客服！

聯(lián)系客服