摘要：'======================'获取子分类列表用 逗号隔开childrenIDS=""'SortList(0)function SortList(ParentID)Dim rs : set rs =Exec ("select *,(select count(*) from web_menu where tid=t.id) as c from web_menu t where tid="&ParentID,"r1")If not rs.eof ThenDo While not rs.eof 阅读全文

摘要：贪婪模式在整个表达式匹配成功的前提下，尽可能多的匹配，而非贪婪模式在整个表达式匹配成功的前提下，尽可能少的匹配。属于贪婪模式的量词，也叫做匹配优先量词，包括：“{m,n}”、“{m,}”、“?”、“*”和“+”。在一些使用NFA引擎的语言中，在匹配优先量词后加上“?”，即变成属于非贪婪模式的量词，也叫做忽略优先量词，包括：“{m,n}?”、“{m,}?”、“??”、“*?”和“+?”。非贪婪模式 示例:Function RegExpTest(patrn, strng) Dim regEx, Match, Matches ' 建立变量。 Set regEx = New RegExp &# 阅读全文

摘要：%'当前文件夹路径 server.MapPath("./")'网站根目录server.MapPath("/")Dim strZipFolder ' 待压缩的文件夹Dim strRarFile ' 生成的压缩文件名Dim strUnZipFolder ' 解压文件夹Dim strCmd ' 命令行strZipFolder= Server.MapPath("./") & "\1.txt"strRarFile= Server.MapPath("./") &"\"& "Test.Rar"strUnZipFolder= Server.MapPath("./UnZip") & "\"' 构造命令行'-- 阅读全文

摘要：RegExp就是建立正则的对像。 如: Set regEx = New RegExp regEx.Pattern 就是来设置正则的模式的， 如: regEx.Pattern ＝"/d+" regEx.IgnoreCase = True ' 设置是否区分大小写 regEx.Global = True ' 设置全程可用性。 RegExp对像有3种方法，分别是execute、test、replace。 test方法是对指定的字符串执行一个正则表达式搜索，并返回一个 Boolean 值指示是否找到匹配的模式。RegExp.Global属性对Test方法没有影响。如果找到了匹配的模式，Test方法返回T 阅读全文

摘要：'===================================='得到客户端的IP转换成长整型，返回值getIpvalue Function getIpvalue(clientIP)On Error Resume Next Dim strIp, array_Ip strIp=0 array_Ip = Split(clientIP,".") If UBound(array_Ip)3 Then getIpvalue=0 Exit Function End If For i=0 To 3 strIp=strIp+(CInt(array_Ip(i))*(256^(3-i))) Next 阅读全文

摘要：http://www.wangbinseo.com/catalog.asp?cate=2http://www.jianglikun.com/catalog.asp?cate=5 阅读全文

摘要：通常会在许多网站上进行搜索一些内容，要输入两个或两个以上的词，它的原理是这样的：假设在搜索框search中输入：“asp 编程”先得到输入框中的内容：search=request("search")然后将这两个值分别取出来s=split(search," ")'构造sql函数sql="select * from news"for i=0 to ubound(s) m=m&" or title='"&s(i)&"'"next'在这里会发现得到的m前面多了一个or，所以要去掉m=right(m,len(m)-3)'将m连接到sql语句上sql=sql&" "&m'在使用sql语句rs.open s 阅读全文

摘要：经常在一些大型的论坛上看到一些带有不文明字符的贴子，这些不文明字符被自动替换成***。这里这个函数用来实现这样的功能的，这里这些不文件的字符可以从数据库中读取，这样就可以实现添加这些数据了 % Functioncutbadchar(str) badstr="不|文|明|字|符|列|表|格|式" badword=split(badstr,"|") Fori=0toUbound(badword) Ifinstr(str,badword(i))0then str=Replace(str,badword(i),"***") EndIf Next cutbadchar=str EndFunction 阅读全文

