检测功能ASP类

复制代码代码如下所示：
<
昏暗的CMD
设置cmd =新cls_command
类cls_command
私人再

公共函数IsPositiveInteger（值）
集重=新的正则表达式
模式
re.ignorecase =真
重复全局=真的
ispositiveinteger =重新测试（价值）。
设置否
端功能

公共函数的IsDigit（vstring）
如果vstring = 然后IsDigit =假：退出功能
集重=新的正则表达式
再次，模式=^ { A-Z } + $
重复全局=真的
re.ignorecase =真
re.multiline =真
IsDigit =重新测试（vstring）。
设置否
端功能

公共函数的IsAlpha（vstring）
如果vstring = 然后因而isalpha =假：退出功能
集重=新的正则表达式
模式
重复全局=真的
re.ignorecase =真
re.multiline =真
因而isalpha =重新测试（vstring）。
设置否
端功能

公共功能isalphadigit（vstring）
如果vstring = 然后isalphadigit =假：退出功能
集重=新的正则表达式
再次，模式=^ { a-za-z D} + $
重复全局=真的
re.ignorecase =真
re.multiline =真
IsAlphaDigit = Re.Test (vString)
设置否
端功能

昏暗的TemplateContent，TemplateDeBug
市民Sub LoadTemplate（TEMPLATENAME）
下次继续出错
昏暗的templateobject，TemplateFile
集templateobject = server.createobject（脚本。FileSystemObject ）
设置中被= templateobject.opentextfile（server.mappath（TEMPLATENAME））
如果错误，数字＜0，然后
呃。清晰
设置中被=没有
集templateobject =没有
templatedebug = 1
最后如果
templatefile.readall TemplateContent =
中被关闭。
设置中被=没有
集templateobject =没有
端子

昏暗的htmlcontent，CreatDeBug
市民Sub BuildFile（目录，htmlname）
下次继续出错
如果Not CheckFolder（目录）然后
creatdebug = 1
退出子
最后如果
昏暗的creatobject，CreatFile
集creatobject = server.createobject（脚本。FileSystemObject ）
集creatfile = creatobject.createtextfile（server.mappath（目录htmlname），真的，假的）
如果错误，数字＜0，然后
集creatfile =没有
集creatobject =没有
呃。清晰
creatdebug = 1
退出子
最后如果
CreatFile写的（htmlcontent）。
creatfile。关闭
集creatfile =没有
集creatobject =没有
端子

私有函数checkfolder（ByVal LocalPath）
下次继续出错
昏暗的获得
昏暗的patharr，path_level，pathtmp，cpath
本地路径=取代（本地路径，
设置文件对象= server.createobject（脚本。FileSystemObject ）
patharr =分（本地路径， / ）
path_level = UBound（patharr）
朦胧的我
我path_level = 0
如果我= 0然后
pathtmp = patharr（0） /
其他的
pathtmp = pathtmp patharr（我） /
最后如果
cpath =左（pathtmp，Len（pathtmp）- 1）
如果不fileobject.folderexists（server.mappath（cpath））然后fileobject.createfolder（server.mappath（cpath））
下一个
设置文件对象=没有
如果错误，数字＜0，然后
呃。清晰
checkfolder = false
其他的
checkfolder =真
最后如果
端功能

公共功能writecache（应用程序名称，值）
锁的应用。
应用（应用程式）=价值
解锁应用。
端功能

公共功能clearcache（修改）
锁的应用。
application.contents.remove（修改）
application.unlock
端功能

市民Sub OutputJavaInfo（消息）
响应。过期= 0
response.expiresabsolute =现在（）- 1
response.addheader语用
response.addheader缓存控制
response.cachecontrol = 不缓存
response.contenttype =应用/ x-javaｓｃｒｉｐｔ
响应。写document.getelementbyid（升级信息）.innerHTML = ；
反应结束
端子

市民Sub OutputinterHtml（消息，显示类型）
写消息的响应。
如果显示类型= 1
响应。冲洗
其他的
反应结束
最后如果
端子
类的结束
%>