随笔分类 -  ASP

摘要:ASP内置函数DateAdd(interval, number, date) 1、interval标识你要加的日期部分,具体参数如下:yyyy → 年m → 月d → 日h → 小时n → 分钟s → 秒 2、number是你要加的数字,代表秒、分、天等。 3、date是日期,可以是任意时间,若是现 阅读全文
posted @ 2017-04-11 14:30 除除 阅读(7404) 评论(0) 推荐(0) 编辑
摘要:Server.Transfer Transfer 方法把一个 ASP 文件中创建的所有状态信息(所有 application/session 变量以及所有 request 集合中的项目)发送(传输)到另一个 ASP 文件中。 当第二个 ASP 完成任何时,它不会返回到第一个 ASP 页面。 注释:T 阅读全文
posted @ 2017-04-07 10:30 除除 阅读(250) 评论(0) 推荐(0) 编辑
摘要:Microsoft VBScript 运行时错误 错误 '800a01f5' 非法赋值: 'isCloudSpeedupMz' /records/config/class-records.asp,行 970 原代码: isCloudSpeedupMz=rsMz3(column&"_status") 阅读全文
posted @ 2017-03-28 15:26 除除 阅读(368) 评论(0) 推荐(0) 编辑
摘要:conn.open constrSet c=Server.CreateObject("ADODB.Command")With cSet .ActiveConnection = conn.CommandType = 1.CommandText = "Select -- from -- where ?" 阅读全文
posted @ 2017-03-28 08:37 除除 阅读(366) 评论(0) 推荐(0) 编辑
摘要:Set conn=Server.CreateObject("adodb.connection")Set conn1=Server.CreateObject("adodb.connection")Set rs=Server.CreateObject("adodb.Recordset")Set cmd= 阅读全文
posted @ 2017-03-27 09:53 除除 阅读(10537) 评论(0) 推荐(0) 编辑
摘要:HTML: JavaScript: ASP: 阅读全文
posted @ 2017-03-19 22:48 除除 阅读(434) 评论(0) 推荐(0) 编辑
摘要:1、存在 dim d set d=Server.CreateObject("Scripting.Dictionary") d.Add "c", "China" d.Add "i", "Italy" if d.Exists("c")= true then Response.Write("键存在。") 阅读全文
posted @ 2017-03-18 22:44 除除 阅读(881) 评论(0) 推荐(0) 编辑
摘要:<%Function Ceil(value) Dim return return = int(value) Cei2=value-return if Cei2>0 then Ceil = return + 1 else Ceil=value+0'就是Ceil=value多一个+0 强调返回值为数字型 阅读全文
posted @ 2017-03-17 08:38 除除 阅读(1581) 评论(0) 推荐(0) 编辑
摘要:由于ASP不能使用GOTO语句,我在FOR循环中加入一个FOR循环,若需要跳出,即退出最里面那个FOR循环。 DEMO: <%dim aa = 0for i = 1 to 10 for j = 1 to 1 a = a + 1 if i = 5 then 'a=5不会输出 exit for end 阅读全文
posted @ 2017-03-15 08:51 除除 阅读(8210) 评论(0) 推荐(0) 编辑
摘要:上月第一天:<%=dateadd("m",-1,year(date)&"-"&month(date)&"-1")%>上月最后一天:<%=dateadd("d",-1,year(date)&"-"&month(date)&"-1")%>本月第一天:<%=year(date)&"-"&month(dat 阅读全文
posted @ 2017-03-14 08:52 除除 阅读(2032) 评论(0) 推荐(0) 编辑
摘要:Function delHtml(strHtml) '做了一个函数名叫delhtml Dim objRegExp, strOutput Set objRegExp = New Regexp ' 建立正则表达式 objRegExp.IgnoreCase = True ' 设置是否区分大小写 objRe 阅读全文
posted @ 2017-03-10 08:57 除除 阅读(853) 评论(0) 推荐(0) 编辑
摘要:<% x=year(now()) y=year(now())-1 Do While y>2002%><li><a href="#2015" class="treeview-time"><%=y%></a></li><% y=y-1 loop%> 阅读全文
posted @ 2017-03-07 08:32 除除 阅读(171) 评论(0) 推荐(0) 编辑
摘要:Function RegImg(TheStr) Dim RegEx Set RegEx = New RegExp '建立正则表达对象。 RegEx.IgnoreCase =True ' 是否区分大小写,True为不区分且默认 RegEx.Global = True '全部匹配还是只匹配第一个 Reg 阅读全文
posted @ 2017-03-05 00:55 除除 阅读(620) 评论(0) 推荐(0) 编辑
摘要:Public Function GetFormatDate(DateAndTime, para)On Error Resume NextDim y, m, d, h, mi, s, strDateTimeGetFormatDate = DateAndTimeIf Not IsNumeric(para 阅读全文
posted @ 2017-03-05 00:50 除除 阅读(1270) 评论(0) 推荐(0) 编辑
摘要:RS版本: IF(troubleCatalog="1" or troubleCatalog="2" or troubleCatalog="3" or troubleCatalog="4" or troubleCatalog="5" or troubleCatalog="6" or troubleCa 阅读全文
posted @ 2017-03-04 22:55 除除 阅读(275) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示