ASP无组件上载,带进度条,多文件上载。。
objFso.FileExists(xmlPath) Then
objFso.DeleteFile(xmlPath) End If Set objFso = Nothing End Sub Private Function GetFilePath(FullPath) If FullPath <> "" Then GetFilePath = left(FullPath,InStrRev(FullPath, "")) Else GetFilePath = "" End If End Function Private Function GetFileName(FullPath) If FullPath <> "" Then GetFileName = mid(FullPath,InStrRev(FullPath, "")+1) Else GetFileName 上一篇:支持多风格变换的ASP分页类 下一篇:安装JDK 就可同时运行PHP和Java? 更多相关文章
|
推荐文章
精彩文章
|