ADO数据XML数据间的转换的类Word格式.docx
《ADO数据XML数据间的转换的类Word格式.docx》由会员分享，可在线阅读，更多相关《ADO数据XML数据间的转换的类Word格式.docx（22页珍藏版）》请在冰豆网上搜索。
OrderbynLabelID"
aSQL（1,0）="
PubUser"
aSQL（1,1）="
Select*fromPubUserwherecUserNamelike'
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"
） XML文件编码类型
oXMLData.Export（oDbConn）
//导出数据过程
IF（oXMLData.nErrCode<
>
0）Then '
nErrCode（错误代码）为0，运行成功
Response.WriteoXMLData.GetErrExegesis（oXMLData.nErrCode）
'
nErrCode（错误代码），通过方法GetErrExegesis（）获得注释
EndIF
EndSub
SubImport（） '
//导入数据
oXMLData.sXMLFile ="
必须 数据源XML文件（包含相对路径）
oXMLData.sVacancyCols="
nLabelID"
必须 指定某些字段的值可以不导入（屏蔽字段）
'
格式 "
nID,dDate"
（以‘，’分隔字段）
oXMLData.Import（oDbConn）
IF（oXMLData.nErrCode=0）Then
Response.Write"
数据导入成功！
Else
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）
bIsOutput
数字（0,1）default（0）
导出数据时，是否显示XML数据
PublicPropertyLetbIsOutput（ByRefp_bIsOutput）
m_bIsOutput=Cint（p_bIsOutput）
sSaveFileName
可写，可读
字符串default（GetRndFileName（））
导出数据时，如果保存XML数据，XML文件名称
PublicPropertyLetsSaveFileName（ByRefp_sSaveFileName）
m_sSaveFileName=p_sSaveFileName
EndProperty
PublicPropertyGetsSaveFileName（）
sSaveFileName=m_sSaveFileName
sSaveFilePath
字符串default（"
）
导出数据时，如果保存XML数据，XML文件路径（相对路径）
PublicPropertyLetsSaveFilePath（ByRefp_sSaveFilePath）
m_sSaveFilePath=p_sSaveFilePath
PublicPropertyGetsSaveFilePath（）
sSaveFilePath=m_sSaveFilePath
sXMLFile
字符串
导入数据时，数据源XML文件（包含相对路径）
PublicPropertyLetsXMLFile（ByRefp_sXMLFile）
m_sXMLFile=p_sXMLFile
sVacancyCols
格式 "
导入数据时，指定某些字段的值可以不导入（屏蔽字段）
PublicPropertyLetsVacancyCols（ByRefp_sVacancyCols）
m_sVacancyCols="
"
&
p_sVacancyCols&
"
nErrCode
可读
数字default（0）
错误代码，可通过方法GetErrExegesis（ByRefp_nErrCode）获得注释
PublicPropertyGetnErrCode（）
nErrCode=m_nErrCode
sEncoding
XML文件编码类型
PublicPropertyLetsEncoding（ByRefp_sEncoding）
m_sEncoding=p_sEncoding
sImportSQL
导入数据时，生成的SQL语句
PublicPropertyGetsImportSQL（）
sImportSQL=m_sImportSQL
=============================属性定义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=7m_bIsSave =1
m_bIsOutput =0
m_sSaveFilePath ="
m_sSaveFileName ="
m_sXMLFile ="
m_sVacancyCols ="
m_nErrCode =m_nErrCode_NotErr
m_sEncoding ="
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（"
IfErr.Number<
0Then
m_nErrCode=m_nErrCode_XMLDOM
sXSLStr =GetXSL（）
m_oXMLDOM.async=false
m_oXSLDOM.async=false
m_oXSLDOM.loadxml（sXSLStr）
sDataXML="
?
xmlversion='
1.0'
encoding='
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
/DataBase>
IF（m_bIsOutput）Then
CallResponseXML（sDataXML）
IF（m_bIsSave）Then
CallSaveDataXML（sDataXML）
函数：
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&
xsl:
stylesheetversion='
xmlns:
xsl='
http:
//www.w3.org/1999/XSL/Transform'
s='
uuid:
BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
dt='
C2F41010-65B3-11d1-A29F-00AA00C14882'
rs='
urn:
schemas-microsoft-com:
rowset'
z='
#RowsetSchema'
outputomit-xml-declaration='
yes'
/>
templatematch='
/'
for-eachselect='
/xml/rs:
data/z:
row'
elementname='
Row'
@*'
attributename='
{name（）}'
value-ofselect='
.'
/xsl:
attribute>
for-each>
element>
template>
sX
升级会员 