ASP中复制一个文件夹到另一个文件夹的代码

这个业务逻辑多少都有点奇怪了，阅读浏览次数增值在新闻详情页的控制器方法里setInc，这怎么还写进模型事件里了。如果非要用onAfterRead也可以，把新闻文章的内容单独分出来一个news_content表，然后把它和news做关联，然后给news_content表的onAfterRead事件做增值处理，这样点进新闻页内查询到文章内容时才会触发它。: 评 TP6模型事件-查询后onAfterRead不好用

文章标签更多

ThinkPHP (254)

Mysql (58)

DedeCms (33)

jQuery (67)

证件照 (1)

尺寸大小 (2)

背景颜色 (1)

setInc (4)

setDec (4)

onclick (5)

友情链接更多

超纯水设备

免费设计

海报设计

快递查询

打开边栏(ESC) 关闭边栏(ESC)

<% 
Function CopyMyFolder(FolderName,FolderPath) 
	sFolder=server.mappath(FolderName) 
	oFolder=server.mappath(FolderPath) 
	set fso=server.createobject("scripting.filesystemobject") 
	if fso.folderexists(server.mappath(FolderName)) Then'检查原文件夹是否存在 
		if fso.folderexists(server.mappath(FolderPath)) Then'检查目标文件夹是否存在 
			fso.copyfolder sFolder,oFolder 
		Else '目标文件夹如果不存在就创建 
			CreateNewFolder = Server.Mappath(FolderPath) 
			fso.CreateFolder(CreateNewFolder) 
			fso.copyfolder sFolder,oFolder 
		End if 
		CopyMyFolder="复制文件夹["&server.mappath(FolderName)&"]到["&server.mappath(FolderPath)&"]成功!" 
	Else 
		CopyMyFolder="错误,原文件夹["&sFolde&"]不存在!" 
	End If 
	set fso=nothing 
End Function

FolderName="3" '原文件夹
FolderPath="2" '目标文件夹
response.write""&CopyMyFolder(FolderName,FolderPath)&""
%>

赏

前一篇

asp中escape加密UnEscape解密

后一篇

asp中判断修改时间来移动文件到某个文件夹

相关推荐

ASP的Base64加密解密函数

ASP | 2018-07-19 17708

<% OPTION EXPLICIT const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" dim newline dim Base64EncMap(63) dim Base64DecMap(127) '...

请问这个函数是什么意思 CreateObject("MSXML2.XMLHTTP")

ASP | 2018-03-08 5779

private Function getHTTPPage(url) On Error Resume Next Dim http Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.send If http.readyState ...