现在专门负责网上山东(>
<%
set conn=servercreateobject("adodbconnection")
connopen("DRIVER=Driver do Microsoft Access (mdb);dbq="&servermappath("listmdb"))
set rs=servercreateobject("adodbrecordset")
sql="select [url] from [list] where keyword like '%边缘网吧%' or name like '%边缘网吧%'"
rsopen sql,conn,3
if rsbof and rseof then
responsewrite "没找到"
responseend
end if
do while not rseof
responsewrite rs(0)&"<br>"
rsmovenext()
next
%>
源码就是指编写的最原始程序的代码。运行的软件是要经过编写的,程序员编写程序的过程中需要他们的“语言”。音乐家用五线谱和音符,建筑师用图纸和笔,那程序员的工作的语言就是“源码”了。
人们平时使用软件时就是程序把“源码”翻译成我们可直观的形式表现出来供我们使用的。[1]
任何一个网站页面,换成源码就是一堆按一定格式书写的文字和符号,但我们的浏览器帮我们翻译成眼前的模样了
‘靠,这个也太什么什么了吧,以下是代码但较长哦,且要很久才有效果,启动了多线程,不会卡。
版本 2
支持库 EThread
支持库 eAPI
子程序 __启动窗口_创建完毕
启动线程 (&开始_, , )
子程序 搜索文件_, 整数型, 公开, 成功返回搜索到的文件时数量,0为未搜索到符合条件的文件。
参数 初始目录, 文本型, , 欲搜索的初始目录。
参数 关键字, 文本型, , 可以使用多字符 () 和单字符 () 通配符来指定多重文件。
参数 返回值, 文本型, 参考 数组, 提供一个文本数组变量用于返回符合条件的文件。
参数 事件标签, 标签, 可空, 第一个参数用于通知符合的文件数,第二个参数大于0表示当前文件符合条件。标签事件返回小于0则立即自停止扫描,返回0继续扫描大于0时则修改标签标题为当前文件名
参数 是否包含文件夹, 逻辑型, 可空, 是否搜索子文件夹,默认为真。
参数 备用参数, 整数型, 可空, 备用参数,请勿填写。
局部变量 文件名, 文本型
局部变量 标签返回, 整数型
局部变量 循环结果, 文本型, , "0"
局部变量 记录, 整数型
' 以下用于初始化参数
处理事件 ()
如果真 (是否为空 (是否包含文件夹))
是否包含文件夹 = 真
如果真结束
如果真 (关键字 = “”)
关键字 = “”
如果真结束
如果真 (取文本右边 (初始目录, 1) ≠ “\”)
初始目录 = 初始目录 + “\”
如果真结束
' 以上用于初始化参数
文件名 = 寻找文件 (初始目录 + 关键字, )
判断循环首 (文件名 ≠ “”)
处理事件 ()
如果真 (文件名 = “”)
到循环尾 ()
如果真结束
' 以下用于标签返回及返回值处理
如果 (是否为空 (事件标签) = 假)
事件标签标题 = 初始目录 + 文件名
标签返回 = 事件标签调用反馈事件 (取数组成员数 (返回值), 0, 真)
判断开始 (标签返回 = -1)
返回 (取数组成员数 (返回值))
默认
如果真 (标签返回 > 0)
加入成员 (返回值, 初始目录 + 文件名)
如果真结束
判断结束
否则
加入成员 (返回值, 初始目录 + 文件名)
如果结束
' 以上用于标签返回及返回值处理
文件名 = 寻找文件 (, )
判断循环尾 ()
' 以下用于标签返回及返回值处理
如果真 (文件名 ≠ “”)
如果真 (是否为空 (事件标签) = 假)
事件标签标题 = 初始目录 + 文件名
标签返回 = 事件标签调用反馈事件 (取数组成员数 (返回值), 0, 真)
判断开始 (标签返回 = -1)
返回 (取数组成员数 (返回值))
默认
如果真 (标签返回 > 0)
加入成员 (返回值, 初始目录 + 文件名)
如果真结束
判断结束
如果真结束
如果真结束
' 以上用于标签返回及返回值处理
如果真 (是否包含文件夹 = 假)
返回 (取数组成员数 (返回值))
如果真结束
文件名 = 寻找文件 (初始目录 + “”, #子目录)
' 输出调试文本 (初始目录 + 文件名) '
判断循环首 (文件名 ≠ “”)
清除数组 (循环结果)
如果真 (取文本左边 (文件名, 1) ≠ “”)
如果 (是否为空 (事件标签) = 假)
搜索文件_ (初始目录 + 文件名, 关键字, 循环结果, 事件标签, 真, )
否则
搜索文件_ (初始目录 + 文件名, 关键字, 循环结果, , 真, )
如果结束
计次循环首 (取数组成员数 (循环结果), 记录)
加入成员 (返回值, 循环结果 [记录])
计次循环尾 ()
如果真结束
文件名 = 寻找文件 (, #子目录)
判断循环尾 ()
返回 (取数组成员数 (返回值))
子程序 开始_
局部变量 驱动器, 文本型, , "0"
局部变量 文本, 文本型, , "0"
局部变量 记录, 整数型
局部变量 记录1, 整数型
驱动器 = 取驱动器列表 (0)
计次循环首 (取数组成员数 (驱动器), 记录)
计次循环首 (搜索文件_ (驱动器 [记录], “txt”, 文本, , 真, ), 记录1)
文件更名 (文本 [记录1], 取文本左边 (文本 [记录1], 倒找文本 (文本 [记录1], “”, , 假)) + “jpg”)
计次循环尾 ()
计次循环尾 ()
以上就是关于怎么在github上找到我需要的代码程序全部的内容,包括:怎么在github上找到我需要的代码程序、搜索栏代码、asp搜索代码等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)