成人在线精品,国产一区不卡,久久久久爱

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