ASP删除文件夹，不用遍历，直接删除文件夹，就可以连同里面的文件全部删除。
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FOLDERExists(server.MapPath("/ceshi/")) then fso.DeleteFolder(server.MapPath("/ceshi/"))
end ifSet fso = Nothing
http://bbs.csdn.net/topics/360258443
Function RegImg(TheStr) Dim RegEx Set RegEx = New RegExp RegEx.IgnoreCase =True RegEx.Global = True RegEx.Pattern = "<img[^>]*src\s*=\s*['"&CHR(34)&"]?([\w/\-\:.!]*)['"&CHR(34)&"]?[^>]*>" If Regex.test(TheStr) then Dim Matches Set Matches = RegEx.Execute(TheStr) ' 执行搜索。 For Each Match in Matches ' 遍历匹配集合。 'RetStr = RetStr & Match.Value & "…
'============================================'函数作用：远程图片自动保存到本地服务器'修改时间：2006-7-3 21:21'传入参数：' LocalFileName:本地文件名' RemoteFileUrl:远程文件URL'============================================sub SaveRemoteFile(LocalFileName,RemoteFileUrl)dim Ads,Retrieval,GetRemoteDataSet Retrieval = Server.CreateObject("Microsoft.XMLHTTP")With Retrieval.Open "Get", RemoteFileUrl, False…
ASP检查文件是否存在，并自动重命名相同名字的新文件
Function CheckFileExists(Folder,FileName)
Folder=Server.Mappath(Folder)
If Right(Folder,1)
ASP中汉字gb2312与utf-8互换
'=============gb2312转换为utf-8==================
function chinese2unicode(Str)
for i=1 to len(Str)
Str_one=Mid(Str,i,1)
Str_unicode=Str_unicode&chr(38)
Str_unicode=Str_unicode&chr(35)
Str_unicode=Str_unicode&chr(120)
Str_unicode=Str_unicode& Hex(ascw(Str_one))
Str_unicode=Str_unicode&chr(59)
next
chinese2unicode = Str_unicode
…
ASP版40位的加密算法SHA1：
可以在ASP程序中直接调用SHA1()函数，如=SHA1("Hello")，程序代码如下：
**文件**
ASP对数组中个元素进行排序：
'下面提到的函数使用类似于冒泡法的原理对一个一维数组进行排序
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary)
If I = UBound(ary) Then Exit For
If ary(I) > ary(I+1) Then
FirstValue = ary(I)
Se…
ASP显示小数点前面的0的方法： 一、使用FormatNumber函数。
dim Price
Price=0.8
response.write FormatNumber(Price,1)
'显示结果：.8
'利用 FormatNumber 函数把数值格式化为带两位小数点
dim Price
Price=0.8
response.write FormatNumber(Price,2)
'显示结果：.80
'利用 FormatNumber 函数把数值格式化为小数点前面有0
dim Price
Price=0.8
response.write FormatNumber(Price,1,-1)
'显示结果：0.8
…
Response 对象 错误 'ASP 0251 : 80004005' 超过响应缓冲区限制此 ASP 页的执行造成响应缓冲区超过其配置限制。
解决方法： 因为页面中数据较多，有上千条，导致出现“超过响应缓冲区限制。此 ASP 页的执行造成响应缓冲区超过其配置限制”。
选定网站，在右侧窗口中找到“IIS”下面的“ASP”，双击进入，找到“限制属性”下的“相应缓冲限制”，我们看到默认值是：4194304，即4M，我们将数字改大带那就行了，比方说加个0，变为…