基本函数 date() 获取日期，格式：2004-2-28 time() 获取时间，格式：22:24:59 now() 获取日期和时间 格式： 2005-5-2 22:37:30 使用方法： d=date() 获取年份：year(d) 获取月份：month(d) 获取日子：day(d) 获取星期几：weekday(d) t=time() 获取小时：hour(t) 获取分钟：minute(t) 获取秒数：second(t) ======================================== 日期相加函数：DateAdd(interval, number, date) 可用该函数从日期中添加或减去指...
DatePart 的语法是 DatePart(interval, date)，用以取 date 的某部分。 interval yyyy：date 中的年 m：date 中的月 d：date 中的日 h：date 中的时 n：date 中的分 s：date 中的秒 q：date 位于该年的第几季度，比如 2009-6-29 位于第 2 季度。 y：date 位于该年中的第几天，比如 2009-6-29 位于第 180 天。 w：date 位于一周的第几天（默认星期日为第一天），比如 2009-6-29 位于第 2 天。 ww：date 位于该年中的第几周，比如 20...
ASP中DateAdd函数用法 2006/09/22 12:29 注意vbs中和sql中写法略有不同,以下帖出的为vbs帮助。 sql的可搜索sql自带帮助文档 字符串表达式，表示要添加的时间间隔。有关数值，请参阅"设置"部分。 返回已添加指定时间间隔的日期。 DateAdd(interval, number, date) 参数 interval 必选项。 number 必选项。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。 date 必选项。...
1. 支持参数纯汉字 ?a=深山老熊 2. 支持参数gb2312 Urlencode编码： ?a=%C9%EE%C9%BD%C0%CF%D0%DC 3. 支持参数UTF-8 Urlencode编码: ?a=%E6%B7%B1%E5%B1%B1%E8%80%81%E7%86%8A 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit Const YXCMS_CHARSET = "UTF-8" Const YXCMS_CODEPAGE = 65001 Response.CharSet = "UTF-8" Session.CodePage = 65001 测试URL ?n1=深山老熊&n2=%C9%EE%C9%BD%C0%CF%D0%DC&n3=%E...
asp判断服务器是否安装了某个组件，也就是是否安装了某个dll文件，判断某个组件是否在服务器注册了，asp组件很多，它的判断可以减少很多asp错误，主要是用下面的函数： 代码如下:<% 功能:检查是否存在系统组件或组件是否安装成功 参数:组件名 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then Is...
一、常用的ASP时间函数 1、now() 获取当前系统日期和时间,ASP输出格式：<%=now()%> 2、Year(now()) 获取年份， ASP输出格式：<%=Year(now())%> 3、Month(now()) 获取当前月份，ASP输出格式：<%=Month(now())%> 4、day(now()) 获取当天数，ASP输出格式：<%=day(now())%> 5、hour(now())获取小时数，ASP输出格式：<%=hour(now())%> 6、Minute(now()) 获取分钟数，ASP输出格式：<%=Minute(now())%> 7、Second(now()) 获取秒钟数，ASP输...
代码如下:'过程：输出字符串[代替Response.Write] Sub echo(Str) response.Write(Str) End Sub '函数：获取表单[代替Request.Form] Function reqf(Str) reqf = Request.Form(Str) End Function '过程：结束页面并输出字符串 Sub die(Str) response.Write(Str) response.End() End Sub '函数：将ASP文件运行结果返回为字串 Function ob_get_contents(Path) Dim tmp, a, b, t, matches, m Dim Str Str = file_iread(Path) tmp = "dim...
代码如下:函数：空值测试 Function inull(Val) Dim tmp tmp = False If IsNull(Val) Then tmp = True ElseIf IsEmpty(Val) Then tmp = True ElseIf Trim(Val) = "" Then tmp = True End If inull = tmp End Function 测试变量是否为空值，空值的含义包括：变量不存在/为空，对象为Nothing，0，空数组，字符串为空 Function IsBlank(ByRef Var) IsBlank = False Select Case True Case IsObject(Var) If Var Is Nothing Then IsBla...
下面这段代码，不会替换ld<sad中间的<，所以内容仍然是正常的 代码如下:<% function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.[^\<]*\>)" str=re.replace(str," ") re.Pattern="(\<\/[^\<]*\>)" str=re.replace(str," ") str=replace(str," ","") str=replace(str," ","") nohtml=str set re=nothing end function str="<title>sadjksjdl脚本之家欢迎你sajdljsald<sadsadsad<br...
过程名：catch(str) 使用方法： 代码如下:on error resume next 你的代码，如数据库连接 call catch("显示给用户的提示信息") 功能：清除IIS的错误提示信息，自定义错误提示返回给用户，并将出错信息保存到txt文件（当然你也可以稍做修改转向自定义页面等） 代码： 代码如下:<% option explicit 例一--------------------------- 必须和on error resume next一起使用，但在网页没有正式发布之前最好将其注释掉，以免在调试时看不...
代码如下:获取参数值 Function getForm(element,ftype) Select case ftype case "get" getForm=trim(request.QueryString(element)) case "post" getForm=trim(request.Form(element)) case "both" if isNul(request.QueryString(element)) then getForm=trim(request.Form(element)) else getForm=trim(request.QueryString(element)) End Select getForm=replace(getForm,CHR(34),""") getForm=replace(getForm,CHR(39),"") End ...
FSO文件（File）对象属性 DateCreated 返回该文件夹的创建日期和时间 DateLastAccessed 返回最后一次访问该文件的日期和时间 DateLastModified 返回最后一次修改该文件的日期和时间 Drive 返回该文件所在的驱动器的Drive对象 Name 设定或返回文件的名字 ParentFolder 返回该文件的父文件夹的Folder对象 Path 返回文件的绝对路径，可使用长文件名 ShortName 返回DOS风格的8.3形式的文件名 ShortPath 返回DOS风格的8.3形式的文件绝对...
Fix(number) 和 Int(number) 都是返回数字的整数部分。 number 为正数时，二者返回值一样。比如：Fix(3.6)=3，Int(3.6)=3。 number 为负数时，Fix 直接去除小数部分，Int 返回小于或等于 number 的第一个负整数。比如：Fix(-3.6)=-3，Int(-3.6)=-4。 Round(number, numdecimalplaces)，第二个参数表示从小数点右边第几位开始实行四舍五入，可以省略，默认是0，即四舍五入返回整数。CInt(number) 利用四舍五入的方式删除小数部分。 ...
1、'UTF转GB---将UTF8编码文字转换为GB编码文字 代码如下:function UTF2GB(UTFStr) for Dig=1 to len(UTFStr) 如果UTF8编码文字以%开头则进行转换 if mid(UTFStr,Dig,1)="%" then UTF8编码文字大于8则转换为汉字 if len(UTFStr) >= Dig+8 then GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9)) Dig=Dig+8 else GBStr=GBStr & mid(UTFStr,Dig,1) end if else GBStr=GBStr & mid(UTFStr,Dig,1) end if next UTF2GB=GBStr end function...
CDbl 函数 返回表达式，此表达式已被转换为 Double 子类型的 Variant。 CDbl(expression) expression 参数是任意有效的表达式。 说明 通常，您可以使用子类型数据转换函数书写代码，以显示某些操作的结果应当被表达为特定的数据类型，而非默认的数据类型。例如在出现货币或整数运算的情况下，使用 CDbl 或 CSng 函数强制进行双精度或单精度算术运算。 CDbl 函数用于进行从其他数据类型到 Double 子类型的国际公认的格式转换。例如，...