include.asp
资源名称:wap.rar [点击查看]
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:1k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <%
- '************** ASPSecurity 通用函数 ************
- ' Copyright 2006
- ' Create:2006-1-18
- ' Update:2006-4-17
- '************************************************
- '检查文件后缀,如果与预定的匹配即返回TRUE
- Function CheckExt(FileExt)
- If DimFileExt = "*" Then CheckExt = True
- Ext = Split(DimFileExt,",")
- For i = 0 To Ubound(Ext)
- If Lcase(FileExt) = Ext(i) Then
- CheckExt = True
- Exit Function
- End If
- Next
- End Function
- Function GetDateModify(filepath)
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set f = fso.GetFile(filepath)
- s = f.DateLastModified
- set f = nothing
- set fso = nothing
- GetDateModify = s
- End Function
- Function GetDateCreate(filepath)
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set f = fso.GetFile(filepath)
- s = f.DateCreated
- set f = nothing
- set fso = nothing
- GetDateCreate = s
- End Function
- Function tURLEncode(Str)
- temp = Replace(Str, "%", "%25")
- temp = Replace(temp, "#", "%23")
- temp = Replace(temp, "&", "%26")
- tURLEncode = temp
- End Function
- %>