摘要：为了让客户端更快速的访问网站,通常一个大型网站会有许多分站,所以让客户端访问相应的分站,会让客户有更好的体验,这就要用到根据客户端IP地址转向不同的分站。这里面要用到IP数据库，可到网上去下载。IP数据库在此主要用途是根据得到的IP，找到此IP所在的地址。FunctiongetIpvalue(clientIP)'得到客户端的IP转换成长整型，返回值getIpvalueOnErrorResumeNextDimstrIp,array_IpstrIp=0array_Ip=Split(clientIP,".")IfUBound(array_Ip)3ThengetIpvalue=0ExitFunct 阅读全文

摘要：当远程MSSQL数据库更改了端口号，所以连接的代码也要相应的改一下%dimconn,connstrsetconn=server.createobject("adodb.connection")connstr="Provider=sqloledb;DataSource=*.*.*.*,端口号;NetworkLibrary=DBMSSOCN;InitialCatalog=数据库名;UserID=用户名;Password=密码;"conn.openconnstr% 阅读全文

摘要：asp+access用户登录代码,其中huiyuan.mdb数据库名pUser213表名y_username用户名字段，y_password密码字段.login.htm页面headmetahttp-equiv="Content-Type"content="text/html;charset=gb2312"title登录/title/headbodyp/pformname="form1"method="post"action="loginnew.asp"tablewidth="200"border="1"align="center"cellpadding=" 阅读全文

摘要：safe.asp，将此文件包含到每页的顶部，下面就正常使用request，或request.querystring来获取传过来的值了，不需要检测了，因为已经检测过了。%Sql_in="and|or|on|in|select|insert|update|delete|exec|declare|'"'防止GET方法--------------------------------------------------------'区分出注入字符Sql=Split(Sql_in,"|")'如果GET过来的数据不为空IfRequest.QueryString""Then'逐一取出提交过来的参数For 阅读全文

摘要：开始在网上查找到asp的无限分类,但是asp.net的几乎找不到,找到的也是跟TreeView结合起来的.　　找到asp版本的代码有几种,原来都差不多是采用递归算法.　　其中表结构都是如下:　　表名称是ClassName　　id 主键　　sid 对应的父类的id　　ClassName 对应类别的名称.　　代码段一:　　1function loadNextType(upid,rank)　　2 dim... 阅读全文

摘要：描述格式化为日期或时间。 语法FormatDateTime(Date[, NamedFormat])FormatDateTime 函数的语法有以下参数： 参数描述Date必选。要被格式化的日期表达式。NamedFormat可选。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。设置NamedFormat 参数可以有以下值： 常数值描述vbGeneralDate0显示日... 阅读全文

摘要：名称语法功能例句CDateCDate(date)返回date类型的表达式，date 参数是任意有效的日期或字符串表达式。MyDate = "October 19, 1962" MyShortDate = CDate(MyDate)DateDate返回当前系统日期。不带（）MyDate = DateDateAddDateAdd(interval, number, date)　返回已添加指定时间间隔的... 阅读全文

摘要：数据库连接：以下为引用的内容：<%set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")%>打开数据库：以下为引用的内容：exec="select * from 数据库表"set... 阅读全文

摘要：函数 语法 功能 Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从string字符串的start字... 阅读全文

摘要：RegExp就是建立正则的对像。 如: Set regEx = New RegExp regEx.Pattern 就是来设置正则的模式的， 如: regEx.Pattern ＝"/d+" regEx.IgnoreCase = True ' 设置是否区分大小写 regEx.Global = True ' 设置全程可用性。 RegExp对像有3种方法，分别是execute、test、replace。 ... 阅读全文

摘要：sql 查询本周本月问题'今日信息'select * from 表名 where datediff("day",时间字段,getdate())=0'本周信息'select * from 表名 where datediff("ww",时间字段,getdate())=0'本月信息'select * from 表名 where datediff("m",时间字段,getdate())=0'本季度信息's... 阅读全文