仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 349|回复: 8
打印 上一主题 下一主题

[学习教程] ASP教程之ADO数据与XML数据间的转换的类

[复制链接]
飘飘悠悠 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:34:54 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。当对现无数据库的数据举行剖析时,常常必要对某一部分的数据举行剖析.此时,利用
1.SQL查询剖析器?
但其常常不直不雅,查找某个关头字又必要从头实行新的SQL.
2.SQLXML模板?
但又纷歧定有权限创建新的假造目次,且某些SQL语句SQLXML模板不撑持
数据拆离时也有类似成绩。
特别当分歧收集,分歧情况,必要从头导进数据,举行剖析或拆离,坚苦尤其分明。
能不克不及有一种办法,能够将数据离开于数据库举行剖析,必要时再导进到数据库中?
XML是个很好的选择!
ADO自己撑持数据到XML的转换,只必要对其格局举行剖析,成为本人的XML文件通用格局,就能够举行当地剖析
而对通用XML格局举行数据库映照,便可完成数据从头导进数据库的事情.
上面是一个ADO数据(表的基础数据)与XML数据间的互相转换的类(ASP完成),开端完成表数据的导进、导出。
通用表间干系映照(经由过程XSD形貌),思索当中,但愿列位见教指导,不堪感谢.
一个挪用类的例子:
example.asp
<!--#includefile="transformXML.asp"-->
<%
DimaSQL(1,1)
DimoXMLData
======毗连数据库历程======
取得数据库毗连工具oDbConn
======毗连数据库历程======
aSQL(0,0)="PubLable"
aSQL(0,1)="Select*fromPubLabelwherecLabelNamelike%abc%OrderbynLabelID"
aSQL(1,0)="PubUser"
aSQL(1,1)="Select*fromPubUserwherecUserNamelike%abc%OrderbynUserID"
setoXMLData=NewTransformData
CallExport()
CallImport()
setoXMLData=nothing

//当工具属性有默许值(default())时,能够不必在赋值
SubExport()//导出数据
oXMLData.aSQlData=aSQL
必需2维SQL语句数组

oXMLData.bIsSave=1
default(1)是不是保留为XML文件

oXMLData.bIsOutput=1
default(0)是不是显现XML数据

oXMLData.sSaveFileName="Data.xml"
default(以后工夫加随机数)假如保留XML数据,XML文件称号

oXMLData.sSaveFilePath=""
default("")假如保留XML数据,XML文件路径(绝对路径)

oXMLData.sEncoding="gb2312"
default("gb2312")XML文件编码范例
oXMLData.Export(oDbConn)
//导出数据历程
IF(oXMLData.nErrCode0)ThennErrCode(毛病代码)为0,运转乐成
Response.WriteoXMLData.GetErrExegesis(oXMLData.nErrCode)
nErrCode(毛病代码),经由过程办法GetErrExegesis()取得正文
EndIF
EndSub
SubImport()//导进数据
oXMLData.sXMLFile="Data.xml"必需数据源XML文件(包括绝对路径)
oXMLData.sVacancyCols="nLabelID"必需指定某些字段的值能够不导进(屏障字段)
格局"nID,dDate"(以‘,’分开字段)
oXMLData.Import(oDbConn)
IF(oXMLData.nErrCode=0)Then
Response.Write"数据导进乐成!"
Else
Response.WriteoXMLData.GetErrExegesis(oXMLData.nErrCode)
EndIF

EndSub
%>
类的代码:
TransformData.asp
<%
ClassTransformData
*****************************************************
Copyright(c)2003
创建人:moonpiazza
日期:2003.5.21
描述:ADO数据与XML数据间的转换(ASP完成)
版本:1.0
功能:ADO数据(表的基础数据)与XML数据间的互相转换
待改进:表间数据的联系关系性(通用),数据量年夜时速率成绩

版权:接待改善,翻版不究:_)

*****************************************************

