asp常用文件操作函数(二)
<%
'*******************************************************
'作 用: 得到文件扩展名
'函数名: GetFileExt(fileTrue)
'参 数: sFileName 文件名
'返回值: 返回文件扩展名
'*******************************************************
function GetFileExt(sFileName)
GetFileExt = UCase(Mid(sFileName,InStrRev (sFileName, ".")+1))
End function
'*******************************************************
'作 用: ASP上传漏洞 "\0" 防范
'函数名: TrueStr(fileTrue)
'参 数: sFileName 文件名
'返回值: 合法文件返回 True ,否则返回False
'*******************************************************
function IsTrueFileName(sFileName)
dim str_len,pos
str_len=len(sFileName)
pos=Instr(sFileName,chr(0))
If pos=0 or pos=str_len then
IsTrueFileName = true
else
IsTrueFileName = false
End If
End function
'*******************************************************
'作 用: 检测上传的图片文件(jpeg,gif,bmp,png)是否真的为图片
相关文档：
HTML:
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">
<META HTTP-EQUIV="expires" CONTENT="0">
PHP：
header("Expires: Mon, 26 Jul 1997 ......
代码如下：
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
这是最基本的正则替换，有某些特殊字符还没过滤，可自行添加 ......
今天遇到一个asp程序，用ReWrite重写URL后，中文参数乱码，查资料后说是ReWrite所接收的参数自动转为UTF-8，而我的前台页面和数据库都为GB2312格式，后来在网上找了好久，终于找到一个能成功将UTF-8转换为GB2312的函数，函数转换代码如下
<%
function CodeConvert(fileContent)
dim stm
set stm=Server.Crea ......
一、 环境设置
服务器端的环境设置从参考数据上看，微软系列的设置应该都行，即：
1．Win9x+PWS+Office
2．Win2000 Professional+PWS+Office
3．Win2000 Server+IIS+Office
目前笔者测试成功的环境是后二者。Office的版本没有特别需求，考虑到客户机设置的不确定性和下兼容特性，建议服务器端Of ......
由于现在在公司负责制作标准的静态页面，为了增强客户体验，所以经常要做些AJAX效果，也学你也和我一样在，学习AJAX。而设计AJAX时使用的一个重要的技术（工具）就是XMLHTTPRequest对象了。这里海啸把我学习XMLHTTPRequest对象的一点资料拿出来跟大家一起分享。文中的资料都是海啸在学习时在网上收集的，如果您开过，那就再 ......
