深山工作室 https://www.qwbm.com【asp函数库】

asp利用hasOwnProperty验证某个json中的某个标签是否存在

2020/4/15 15:35:26

在做微信公众号开发时，因为获得的微信传递过来的数据是json格式，特别是在做个性化菜单时相当麻烦，必须要验证某个标签是否存在，如果在存就继续操作，下面就是用到的示例代码。以下是操作示例： '性别 if jsonObject.conditionalmenu.Get(i).matchrule.hasOwnProperty("sex") then onenav_zi_sex = jsonObject.conditionalmenu.Get(i).matchrule.sex '网址 if jsonObject.conditionalmenu.Get(i).button.Get(n).sub_button.Get(y).hasOwnProperty("url") then treenav_url = jsonObject.conditionalmenu.Get(i).button.Get(n).sub_button.Get(y).url Object对象hasOwnProperty方法的作用，如何判断一个JSON对象中是否有某个键key Object

asp用BcO将二进制转八进制然后再OcB将八进制转二进制

2019/11/10 20:46:11

<% 'asp将二进制转十进制，使用方法：cDec(11010) function cDec(num) cDecstr=0 if len(num)>0 and isnumeric(num) then for inum=0 to len(num)-1 cDecstr=cDecstr+2^inum*cint(mid(num,len(num)-inum,1)) next end if cDec=cDecstr end function 'asp将二进制转八进制，使用方法：BcO(010110) function BcO(num) BcO=Oct(cDec(num)) end function 'asp将八进制转二进制，使用方法：OcB(26) function OcB(num) OcBstr="" if len(num)>0 and isnumeric(num) then for i=1 to len(num) select case (mid(num,i,1)) case "0" OcBstr=OcBstr&"00

asp用BcH将二进制转十六进制然后再HcB将十六进制转二进制

2019/11/10 20:44:21

<% 'asp将二进制转十进制，使用方法：cDec(11010) function cDec(num) cDecstr=0 if len(num)>0 and isnumeric(num) then for inum=0 to len(num)-1 cDecstr=cDecstr+2^inum*cint(mid(num,len(num)-inum,1)) next end if cDec=cDecstr end function 'asp将二进制转十六进制，使用方法：BcH(26) function BcH(num) BcH=Hex(cDec(num)) end function 'asp将十六进制转二进制，使用方法：HcB(26) function HcB(num) if len(num)>0 then HcBstr="" for i=1 to len(num) select case (mid(num,i,1)) case "0" HcBstr=HcBstr&"0000" case "1" Hc

asp用cDec将二进制转十进制然后再用cBit将十进制转二进制

2019/11/10 20:41:11

<% 'asp将二进制转十进制，使用方法：cDec(11010) function cDec(num) cDecstr=0 if len(num)>0 and isnumeric(num) then for inum=0 to len(num)-1 cDecstr=cDecstr+2^inum*cint(mid(num,len(num)-inum,1)) next end if cDec=cDecstr end function 'asp将二进制转十进制，使用方法：cDec(11010) function cDec(num) cDecstr=0 if len(num)>0 and isnumeric(num) then for inum=0 to len(num)-1 cDecstr=cDecstr+2^inum*cint(mid(num,len(num)-inum,1)) next end if cDec=cDecstr end function 'asp将十进制转二进制，使用方法：cBit(26) funct

纯asp根据当前日期计算出相应的星座

2019/9/18 22:40:15

以下是asp根据当前日期计算出相应的星座，以下主要是比对日期，以上是演示效果 <% curTime = Now() curYear = Year(curTime) function ren_xingzuo(s_riqi) if s_riqi="" or not isdate(s_riqi) Then exit function s_riqimonth = right("00" & month(s_riqi),2) s_riqiday = right("00" & day(s_riqi),2) s_riqi = trim(s_riqimonth & s_riqiday) '重整月日,0903型 zx_sow = "摩蝎座" '先默认跨年时会使用 if s_riqi>=0120 and s_riqi<=0219 then zx_sow = "水瓶座" if s_riqi>=0220 and s_riqi<=0320 then zx_sow = "双鱼座" if s_riqi>=0321 an

asp采用access数据库搜索信息时因为日文片假名问题提示“Microsoft JET Database Engine 错误80040e14”的解决方法

深山工作室 — 2018/5/29 11:27:36

程序是：asp 数据库：access 在搜索时出现错误： -------------------------------------------- 错误提示： Microsoft JET Database Engine 错误 '80040e14' 内存溢出 -------------------------------------------- 其实ASP下出现80040e14错误一般有两个问题产生的： 1、数据表名使用了保留字； 2、一般出现在搜索like语句下，Access搜索日文片假名或者中文乱码情况下会出现这个错误。 1、数据表名或者字段使用了保留字这个问题就比较简单了，因为不同数据库的保留字是不同的，不过常见的有：ADD、ALL、ALTER、AND、BETWEEN、COLUMN、Count、COUNTER、CREATE、DATE、DATETIME、DOUBLE、FUNCTION、GROUP、GUID、INDEX、INSERT、INTO、LEFT、NAME、REAL等等，实在太多了。解决的办法就是将这个数据库表或者字段加上中括号“[]”

asp利用dateadd获得上个月、本月、下个月的第一天和最后一天

深山工作室 — 2018/5/19 9:23:42

ASP获得上个月、本月、下个月的第一天和最后一天的代码______ 上个月第一天：<%=dateadd("m",-1,year(date)&"-"&month(date)&"-1")%>______ 上个月最后一天：<%=dateadd("d",-1,year(date)&"-"&month(date)&"-1")%>______ 本月第一天：<%=year(date)&"-"&month(date)&"-1"%>______ 本月最后一天：<%=dateadd("d",-1,dateadd("m",1,year(date)&"-"&month(date)&"-1"))%>______ 下个月第一天：<%=dateadd("m",1,year(date)&"-"&month(date)&"-01")%>______ 下个月最后一天：<%=dateadd("d",-1,datead

asp随机显示字符长度与类型（可随机显示数字、小写字母、大写字母，可以做为随机密码使用）

深山工作室 — 2018/5/18 16:58:25

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 以下是测试显示12位的随机数： asp纯数字随机数：<%=qwbm_shuijima(18,1)%> asp小写字母随机数：<%=qwbm_shuijima(18,2)%> asp大写字母随机数：<%=qwbm_shuijima(18,3)%> asp数字、小写字母、大写字母随机数：<%=qwbm_shuijima(18,0)%> 以下是测试显示36位的随机数： asp纯数字随机数：<%=qwbm_shuijima(36,1)%> asp小写字母随机数：<%=qwbm_shuijima(36,2)%> asp大写字母随机数：<%=qwbm_shuijima(36,3)%> asp数字、小写字母、大写字母随机数：<%=qwbm_shuijima(36,0)%> <% '（取指定长度随机字符串，0：数字+大小写字母；1：数字 2：小写；2：大写） Func