ASP
除除z
不知不问
展开
-
ASP查询数据RS转换成COMMAND
RS版本:IF(troubleCatalog="1" or troubleCatalog="2" or troubleCatalog="3" or troubleCatalog="4" or troubleCatalog="5" or troubleCatalog="6" or troubleCatalog="7" or troubleCatalog="8" or troubleCatalog=原创 2017-05-16 17:08:03 · 219 阅读 · 0 评论 -
ASP-DateAdd时间增加
ASP内置函数DateAdd(interval, number, date)1、interval标识你要加的日期部分,具体参数如下:yyyy → 年m → 月d → 日h → 小时n → 分钟s → 秒2、number是你要加的数字,代表秒、分、天等。3、date是日期,可以是任意时间,若是现在便是now()。如需增加一年,则:DateAdd("yyyy",1,"2017-04-11 00原创 2017-05-16 17:12:51 · 715 阅读 · 0 评论 -
ASP-Server.Transfer-Response.Redirect
Server.TransferTransfer 方法把一个 ASP 文件中创建的所有状态信息(所有 application/session 变量以及所有 request 集合中的项目)发送(传输)到另一个 ASP 文件中。当第二个 ASP 完成任何时,它不会返回到第一个 ASP 页面。注释:Transfer 方法是 Response.Redirect 的一个高效的替代方案。重定向强制 Web原创 2017-05-16 17:12:24 · 592 阅读 · 0 评论 -
ASP非法赋值
Microsoft VBScript 运行时错误 错误 '800a01f5'非法赋值: 'isCloudSpeedupMz'/records/config/class-records.asp,行 970原代码:isCloudSpeedupMz=rsMz3(column&"_status")原因:没有定义变量。Dim isCloudSpeedupMz后正常运行。原创 2017-05-16 17:11:42 · 362 阅读 · 0 评论 -
ASP-Command-SQL格式
conn.open constrSet c=Server.CreateObject("ADODB.Command")With cSet .ActiveConnection = conn.CommandType = 1.CommandText = "Select -- from -- where --=?".Parameters.Append .CreateParameter("@--",200,1原创 2017-05-16 17:11:36 · 230 阅读 · 0 评论 -
ASP连接数据库SQLServer
Set conn=Server.CreateObject("adodb.connection")Set conn1=Server.CreateObject("adodb.connection")Set rs=Server.CreateObject("adodb.Recordset")Set cmd=Server.CreateObject("adodb.Command")db_host="127.0原创 2017-05-16 17:11:29 · 1588 阅读 · 0 评论 -
ASP-AJAX-分页格式
HTML: 1 html> 2 head> 3 title>Mazeytitle> 4 meta name="description" content="" /> 5 meta name="keywords" content="" /> 6 meta http-equiv="Content-Type" content="text/html; charset=gb2312" />原创 2017-05-16 17:10:28 · 189 阅读 · 0 评论 -
ASP-Dictionary对象-基础用法
1、存在dim dset d=Server.CreateObject("Scripting.Dictionary")d.Add "c", "China"d.Add "i", "Italy"if d.Exists("c")= true then Response.Write("键存在。")else Response.Write("键不存在。")end ifset d=原创 2017-05-16 17:10:00 · 196 阅读 · 0 评论 -
ASP向上取整
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 强调返回值为数字型 End IfEnd Function原创 2017-05-16 17:09:46 · 1336 阅读 · 1 评论 -
ASP获取上月本月下月的第一天和最后一天
上月第一天:上月最后一天:本月第一天:本月最后一天:下月第一天:下月最后一天:原创 2017-05-16 17:09:15 · 1208 阅读 · 0 评论 -
ASP从HTML标签中提取中文
Function delHtml(strHtml) '做了一个函数名叫delhtml Dim objRegExp, strOutput Set objRegExp = New Regexp ' 建立正则表达式 objRegExp.IgnoreCase = True ' 设置是否区分大小写 objRegExp.Global = True '是匹配所有字符串还是只是第一个 objRegExp.Patt原创 2017-05-16 17:08:50 · 367 阅读 · 0 评论 -
ASP渲染下拉框使时间依次减少
x=year(now()) y=year(now())-1 Do While y>2002%> y=y-1 loop%>原创 2017-05-16 17:08:29 · 176 阅读 · 0 评论 -
ASP提取字段中的图片地址
Function RegImg(TheStr) Dim RegEx Set RegEx = New RegExp '建立正则表达对象。 RegEx.IgnoreCase =True ' 是否区分大小写,True为不区分且默认 RegEx.Global = True '全部匹配还是只匹配第一个 RegEx.Pattern = "]*src\s*=\s*['"&原创 2017-05-16 17:08:22 · 759 阅读 · 0 评论 -
ASP日期格式化函数
Public Function GetFormatDate(DateAndTime, para)On Error Resume NextDim y, m, d, h, mi, s, strDateTimeGetFormatDate = DateAndTimeIf Not IsNumeric(para) Then Exit FunctionIf Not IsDate(DateAndTime) The原创 2017-05-16 17:08:18 · 664 阅读 · 0 评论 -
ASP跳出FOR循环
由于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 If Resp原创 2017-05-16 17:09:21 · 1165 阅读 · 0 评论