*****************************************************
大众办法:Export,Import,GetErrExegesis
*****************************************************
=============================大众变量End=============================
Privatem_oXMLDOM
Privatem_oXSLDOM
=============================大众变量Begin=============================
=============================毛病代码界说Begin=============================
Privatem_nErrCode_NotArray
Privatem_nErrCode_XMLDOM
Privatem_nErrCode_ReadData
Privatem_nErrCode_WriteData
Privatem_nErrCode_Save
Privatem_nErrCode_EnsFile
Privatem_nErrCode_ErrFile
=============================毛病代码界说End=============================
=============================属性界说Begin=============================
Privatem_aSQlData
Privatem_bIsSave
Privatem_bIsOutput
Privatem_sSaveFileName
Privatem_sSaveFilePath
Privatem_sXMLFile
Privatem_sVacancyCols
Privatem_nErrCode
Privatem_sEncoding
Privatem_sImportSQL
*****************************************************
属性:aSQlData
形态:可写
范例:2维数组
形貌:SQL语句数组,1维是表称号,2维是响应SQL语句
*****************************************************
PublicPropertyLetaSQlData(ByRefp_aSQlData)
m_aSQlData=p_aSQlData
EndProperty

*****************************************************
属性:bIsSave
形态:可写
范例:数字(0,1)default(1)
形貌:导出数据时,是不是保留为XML文件
*****************************************************
PublicPropertyLetbIsSave(ByRefp_bIsSave)
m_bIsSave=Cint(p_bIsSave)
EndProperty

*****************************************************
属性:bIsOutput
形态:可写
范例:数字(0,1)default(0)
形貌:导出数据时,是不是显现XML数据
*****************************************************
PublicPropertyLetbIsOutput(ByRefp_bIsOutput)
m_bIsOutput=Cint(p_bIsOutput)
EndProperty

*****************************************************
属性:sSaveFileName
形态:可写,可读
范例:字符串default(GetRndFileName())
形貌:导出数据时,假如保留XML数据,XML文件称号
*****************************************************
PublicPropertyLetsSaveFileName(ByRefp_sSaveFileName)
m_sSaveFileName=p_sSaveFileName
EndProperty
PublicPropertyGetsSaveFileName()
sSaveFileName=m_sSaveFileName
EndProperty

*****************************************************
属性:sSaveFilePath
形态:可写,可读
范例:字符串default("")
形貌:导出数据时,假如保留XML数据,XML文件路径(绝对路径)
*****************************************************
PublicPropertyLetsSaveFilePath(ByRefp_sSaveFilePath)
m_sSaveFilePath=p_sSaveFilePath
EndProperty
PublicPropertyGetsSaveFilePath()
sSaveFilePath=m_sSaveFilePath
EndProperty

*****************************************************
属性:sXMLFile
形态:可写
范例:字符串
形貌:导进数据时,数据源XML文件(包括绝对路径)
*****************************************************
PublicPropertyLetsXMLFile(ByRefp_sXMLFile)
m_sXMLFile=p_sXMLFile
EndProperty

*****************************************************
属性:sVacancyCols
形态:可写
范例:字符串default("")
格局"nID,dDate"(以‘,’分开字段)
形貌:导进数据时,指定某些字段的值能够不导进(屏障字段)
*****************************************************
PublicPropertyLetsVacancyCols(ByRefp_sVacancyCols)
m_sVacancyCols=","&p_sVacancyCols&","
EndProperty

*****************************************************
属性:nErrCode
形态:可读
范例:数字default(0)
形貌:毛病代码,可经由过程办法GetErrExegesis(ByRefp_nErrCode)取得正文
*****************************************************
PublicPropertyGetnErrCode()
nErrCode=m_nErrCode
EndProperty

*****************************************************
属性:sEncoding
形态:可写
范例:字符串default("gb2312")
形貌:XML文件编码范例
*****************************************************
PublicPropertyLetsEncoding(ByRefp_sEncoding)
m_sEncoding=p_sEncoding
EndProperty

*****************************************************
属性:sImportSQL
形态:可读
范例:字符串default("gb2312")
形貌:导进数据时,天生的SQL语句
*****************************************************
PublicPropertyGetsImportSQL()
sImportSQL=m_sImportSQL
EndProperty
=============================属性界说End=============================
*****************************************************
初始化类
*****************************************************
PrivateSubClass_Initialize()
Server.ScriptTimeout=1000
m_nErrCode_NotErr=0
m_nErrCode_NotArray=1
m_nErrCode_XMLDOM=2
m_nErrCode_ReadData=3
m_nErrCode_WriteData=4
m_nErrCode_Save=5
m_nErrCode_EnsFile=6
m_nErrCode_ErrFile=7

