'------------------------- '--检查目录是否存在 '---------------------- Function CheckDir(byval FolderPath) dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FolderExists(Server.MapPath(folderpath)) then '存在 CheckDir = True Else '不存在 CheckDir = False End if Set fso = nothing End Function '------------------------- '--建立...
IP限制函数 大家如果还有好的建议算法，就联系我！！：） “****************************** “Function CheckIp(cInput_Ip,cBound_Ip) “Created by qqdao, qqdao@263.net 2001/11/28 “说明：首先需要根据;号循环，然后判断是否含有"-"，如果有则进行拆分处理，最后判断是否在范围内 “参数： cInput_Ip,代检查的ip “ cBound_Ip,给定的范围格式为,单个ip,和范围ip，范围ip最后使用”-“分割，如果是“*”则必须放到最后一位 “ ...
'================================================== '函数名: CheckFile '作 用：检查某一文件是否存在 '参 数：FileName ------ 文件地址 如:/swf/1.swf '返回值：False ---- True '================================================== Public Function CheckFile(FileName) On Error Resume Next Dim FsoObj Set FsoObj = Server.CreateObject("Scripting.FileSystemObject") ...
代码如下:<% '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ '天枫ASP class v1.0，集常用asp函数于一体 '天枫版权所有http://www.gxlsystem.com '所有功能函数名如下： ' StrLength(str) 取得字符串长度 ' CutStr(str,strlen) 字符串长度切割 ' CheckIsEmpty(tstr) 检测是否为空 ' isInteger(para) 整数检验 ' CheckName(str) 名字字符校验 ' CheckPassword(str) 密码检验 ' CheckEmail(email) 邮...
'================================================== '函数名：FpHtmlEnCode '作 用：标题过滤 '参 数：fString ------字符串 '================================================== Function FpHtmlEnCode(fString) If IsNull(fString)=False or fString<>"" or fString<>"$False$" Then fString=nohtml(fString) fString=FilterJS(fString) fString = Replace(fString," "," ") fString = Re...
'================================================== '过程名：SaveRemoteFile '作 用：保存远程的文件到本地 '参 数：LocalFileName ------ 本地文件名 '参 数：RemoteFileUrl ------ 远程文件URL '================================================== Function SaveRemoteFile(LocalFileName,RemoteFileUrl) SaveRemoteFile=True dim Ads,Retrieval,GetRemoteData On Error Resume Next Set Retrieval...
'================================================== '函数名：GetPaing '作 用：获取分页 '================================================== Function GetPaing(Byval ConStr,StartStr,OverStr,IncluL,IncluR) If ConStr="$False$" or ConStr="" Or StartStr="" Or OverStr="" or IsNull(ConStr)=True or IsNull(StartStr)=True Or IsNull(OverStr)=True Then GetPaing="$False$" Exit Function End If Dim Start,Ov...
ASP简洁的多重查询的解决方案 代码如下:'subject 信息标题 'company 发布信息的公司名称 'content 发布信息的内容 'address 公司地址 'infomation 公司简介 'note 相关说明 以上值均由FORM提交，然后通过:subject=trim(Request.Form("subject"))等得到相应的值。 <% '这个函数很关键！--------------------------- Function sql(a,b,sqls) if b<>"" then '如果客户端没有提交此值，则不会产生相应的SQL语句。 sqls=sqls...
ASP函数库 <% '''' 函数目录 '''' ''''-----------------------------------------------'''' '''' 函数ID：0001[截字符串] '''' '''' 函数ID：0002[过滤html] '''' '''' 函数ID：0003[打开任意数据表并显示表结构及内容]'''' '''' 函数ID：0004[读取两种路径] '''' '''' 函数ID：0005[测试某个文件存在否] '''' '''' 函数ID：0006[删除某个文件] '''' '''' 函数ID：0007[判断目录是否存在] '''' ...
<% '名称：asp通用采集函数冗余版，要精品版的有心人自己改 '作者：柳永法 '日期：2007-6-23 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage = BytesToBstr(t, "GB2312") End Function Function GetBody(url) On Error Resume Next Set xmlhttp = CreateObject("Microsoft.XMLHTTP") With xmlhttp .Open "Get", url, False, "", "" .Send .waitForResponse 1000 ...
为方便生成三维饼图函数，我收集了asp下的生成三维饼图的函数的代码，方便大家特殊情况下的使用 代码如下:<% '参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题,单位) function table2(stat_array,table_left,table_top,all_width,all_height,table_title,unit) dim bg_color(10),pie(10) bg_color(1)="#ff1919" bg_color(2)="#ffff19" bg_color(3)="#1919ff" bg_color(4)="#1...
******************** '函数作用:根据条件真假返回选定值中的某个 '参数:blnCondition:条件变量,varResultTrue:条件为真时返回值,varResultFalse:条件为假时返回值 Function IIF(blnCondition, varResultTrue,varResultFalse) If CBool(blnCondition) Then IIF = varResultTrue Else IIF = varResultFalse End If End Function '******************** '函数作用:判断某个字符串元素是否在给定枚举中 '参数:sE...
在JS中有这种用法，某个函数名可以当成参数的形式，传入到另外一个函数内部去，例如： <script type="text/javascript"> <!-- function myFuncA(str,myFuncB){ str = str + " 您好!"; str = myFuncB(str); return str; } function myFuncB(str){ str = str + "欢迎来到IECN.NET"; return str; } alert(myFuncA("张三",myFuncB)); //--> </script> 在VBScript有两种方式可以来实现，即用execute或GetRef 函数。 一、利用execut...
asp之字符串函数示例用字符串函数对字符串进行截头去尾、大小写替换等操作。 函数语法功能LenLen(string|varname)返回字符串内字符的数目，或是存储一变量所需的字节数。TrimTrim(string)将字符串前后的空格去掉LtrimLtrim(string)将字符串前面的空格去掉RtrimRtrim(string)将字符串后面的空格去掉MidMid(string,start,length)从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串...
asp之日期和时间函数示例可以使用日期和时间函数来得到各种格式的日期和时间函数语法说明示例NowNow()取得系统当前的日期和时间Dim MyVar MyVar = Now' MyVar 包含当前的日期和时间。DateDate()取得系统当前的日期Dim MyDate MyDate = Date' MyDate 包含当前系统日期。TimeTime()取得系统当前的时间Dim MyTime MyTime = Time 返回当前系统时间。YearYear(Date)取得给定日期的年份Dim MyDate, MyYearMyDate = #October 19, 1962# 分...