<
功能loadtempletfile（ByVal路径）
下次继续出错
昏暗的objstream
集objstream = server.createobject（ADODB。流）
与objstream
类型= 2
模式= 3
开。
LoadFromFile server.mappath（路径）。
如果err.number <> 0
err.clear
response.write（预装模板{ 路径}不存在！）
response.end（）
最后如果
。字符集=chrset
位置= 2
loadtempletfile READTEXT =。
关闭
结束
集objstream =没有
端功能

功能movefiles（sfolder，dfolder）
下次继续出错
暗淡的光
设置FSO = server.createobject（脚本。FileSystemObject ）
如果fso.folderexists（server.mappath（sfolder））和fso.folderexists（server.mappath（dfolder））然后
Fso.copyfolder server.mappath（sfolder），server.mappath（dfolder）
movefiles =真
其他的
movefiles = false
设置FSO
叫Alertbox（系统找不到指定的路径{ sfolder}！
最后如果
设置FSO
端功能

功能renamefolder（sfolder，dfolder）
下次继续出错
暗淡的光
设置FSO = server.createobject（脚本。FileSystemObject ）
如果fso.folderexists（server.mappath（sfolder））然后
Fso.movefolder server.mappath（sfolder），server.mappath（dfolder）
renamefolder =真
其他的
renamefolder = false
设置FSO
叫Alertbox（系统找不到指定的路径{ sfolder}！
最后如果
设置FSO
端功能

功能checkfolder（路径）
下次继续出错
暗淡的光
设置FSO = server.createobject（脚本。FileSystemObject ）
如果fso.folderexists（server.mappath（路径））然后
checkfolder =真
其他的
checkfolder = false
最后如果
设置FSO
端功能

功能checkfile（路径）
下次继续出错
暗淡的光
设置FSO = server.createobject（脚本。FileSystemObject ）
如果fso.fileexists（server.mappath（路径））然后
checkfile =真
其他的
checkfile = false
最后如果
设置FSO
端功能

功能createdir（路径）
昏暗的FSO，patharr，我path_level，pathtmp，cpath
下次继续出错
佛焰苞=取代（Spath，
设置FSO = server.createobject（脚本。FileSystemObject ）
patharr =分裂（斯帕思， / ）
path_level = UBound（patharr）
我path_level = 0
如果我= 0然后pathtmp = patharr（0） / pathtmp = pathtmppatharr（我） /
cpath =左（pathtmp，len（pathtmp）- 1）
如果不fso.folderexists（cpath）然后fso.createfolder（cpath）
下一个
设置FSO
如果err.number <> 0
err.clear
createdir = false
其他的
Createdir =真
最后如果
端功能

功能delclassfolder（路径）
下次继续出错
暗淡的光
设置FSO = server.createobject（脚本。FileSystemObject ）
如果fso.folderexists（server.mappath（路径））然后
Fso.deletefolder（server.mappath（路径））
最后如果
设置FSO
端功能

功能delnewsfile（路径、文件名）
下次继续出错
昏暗的FSO，temparr，cpath，epath，我：我= 0
设置FSO = server.createobject（脚本。FileSystemObject ）
佛焰苞=路径文件名site_extname
如果fso.fileexists（server.mappath（路径））然后
fso.deletefile（server.mappath（路径））
虽然（I - 1）
i = i + 1
epath =替代路径，文件名，文件名（。_ 我+ 1。）
如果fso.fileexists（server.mappath（epath））然后
fso.deletefile（server.mappath（epath））
其他的
i = 1
最后如果
走
最后如果
端功能

类stringclass
公共功能getstr（strhtml）
昏暗的patrnstr
patrnstr =
昏暗的objregex
集objregex = new RegExp
objregex.pattern = patrnstr
objregex.ignorecase =真
objregex.global =真
getstr = objregex.replace（strhtml，）
集objregex =没有
端功能
公共功能replacestr（patrn，MSTR，replstr）
昏暗的objregex
集objregex = new RegExp
objregex.pattern = patrn
objregex.ignorecase =真
objregex.global =真
replacestr = objregex.replace（MSTR，replstr）
集objregex =没有
端功能
公共功能classcustomtag（ByVal PATRN，ByVal mstr，ByVal CLassID，一个indexid，ByVal）
昏暗的objregex，火柴，火柴
集objregex = new RegExp
objregex.pattern = patrn
objregex.ignorecase =真
objregex.global =真
集比赛= objregex.execute（MSTR）
每场比赛的每场比赛
MSTR =取代（MSTR，match.value，parseclasstag（match.value，classid，indexid，pagestr））
下一个
设置匹配=无
集objregex =没有
classcustomtag =个
端功能
公共功能newscustomtag（ByVal PATRN，ByVal mstr，ByVal CLassID，ByVal NewSID，ByVal）
昏暗的objregex，火柴，火柴
集objregex = new RegExp
objregex.pattern = patrn
objregex.ignorecase =真
objregex.global =真
集比赛= objregex.execute（MSTR）
每场比赛的每场比赛
MSTR =取代（MSTR，match.value，parsenewstag（match.value，classid，NewSID，关键词））
下一个
设置匹配=无
集objregex =没有
newscustomtag =个
端功能
类的结束

功能processcustomtag（ByVal内容）
昏暗的objregex，火柴，火柴
集objregex = new RegExp
objregex.pattern ={新农合：{ ^ <> } +