m_bIsSave=1
m_bIsOutput=0
m_sSaveFilePath=""
m_sSaveFileName=""
m_sXMLFile=""
m_sVacancyCols=""
m_nErrCode=m_nErrCode_NotErr
m_sEncoding="gb2312"
EndSub

*****************************************************
刊出类
*****************************************************
PrivateSubClass_Terminate()
Setm_oXMLDOM=Nothing
Setm_oXSLDOM=Nothing
EndSub

=============================数据导出Begin=============================
*****************************************************
历程:Export(ByRefp_oDbConn)
形貌:导出数据
参数:
p_oDbConn:数据库毗连工具

*****************************************************
PublicSubExport(ByRefp_oDbConn)
DimnI,nMaxI
DimsTableName,sSQL
DimsDataXML,sXSLStr
DimsXMLStr

If(NotIsArray(m_aSQlData))Then
m_nErrCode=m_nErrCode_NotArray
ExitSub
EndIf
ONERRORRESUMENEXT
Setm_oXSLDOM=Server.CreateObject("Microsoft.XMLDOM")
Setm_oXMLDOM=Server.CreateObject("Microsoft.XMLDOM")

IfErr.Number0Then
m_nErrCode=m_nErrCode_XMLDOM
ExitSub
EndIf

sXSLStr=GetXSL()
m_oXMLDOM.async=false
m_oXSLDOM.async=false
m_oXSLDOM.loadxml(sXSLStr)
sDataXML="<?xmlversion=1.0encoding="&m_sEncoding&"?>"
sDataXML=sDataXML&"<DataBase>"
nMaxI=Ubound(m_aSQlData,1)
FornI=0TonMaxI
sTableName=m_aSQlData(nI,0)
If(Len(sTableName)>0)Then
sSQL=m_aSQlData(nI,1)
sXMLStr=GetDataXML(sTableName,sSQL,p_oDbConn)

IF(m_nErrCode>m_nErrCode_NotErr)Then
ExitSub
EndIF

sDataXML=sDataXML&sXMLStr
EndIf

Next
sDataXML=sDataXML&"</DataBase>"

IF(m_bIsOutput)Then
CallResponseXML(sDataXML)
EndIF

IF(m_bIsSave)Then
CallSaveDataXML(sDataXML)
EndIF

EndSub

*****************************************************
函数:GetRndFileName()
形貌:取得随机称号,由以后工夫和7位随机数字组成
*****************************************************
PrivateFunctionGetRndFileName()
DimnMax,nMin
DimsRnd,sDate
Randomize
nMin=1000000
nMax=9999999
sRnd=Int(((nMax-nMin+1)*Rnd)+nMin)
sDate=Replace(Replace(Replace(now(),"-",""),":",""),"","")
GetRndFileName="_"&sDate&sRnd&".xml"

EndFunction

*****************************************************
函数:GetXSL()
形貌:取得XSL文件字符串
*****************************************************
PrivateFunctionGetXSL()
DimsXSLStr
sXSLStr=""
sXSLStr=sXSLStr&"<?xmlversion=1.0encoding="&m_sEncoding&"?>"
sXSLStr=sXSLStr&"<xsl:stylesheetversion=1.0xmlns:xsl=http://www.w3.org/1999/XSL/Transformxmlns:s=uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882xmlns:dt=uuid:C2F41010-65B3-11d1-A29F-00AA00C14882xmlns:rs=urn:schemas-microsoft-com:rowsetxmlns:z=#RowsetSchema>"
sXSLStr=sXSLStr&"<xsl:outputomit-xml-declaration=yes/>"
sXSLStr=sXSLStr&"<xsl:templatematch=/>"
sXSLStr=sXSLStr&"<xsl:for-eachselect=/xml/rs:data/z:row>"
sXSLStr=sXSLStr&"<xsl:elementname=Row>"
sXSLStr=sXSLStr&"<xsl:for-eachselect=@*>"
sXSLStr=sXSLStr&"<xsl:attributename={name()}>"
sXSLStr=sXSLStr&"<xsl:value-ofselect=./>"
sXSLStr=sXSLStr&"</xsl:attribute>"
sXSLStr=sXSLStr&"</xsl:for-each>"
sXSLStr=sXSLStr&"</xsl:element>"
sXSLStr=sXSLStr&"</xsl:for-each>"
sXSLStr=sXSLStr&"</xsl:template>"
sXSLStr=sXSLStr&"</xsl:stylesheet>"
GetXSL=sXSLStr

