8,906
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
freetaiger 2003-09-29
- 打赏
- 举报
收藏！
superjia 2003-09-29
- 打赏
- 举报
f:\li.txt是什么意思？如何设置呢？
jueban9818 2003-09-25
- 打赏
- 举报
俺看不懂怎么办啊？
eastliangliang 2003-09-25
- 打赏
- 举报
不错，怎么没多少人关注呢？
prettyer 2003-09-16
- 打赏
- 举报
收藏起来了！
bxxxr 2003-07-03
- 打赏
- 举报
强
OhSky 2003-07-03
- 打赏
- 举报
MARK! 收藏！
blues-star 2003-07-01
- 打赏
- 举报
顶顶
huyiqi 2003-07-01
- 打赏
- 举报
不错
收藏
收藏
childish 2003-06-28
- 打赏
- 举报
mark
fason 2003-06-25
- 打赏
- 举报
收藏!
imafool 2003-06-25
- 打赏
- 举报
sc
wangfei2428 2003-06-25
- 打赏
- 举报
收藏先
huangjiuyt 2003-06-22
- 打赏
- 举报
up
jsidiot 2003-06-18
- 打赏
- 举报
我也做个记号哦
嘿嘿
嘿嘿
xuzuning 2003-06-18
- 打赏
- 举报
收藏
zhp80 2003-06-18
- 打赏
- 举报
收藏先
月光易水 2003-06-17
- 打赏
- 举报
收藏先，过两天来贴些东西
:_)
:_)
ssm1226 2003-06-17
- 打赏
- 举报
如各位高手，有什么好东东都贴出来吧
有一定奖励：P
有一定奖励：P
ssm1226 2003-06-17
- 打赏
- 举报
测试文件：
<%@ Language="vbscript"%>
<!--#INCLUDE FILE="classForXML.asp"-->
<%
'ssm1226(雨中人)XML操作控件
'例子：
dim obj,strfile,bln
strfile="c:\test.xml"
set obj=new ssm1226_xml
'创建文件
bln=obj.CreateFile(strfile,"ROOT","gb2312")
'装载文件
obj.file=strfile
'创建节点
obj.CreateNode "/ROOT","Name","ssm1226(雨中人)-XML操作控件"
'批创建节点
dim arrNode(3)
arrNode(0)="Author"
arrNode(1)="Date"
arrNode(2)="Language"
arrNode(3)="Delete"
dim arrNodeVal(2)
arrNodeVal(0)="ssm1226(雨中人)"
arrNodeVal(1)="2003-6-15"
arrNodeVal(2)="VBS"
obj.CreateNodeFromArray "/ROOT",arrNode,arrNodeVal
Erase arrNode
Erase arrNodeVal
'创建二进制节点
set oS=server.CreateObject("ADODB.Stream")
os.Type=1
os.Open
os.LoadFromFile "f:\li.txt"
obj.CreateNodeForBase64 "/ROOT","File",os.Read(-1)
os.Close
'创建属性
obj.CreateAttribute "/ROOT/Author","Email","ssm1226@yahoo.com.cn"
'批创建属性
Dim arrAtt(2)
arrAtt(0)="QQ"
arrAtt(1)="MSN"
arrAtt(2)="Delete"
Dim arrAttVal(1)
arrAttVal(0)="33524538"
arrAttVal(1)="ssm1226@msn.com"
obj.CreateAttributeFromArray "/ROOT/Author",arrAtt,arrAttVal
'更新节点
obj.updateNodeOrAttribute "/ROOT/Name","ssm1226(雨中人)-XML操作控件For VBS"
'更新属性
obj.updateNodeOrAttribute "/ROOT/Author/@Email","ssm1226@21cn.com"
'删除节点
obj.deleteNode "/ROOT/Delete"
obj.save strfile
response.CharSet="gb2312"
response.ContentType="text/xml"
response.Write obj.getXML
set obj=nothing
%>
<%@ Language="vbscript"%>
<!--#INCLUDE FILE="classForXML.asp"-->
<%
'ssm1226(雨中人)XML操作控件
'例子：
dim obj,strfile,bln
strfile="c:\test.xml"
set obj=new ssm1226_xml
'创建文件
bln=obj.CreateFile(strfile,"ROOT","gb2312")
'装载文件
obj.file=strfile
'创建节点
obj.CreateNode "/ROOT","Name","ssm1226(雨中人)-XML操作控件"
'批创建节点
dim arrNode(3)
arrNode(0)="Author"
arrNode(1)="Date"
arrNode(2)="Language"
arrNode(3)="Delete"
dim arrNodeVal(2)
arrNodeVal(0)="ssm1226(雨中人)"
arrNodeVal(1)="2003-6-15"
arrNodeVal(2)="VBS"
obj.CreateNodeFromArray "/ROOT",arrNode,arrNodeVal
Erase arrNode
Erase arrNodeVal
'创建二进制节点
set oS=server.CreateObject("ADODB.Stream")
os.Type=1
os.Open
os.LoadFromFile "f:\li.txt"
obj.CreateNodeForBase64 "/ROOT","File",os.Read(-1)
os.Close
'创建属性
obj.CreateAttribute "/ROOT/Author","Email","ssm1226@yahoo.com.cn"
'批创建属性
Dim arrAtt(2)
arrAtt(0)="QQ"
arrAtt(1)="MSN"
arrAtt(2)="Delete"
Dim arrAttVal(1)
arrAttVal(0)="33524538"
arrAttVal(1)="ssm1226@msn.com"
obj.CreateAttributeFromArray "/ROOT/Author",arrAtt,arrAttVal
'更新节点
obj.updateNodeOrAttribute "/ROOT/Name","ssm1226(雨中人)-XML操作控件For VBS"
'更新属性
obj.updateNodeOrAttribute "/ROOT/Author/@Email","ssm1226@21cn.com"
'删除节点
obj.deleteNode "/ROOT/Delete"
obj.save strfile
response.CharSet="gb2312"
response.ContentType="text/xml"
response.Write obj.getXML
set obj=nothing
%>
加载更多回复（4）
