'给指令节点着色XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />
function renderInstruction(nodNode,intLevel)
dim strNodes,intCount,intNode
strNodes = ""
intCount = 0
intNode = 0
dim nodAttrList
strNodes=strNodes & getIndent(intLevel)&"<"
strNodes=strNodes & "?"
strNodes=strNodes & nodNode.nodeName&" "
' check there are some attributes
strNodes=strNodes & nodNode.nodeValue
strNodes=strNodes & "?>
"
renderInstruction = strNodes
end function
function getIndent(intLevel)
' create a string of spaces
dim strIndent
strIndent = ""
for intIndent = 0 to intLevel-1
strIndent = strIndent & " "
next
getIndent = strIndent
end function
%>
14pt; font-weight:bold;"><%=strf%>
<%=strResult%>
8pt;"> 8pt;" HREF="http:'openlab.biti.edu.cn/xml/" target="_blank">BITI XML UNION -
Mailto:xiaoleilong@mail.biti.edu.cn">stan
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10752019/viewspace-981936/ ，如需转载，请注明出处，否则将追究法律责任。
