最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
如何用Asp动态生成xml文件
时间：2022-06-30 09:25:42 编辑：袖梨 来源：一聚教程网
Function ReplaceChar ( FstrSource )
dim strRet
if IsNull(FstrSource) then
FstrSource = ""
end if
strRet = Replace ( FstrSource , "&" , "&" )
strRet = Replace ( strRet , "<" , "<" )
strRet = Replace ( strRet , ">" , ">" )
strRet = Replace ( strRet , """" , """ )
strRet = Replace ( strRet , "'" , "'" )
ReplaceChar = strRet
End Function
function RstToXML (FrstRst, FstrRstName)
dim strSpace 'space string behand of element
dim intLevel 'level of the element
dim strXML 'the return string(xml string)
dim intRstField
dim strShortDate
'document level
intLevel = 0
strSpace = space (intLevel * 2)
if Len(FstrRstName)>0 then
strXML=strSpace & "<" & FstrRstName & ">" & vbCR
intLevel = intLevel + 1
strSpace = space(intLevel*2)
end if
if FrstRst.EOF then
strXML = strXML&strSpace & "
strXML = strXML & space(1)&FrstRst.Fields(nCount).Name&"=''"
next
strXML = strXML & "/>" &vbCR
if Len(FstrRstName)>0 then
strXML=strXML&strSpace & "" & vbCR
end if
RstToXML=strXML
exit function
end if
' now move in one level
intLevel = intLevel + 1
strSpace = space (intLevel * 2)
' loop through the records
dim strTemp
FrstRst.MoveFirst
do while not FrstRst.EOF
strTemp = ""
'loop through the fields
'strXML = strXML & strSpace & "
dim strRet
if IsNull(FstrSource) then
FstrSource = ""
end if
strRet = Replace ( FstrSource , "&" , "&" )
strRet = Replace ( strRet , "<" , "<" )
strRet = Replace ( strRet , ">" , ">" )
strRet = Replace ( strRet , """" , """ )
strRet = Replace ( strRet , "'" , "'" )
ReplaceChar = strRet
End Function
function RstToXML (FrstRst, FstrRstName)
dim strSpace 'space string behand of element
dim intLevel 'level of the element
dim strXML 'the return string(xml string)
dim intRstField
dim strShortDate
'document level
intLevel = 0
strSpace = space (intLevel * 2)
if Len(FstrRstName)>0 then
strXML=strSpace & "<" & FstrRstName & ">" & vbCR
intLevel = intLevel + 1
strSpace = space(intLevel*2)
end if
if FrstRst.EOF then
strXML = strXML&strSpace & "
strXML = strXML & space(1)&FrstRst.Fields(nCount).Name&"=''"
next
strXML = strXML & "/>" &vbCR
if Len(FstrRstName)>0 then
strXML=strXML&strSpace & "" & vbCR
end if
RstToXML=strXML
exit function
end if
' now move in one level
intLevel = intLevel + 1
strSpace = space (intLevel * 2)
' loop through the records
dim strTemp
FrstRst.MoveFirst
do while not FrstRst.EOF
strTemp = ""
'loop through the fields
'strXML = strXML & strSpace & "
相关文章
- 燕云十六声青山执笔偷师方法攻略 10-22
- 燕云十六声汤瘸佬聊天对话攻略分享 10-22
- 流放之路2游侠一血护盾流BD玩法攻略 10-22
- 永劫无间手游如意柜怎么用-如意柜功能使用方法 10-22
- 流放之路2祈求者闪打BD玩法攻略分享 10-22
- 燕云十六声秦采薇聊天对话攻略分享 10-22