摘要： 1 生产随机数列第一种方法CODE:randomize'更新反回的数据funcation rand(k,n)n=int((k-1)*rnd+1)rand=nend funcation第二种方法CODE:n=randomnumber.value(1,255)2 当运行到表中的某一行，自动导出表中的所有数据CODE:row=datatable.getcurrentrowif row="5" thendatatable.export("d:\data.xml")end if3CODE:webedit("txtpass").setse 阅读全文

摘要： 1 生产随机数列第一种方法-----------------------------------randomize'更新反回的数据funcation rand(k,n)n=int((k-1)*rnd+1)rand=nend funcation第二种方法n=randomnumber.value(1,255)2 当运行到表中的某一行，自动导出表中的所有数据row=datatable.getcurrentrowif row="5" thendatatable.export("d:\data.xml")end if3 webedit("txtp 阅读全文

摘要： Dim filepath,xmlDoc,myErr,strXML,rootNodefilepath="c:\12.xml"Set xmlDoc=CreateObject("Microsoft.XMLDOM")'创建一个xml对象xmlDoc.async=FalsexmlDoc.load filepath '加载xml文件If xmlDoc.parseError.errorCode<>0 Then'返回错误信息 Set myErr=xmlDoc.parseError MsgBox("XML Loads Fail 阅读全文