EndFunction

*****************************************************
函数:GetDataXML(ByRefp_sTableName,ByRefp_sSQL,ByRefp_oDbConn)
形貌:实行单条SQL,取得数据转换后的XML
参数:
1.p_sTableName:表的称号
2.p_sSQL:读取数据的SQl语句
3.p_oDbConn:数据库毗连工具

*****************************************************
PrivateFunctionGetDataXML(ByRefp_sTableName,ByRefp_sSQL,ByRefp_oDbConn)
DimoRecordset
DimsXMLStr,sCleanXML
DimnEnsData
ONERRORRESUMENEXT
nEnsData=0
SetoRecordset=p_oDbConn.Execute(p_sSQL)
IfErr.Number0Then
m_nErrCode=m_nErrCode_ReadData
ExitFunction
EndIf
IF(NotoRecordset.eof)Then
nEnsData=1
EndIF

IF(nEnsData=1)Then
oRecordset.savem_oXMLDOM,1

oRecordset.close
SetoRecordset=Nothing
sCleanXML=m_oXMLDOM.transformNode(m_oXSLDOM)
sXMLStr="<"&p_sTableName&">"
sXMLStr=sXMLStr&sCleanXML
sXMLStr=sXMLStr&"</"&p_sTableName&">"
Else
sXMLStr="<"&p_sTableName&"/>"
EndIF


GetDataXML=sXMLStr
EndFunction

*****************************************************
历程:SaveDataXML(ByRefp_sXMLStr)
形貌:保留XML格局的字符串到文件
参数:
p_sXMLStr:XML格局的字符串
*****************************************************
PrivateSubSaveDataXML(ByRefp_sXMLStr)
DimsFileInfo
If(Len(m_sSaveFileName)=0)Then
m_sSaveFileName=GetRndFileName()
EndIf

If(Len(m_sSaveFilePath)=0)Then
sFileInfo=m_sSaveFileName
Else
IF(Right(m_sSaveFilePath,1)="/")Then
sFileInfo=m_sSaveFilePath&m_sSaveFileName
Else
sFileInfo=m_sSaveFilePath&"/"&m_sSaveFileName
EndIF
EndIf
m_oXMLDOM.loadxml(p_sXMLStr)
ONERRORRESUMENEXT
m_oXMLDOM.save(Server.MapPath(sFileInfo))
IfErr.Number0Then
m_nErrCode=m_nErrCode_Save
ExitSub
EndIf
EndSub
*****************************************************
历程:ResponseXML(ByRefp_sXMLStr)
形貌:输入XML格局的字符串到扫瞄器
参数:
p_sXMLStr:XML格局的字符串
*****************************************************
PrivateSubResponseXML(ByRefp_sXMLStr)
Response.CharSet=m_sEncoding
Response.ContentType="text/xml"
Response.writep_sXMLStr
EndSub

=============================数据导出End=============================
=============================数据导进Begin=============================
*****************************************************
历程:Import(ByRefp_oDbConn)
形貌:导进数据
参数:
p_oDbConn:数据库毗连工具

*****************************************************
PublicSubImport(ByRefp_oDbConn)
DimoRootNode
If(Len(m_sXMLFile)<1)Then
m_nErrCode=m_nErrCode_EnsFile
ExitSub
EndIf
ONERRORRESUMENEXT
Setm_oXMLDOM=Server.CreateObject("Microsoft.XMLDOM")

IfErr.Number0Then
m_nErrCode=m_nErrCode_XMLDOM
ExitSub
EndIf

m_oXMLDOM.async=false
m_oXMLDOM.load(Server.MapPath(m_sXMLFile))
IfErr.Number0Then
m_nErrCode=m_nErrCode_EnsFile
ExitSub
EndIf
If(Len(m_oXMLDOM.xml)<1)Then
m_nErrCode=m_nErrCode_ErrFile
ExitSub
EndIf
SetoRootNode=m_oXMLDOM.documentElement
Setm_oXMLDOM=Nothing

m_sImportSQL=GetImportSQL(oRootNode)
SetoRootNode=Nothing
Callp_oDbConn.Execute(m_sImportSQL)
IfErr.Number0Then
m_nErrCode=m_nErrCode_WriteData
ExitSub
EndIf

