asp经常使用函数(备忘)

时间 2020-11-13

标签 node sql 数组 ide 函数 spa orm server 字符串 get 栏目 ASP 繁體版

原文原文链接

1.数组长度：node

  
  
  
  
   
   
   
   <% 
   
   
   
           Dim grade,i 
   
   
   
           grade=split("1,2,5,10,20,50,100,200,500,1000",",") 
   
   
   
   for i=0 to ubound(grade) 
   
   
   
       response.write grade(i)&"\n" 
   
   
   
   next  
   
   
   
   %>

2.得到插入的idsql

  
  
  
  
   
   
   
   set rs = server.createobject("adodb.recordset") 
   
   
   
           sql="select * from node" 
   
   
   
           rs.Open sql,conn,1,3 
   
   
   
           rs.addnew 
   
   
   
           rs("name") = node_name 
   
   
   
           rs.update 
   
   
   
           rs.movelast 
   
   
   
           node_id = rs("id") 
   
   
   
           rs.close 
  
  
  
  
3.函数返回值，每个月最后一天数组
 ide
   
   
   
   
    
    
    
    <% 
    
    
    
    function getlastday() 
    
    
    
            Dim ThisDate,NextDate 
    
    
    
            ThisDate = Date()  
    
    
    
            NextDate = DateAdd("m", 1, ThisDate)  
    
    
    
            getlastday=Day(DateAdd("d", -1, Year(NextDate) & "-" & Month(NextDate) & "-1")) 
    
    
    
    end function 
    
    
    
            response.write getlastday() 
    
    
    
    %>
    
    
    
     
    
    
    
     
    
    
    
     
    
    
    
     
   
   
   
   

4.时间函数函数
 spa
    
    
    
    
     
     
     
     <% 
     
     
     
     function getnow() 
     
     
     
      
     
     
     
             Dim ThisDate 
     
     
     
             ThisDate = now()  
     
     
     
             getnow=Year(ThisDate)& "-" & Month(ThisDate) & "-" & Day(ThisDate)& " " & Hour(ThisDate) & ":" & Minute(ThisDate)& ":" & Second(ThisDate) 
     
     
     
     end function 
     
     
     
             response.write getnow() 
     
     
     
     %> 
    
    
    
    

    
    
    
    
     
     
     
     5.特殊符号
    
    
    
    
    
    
    
    
     
     
     
     
       常数         值                描述  
     
     
     
     
     
       vbCr         Chr(13)           回车符。  
     
     
     
     
     
       vbCrLf       Chr(13) & Chr(10) 回车符与换行符。  
     
     
     
     
     
       vbFormFeed   Chr(12)           换页符；在 Microsoft Windows 中不适用。  
     
     
     
     
     
       vbLf         Chr(10) 换行符。  
     
     
     
     
     
       vbNewLine    Chr(13) & Chr(10) 或 Chr(10) 平台指定的新行字符；适用于任何平台。  
     
     
     
     
     
       vbNullChar   Chr(0) 值为 0 的字符。  
     
     
     
     
     
       vbNullString 值为 0 的字符串   与零长度字符串 ("") 不一样；用于调用外部过程。  
     
     
     
     
     
       vbTab Chr(9) 水平附签。  
     
     
     
     
     
       vbVerticalTab Chr(11) 垂直附签；在 Microsoft Windows 中不适用。