asp获取一个文件夹及其子文件夹下的所有图片地址
原文链接:http://www.iwapr.cn/article/daima/30.html
ASP/Visual Basic代码
<%
dim picurl,all_picurl
'皆是全局变量:分别定义图片的链接地址;所有指定文件夹(包括指定文件夹的子文件夹下图片url地址)
picurl="" '设置图片链接地址默认值为空,为下面的checkfolders()函数执行picurl=picurl&"..."做准备.
Function checkRegExp(strPattern,str) '正则匹配算法,strPattern代表正则表达式,str代表需要查询匹配的字符串
Dim Exp
if str="" or isnull(str) then '检测你要查询的字符串是否为空,如果为空就返回false
checkRegExp=false
end if
Set objExp=New regExp
objExp.pattern=strPattern '指定匹配模板
objExp.ignoreCase=false '是否忽略大小写,这里不忽略,你也可以设置忽略
objExp.Global=True '指定是否全局匹配,这里设置为全局匹配
checkRegExp=objExp.Test(str) '返回查询结果,也可以这样写 return objExp.Test(str)
End function
相关文档：
之前写过一个不用验证码的防注册机方法，使用了将近2年后，彻底失效。
今天偶然撞见一个防止恶意注册的方法，正在思考ing。先把方法列下：
获取客户端提交的信息；
将信息存入 Session；
生成一个随机数（称为 ticket）；
将随机数也存入 Session；
用 JavaScript 的形式将随机数以链接的形式输出，并提示客户点击上� ......
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equi ......
一、这样配置的好处？
不知大家有没有听过旁注？我简单的解释一下吧：有个人想黑掉A站点，但找来找去都没发现可利用的漏洞，无意中他发现与A同服务器上还有个B站点，并且在B站点上找到了可利用的漏洞，于是他将木马从B站中上传至服务器，如果服务器权限配置不当，那么现在他就可以黑掉服务器上的所有站点了！如果我们为� ......
txt文件是下面这样的，
一行一条数据，用逗号分隔
下面写出asp文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--#include file="inc/conn.asp" -->
<%
filespec=server.mappath("txt.txt")
Const ForRead ......
<%
'以下是试用版代码，是固定的代码，只有正式版才可自动从后台数据库中读取图片。
piao1="images/1.jpg"
piao1url=""
piaos1="图1"
piao2="images/2.jpg"
piao2url=""
piaos2="图2"
piao3="images/ ......
