| On Error Resume Next |
| <% Set fso = Server.CreateObject("Scripting.FileSystemObject") if (fso.FolderExists(Server.MapPath(folder))) then '判断如果存在就不做处理 else '判断如果不存在则建立新文件夹 fso.CreateFolder(Server.MapPath(folder)) end if %> |
| <% function makefilename(fname) fname = fname '前fname为变量,后fname为函数参数引用 fname = replace(fname,"-","") fname = replace(fname," ","") fname = replace(fname,":","") fname = replace(fname,"PM","") fname = replace(fname,"AM","") fname = replace(fname,"上午","") fname = replace(fname,"下午","") makefilename = fname & ".html" end function %> |
| <%fname = makefilename(now())%> |