关于本站
“最难不过坚持”
本人承接扒站仿站，php网站维护，病毒查杀，网站编辑，网站改版，html制作
有需要网站维护，改版，病毒查杀，网站编辑，网站备案，html制作等相关的工作可以联系我。
本人有多年相关工作经验，也可提供免费咨询，交个朋友。
有需要探讨问题的朋友，也可以加我微信，共同探讨！
微信：15011482830 QQ:408917339
2655
39
分类目录
最新评论
- https://jueru.net/
-
评 留言
- :weixiao:
-
评 留言
- :shuijiao: :weiqu: :zhenbang: :leng:
-
评 留言
- :yiwen: :yiwen: :yiwen: :yiwen:
-
评 EasySass: could not generate CSS file. See Output panel for details.
- 这个业务逻辑多少都有点奇怪了，阅读浏览次数增值在新闻详情页的控制器方法里setInc，这怎么还写进模型事件里了。如果非要用onAfterRead也可以，把新闻文章的内容单独分出来一个news_content表，然后把它和news做关联，然后给news_content表的onAfterRead事件做增值处理，这样点进新闻页内查询到文章内容时才会触发它。
-
评 TP6模型事件-查询后onAfterRead不好用
文章标签更多
打开边栏(ESC)
关闭边栏(ESC)
<%
dim myfilename()
redim myfilename(0)
set fs=Server.CreateObject("Scripting.FileSystemObject")
sub showfile(thefolder)
set fd=fs.getfolder(thefolder)
for each myfile in fd.files
i=ubound(myfilename)
myfilename(i)=fd.path & "\" & myfile.name
redim Preserve myfilename(i+1)
next
for each myfolder in fd.SubFolders '递归记录其它文件夹的文件
call showfile(fd.path & "\" & myfolder.name)
next
end sub
thefolder="F:\ceshi" '在此指定要搜索的文件夹绝对路径，要确定匿名用户有访问的权限，否则会出错
call showfile(thefolder) '过程调用后，查到的文件名包括路径名保存在myfilename数组，
'共ubound(myfilename)个，下标分布在0至ubound(myfilename)-1；
'以下示例把找到文件显示出来
response.write("共找到" & ubound(myfilename) & "个文件<br>")
for i=0 to ubound(myfilename)-1
response.write(i+1 & "--" & myfilename(i) & "<br>")
next
%>
赏
相关推荐
ASP的Base64加密解密函数
<%
OPTION EXPLICIT
const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
dim newline
dim Base64EncMap(63)
dim Base64DecMap(127)
'...
请问这个函数是什么意思 CreateObject("MSXML2.XMLHTTP")
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 ...
评论加载中...
后一篇: ASP判断2个日期之间的大小