无为清净楼资源网 Design By www.qnjia.com
复制代码 代码如下:
<%
Dim Cmd
Set Cmd = New Cls_Command
Class Cls_Command
Private Re
Public Function IsPositiveInteger(value)
Set Re = New RegExp
Re.Pattern = "^[1-9][\d]*$"
Re.IgnoreCase = True
Re.Global = True
IsPositiveInteger = Re.Test(value)
Set Re = Nothing
End Function
Public Function IsDigit(vString)
If vString = "" Then IsDigit = False : Exit Function
Set Re = New RegExp
Re.Pattern = "^[a-z]+$"
Re.Global = True
Re.IgnoreCase = True
Re.MultiLine = True
IsDigit = Re.Test(vString)
Set Re = Nothing
End Function
Public Function IsAlpha(vString)
If vString = "" Then IsAlpha = False : Exit Function
Set Re = New RegExp
Re.Pattern = "^[\d]+$"
Re.Global = True
Re.IgnoreCase = True
Re.MultiLine = True
IsAlpha = Re.Test(vString)
Set Re = Nothing
End Function
Public Function IsAlphaDigit(vString)
If vString = "" Then IsAlphaDigit = False : Exit Function
Set Re = New RegExp
Re.Pattern = "^[a-zA-Z\d]+$"
Re.Global = True
Re.IgnoreCase = True
Re.MultiLine = True
IsAlphaDigit = Re.Test(vString)
Set Re = Nothing
End Function
Dim TemplateContent,TemplateDeBug
Public Sub LoadTemplate(TemplateName)
On Error Resume Next
Dim TemplateObject,TemplateFile
Set TemplateObject=Server.CreateObject("Scripting.FileSystemObject")
Set TemplateFile=TemplateObject.OpenTextFile(Server.MapPath(TemplateName))
If Err.Number <> 0 Then
Err.Clear
Set TemplateFile=Nothing
Set TemplateObject=Nothing
TemplateDeBug=1
End If
TemplateContent=TemplateFile.ReadAll
TemplateFile.Close
Set TemplateFile=Nothing
Set TemplateObject=Nothing
End Sub
Dim HtmlContent,CreatDeBug
Public Sub BuildFile(Catalogue, HtmlName)
On Error Resume Next
If Not CheckFolder(Catalogue) Then
CreatDeBug=1
Exit Sub
End If
Dim CreatObject,CreatFile
Set CreatObject=Server.CreateObject("Scripting.FileSystemObject")
Set CreatFile=CreatObject.CreateTextFile(Server.MapPath(Catalogue & HtmlName),True,False)
If Err.Number <> 0 Then
Set CreatFile=Nothing
Set CreatObject=Nothing
Err.Clear
CreatDeBug=1
Exit Sub
End If
CreatFile.Write(HtmlContent)
CreatFile.Close
Set CreatFile=Nothing
Set CreatObject=Nothing
End Sub
Private Function CheckFolder(byval LocalPath)
On Error Resume Next
Dim FileObject
Dim patharr,path_level,pathtmp,cpath
LocalPath = Replace(LocalPath,"\","/")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
patharr = Split(LocalPath,"/")
path_level = Ubound(patharr)
Dim i
For i = 0 to path_level
If i = 0 Then
pathtmp = patharr(0) & "/"
Else
pathtmp = pathtmp & patharr(i) & "/"
End If
cpath = Left(pathtmp,Len(pathtmp)-1)
If Not FileObject.FolderExists(Server.MapPath(cpath)) Then FileObject.CreateFolder(Server.MapPath(cpath))
Next
Set FileObject=Nothing
If Err.Number<>0 then
Err.Clear
CheckFolder = False
Else
CheckFolder = True
End If
End Function
Public Function WriteCache(appName, Value)
Application.Lock
Application(appName) = Value
Application.Unlock
End Function
Public Function ClearCache(appName)
Application.Lock
Application.Contents.Remove(appName)
Application.UnLock
End Function
Public Sub OutputJavaInfo(Message)
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
Response.ContentType = "application/x-javascript"
Response.Write "document.getElementById(""updateinfo"").innerHTML = """ & Message & """;"
Response.End
End Sub
Public Sub OutputinterHtml(Message, ShowType)
Response.Write Message
If ShowType = 1 Then
Response.Flush
Else
Response.End
End If
End Sub
End Class
%>
<%
Dim Cmd
Set Cmd = New Cls_Command
Class Cls_Command
Private Re
Public Function IsPositiveInteger(value)
Set Re = New RegExp
Re.Pattern = "^[1-9][\d]*$"
Re.IgnoreCase = True
Re.Global = True
IsPositiveInteger = Re.Test(value)
Set Re = Nothing
End Function
Public Function IsDigit(vString)
If vString = "" Then IsDigit = False : Exit Function
Set Re = New RegExp
Re.Pattern = "^[a-z]+$"
Re.Global = True
Re.IgnoreCase = True
Re.MultiLine = True
IsDigit = Re.Test(vString)
Set Re = Nothing
End Function
Public Function IsAlpha(vString)
If vString = "" Then IsAlpha = False : Exit Function
Set Re = New RegExp
Re.Pattern = "^[\d]+$"
Re.Global = True
Re.IgnoreCase = True
Re.MultiLine = True
IsAlpha = Re.Test(vString)
Set Re = Nothing
End Function
Public Function IsAlphaDigit(vString)
If vString = "" Then IsAlphaDigit = False : Exit Function
Set Re = New RegExp
Re.Pattern = "^[a-zA-Z\d]+$"
Re.Global = True
Re.IgnoreCase = True
Re.MultiLine = True
IsAlphaDigit = Re.Test(vString)
Set Re = Nothing
End Function
Dim TemplateContent,TemplateDeBug
Public Sub LoadTemplate(TemplateName)
On Error Resume Next
Dim TemplateObject,TemplateFile
Set TemplateObject=Server.CreateObject("Scripting.FileSystemObject")
Set TemplateFile=TemplateObject.OpenTextFile(Server.MapPath(TemplateName))
If Err.Number <> 0 Then
Err.Clear
Set TemplateFile=Nothing
Set TemplateObject=Nothing
TemplateDeBug=1
End If
TemplateContent=TemplateFile.ReadAll
TemplateFile.Close
Set TemplateFile=Nothing
Set TemplateObject=Nothing
End Sub
Dim HtmlContent,CreatDeBug
Public Sub BuildFile(Catalogue, HtmlName)
On Error Resume Next
If Not CheckFolder(Catalogue) Then
CreatDeBug=1
Exit Sub
End If
Dim CreatObject,CreatFile
Set CreatObject=Server.CreateObject("Scripting.FileSystemObject")
Set CreatFile=CreatObject.CreateTextFile(Server.MapPath(Catalogue & HtmlName),True,False)
If Err.Number <> 0 Then
Set CreatFile=Nothing
Set CreatObject=Nothing
Err.Clear
CreatDeBug=1
Exit Sub
End If
CreatFile.Write(HtmlContent)
CreatFile.Close
Set CreatFile=Nothing
Set CreatObject=Nothing
End Sub
Private Function CheckFolder(byval LocalPath)
On Error Resume Next
Dim FileObject
Dim patharr,path_level,pathtmp,cpath
LocalPath = Replace(LocalPath,"\","/")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
patharr = Split(LocalPath,"/")
path_level = Ubound(patharr)
Dim i
For i = 0 to path_level
If i = 0 Then
pathtmp = patharr(0) & "/"
Else
pathtmp = pathtmp & patharr(i) & "/"
End If
cpath = Left(pathtmp,Len(pathtmp)-1)
If Not FileObject.FolderExists(Server.MapPath(cpath)) Then FileObject.CreateFolder(Server.MapPath(cpath))
Next
Set FileObject=Nothing
If Err.Number<>0 then
Err.Clear
CheckFolder = False
Else
CheckFolder = True
End If
End Function
Public Function WriteCache(appName, Value)
Application.Lock
Application(appName) = Value
Application.Unlock
End Function
Public Function ClearCache(appName)
Application.Lock
Application.Contents.Remove(appName)
Application.UnLock
End Function
Public Sub OutputJavaInfo(Message)
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
Response.ContentType = "application/x-javascript"
Response.Write "document.getElementById(""updateinfo"").innerHTML = """ & Message & """;"
Response.End
End Sub
Public Sub OutputinterHtml(Message, ShowType)
Response.Write Message
If ShowType = 1 Then
Response.Flush
Else
Response.End
End If
End Sub
End Class
%>
标签:
检测函数,asp,class
无为清净楼资源网 Design By www.qnjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
无为清净楼资源网 Design By www.qnjia.com
暂无评论...
更新日志
2024年09月20日
2024年09月20日
- 王菲.2006《菲常好听》引进版[低速原抓WAV+CUE]
- 《三日危情独家的记忆》女角色介绍
- 《天国拯救》拉泰比武大会攻略
- 任天堂推出《马里奥惊奇》NS捆绑包 10月24日发售
- 《孤岛惊魂》能否逆转育碧颓势?曝系列新作正招兵买马
- 天命人呼叫战术轰炸!玩家自制《黑神话:悟空》轰炸机Mod
- 群星.1992-滚石九大天王·十二出好戏【滚石】【WAV+CUE】
- 群星.1994-新滚石九大天王之年度大丫滚石】【WAV+CUE】
- 坣娜.1998-别恋【非常喜】【WAV+CUE】
- 《草原经典 最炫草原风 2CD》[WAV/分轨][980MB]
- 《不烧不选 经典国语极品珍藏》[WAV/分轨][500MB]
- 《绝对主打 流行原创金曲 2CD》[WAV分轨][1.1GB]
- 《赛博朋克2077》更新上线:支持AMD FSR3
- 《塞尔达传说:智慧的再现》提前半个月偷跑,引发玩家担忧
- 战锤40K星际战士2全职业介绍|全职业技能效果一览