EndSub

*****************************************************
函数:GetImportSQL(ByRefp_oDataBase)
形貌:取得将XML数据转换为SQL后的字符串
参数:
p_oDataBase:XML文件的根节点

*****************************************************
PrivateFunctionGetImportSQL(ByRefp_oDataBase)
DimoTable,oRow,oDatas,oData
DimsColNames,sColValues
DimsColName
DimsSQL

sSQL=""
ForEachoTableInp_oDataBase.childNodes

ForEachoRowInoTable.childNodes
SetoDatas=oRow.selectNodes("@*")
sColNames=""
sColValues=""
ForEachoDataInoDatas
sColName=oData.nodeName
If(Instr(Lcase(Cstr(m_sVacancyCols)),Lcase(Cstr(","&sColName&",")))<1)Then
sColNames=sColNames&sColName&","
sColValues=sColValues&""&oData.nodeValue&","
EndIf

Next
sColNames="("&Left(sColNames,Len(sColNames)-2)&")"
sColValues="("&Left(sColValues,Len(sColValues)-2)&")"
sSQL=sSQL&"InsertInto"&oTable.nodeName
sSQL=sSQL&""&sColNames&"Values"&sColValues&";"
Next
Next
SetoData=Nothing
SetoDatas=Nothing
SetoRow=Nothing
SetoTable=Nothing
GetImportSQL=sSQL
EndFunction
=============================数据导进End=============================

*****************************************************
函数:GetErrExegesis(ByRefp_nErrCode)
形貌:取得毛病代码的正文
参数:
p_oDataBase:XML文件的根节点

*****************************************************
PublicFunctionGetErrExegesis(ByRefp_nErrCode)
DimsExegesis
DimnErrCode
nErrCode=Cint(p_nErrCode)

SelectCase(nErrCode)
Casem_nErrCode_NotErr
sXSLStr="运转乐成!"
Casem_nErrCode_NotArray
sXSLStr="属性:SQL语句数组不准确!"
Casem_nErrCode_XMLDOM
sXSLStr="不克不及创立XML文档,服务器必需撑持MSXML!"
Casem_nErrCode_ReadData
sXSLStr="读取数据库数据产生毛病!"&"<BR>"
sXSLStr=sXSLStr&"请反省"&""
sXSLStr=sXSLStr&"1.数据库是不是已毗连"&""
sXSLStr=sXSLStr&"2.语句是不是准确"
Casem_nErrCode_WriteData
sXSLStr="写进数据库数据产生毛病!"&"<BR>"
sXSLStr=sXSLStr&"请反省"&""
sXSLStr=sXSLStr&"1.数据库是不是已毗连"&""
sXSLStr=sXSLStr&"2.SQL语句是不是准确"&"<BR>"
sXSLStr=sXSLStr&"SQL语句"&"<BR><BR>"
sXSLStr=sXSLStr&""&m_sImportSQL

Casem_nErrCode_Save
sXSLStr="不克不及保留XML文档,请反省是不是对该目次或文件有写进权限!"
Casem_nErrCode_EnsFile
sXSLStr="不克不及读取XM数据,XML文件不存在!"
sXSLStr=sXSLStr&"文件:"&m_sXMLFile

Casem_nErrCode_ErrFile
sXSLStr="不克不及读取XM数据,XML文件格局毛病!"
sXSLStr=sXSLStr&"文件:"&m_sXMLFile

CaseElse
sXSLStr="未知毛病!"
EndSelect

GetErrExegesis="<BR>"&sXSLStr&"<BR>"

EndFunction
EndClass
%>

想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的
若天明 该用户已被删除
沙发
发表于 2015-1-19 17:38:10 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
第二个灵魂 该用户已被删除
板凳
发表于 2015-1-25 10:46:45 来自手机 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
admin 该用户已被删除
地板
发表于 2015-2-2 21:43:08 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
山那边是海 该用户已被删除
5#
发表于 2015-2-8 07:30:10 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
变相怪杰 该用户已被删除
6#
发表于 2015-2-24 23:49:19 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
爱飞 该用户已被删除
7#
发表于 2015-3-7 14:28:49 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
谁可相欹 该用户已被删除
8#
发表于 2015-3-15 07:39:26 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
莫相离 该用户已被删除
9#
发表于 2015-3-21 21:38:39 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 10:31

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表