首页 / ASP / 日期函数扩展类Ver0.1.1

日期函数扩展类Ver0.1.1

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了日期函数扩展类Ver0.1.1，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含4536字，纯文字阅读大概需要7分钟。

内容图文

代码如下:
<%
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'************************** 【日期扩展类】Ver 0.1.1********************************
'开发人: Sman、Net Fetch
'开发日期: 2005-11-11
'版本号: Ver 0.1.1

'官方网站:http://www.gxlsystem.com NetFetchStudio@163.com
'每日在线QQ:19341293 32050450
'版权声明:版权没有,盗版不究,源码公开,欢迎盗版,欢迎你到官方网站来寻求支持。
'如有任何改进之处，麻烦转发或者反馈一份到 huihui3030@126.com、NetFetchStudio@163.com，Thanks!
'详细使用说明或范例请见下载附件或到官方站点或Email联系下载！
'************************************************************************************

Class DateFunEx

 Private d_
 Private firstweekofyear_
 Private firstdayofweek_

 Private Sub class_initialize()
 d_ = date() '默认当前日期
 firstdayofweek_ = 2 'vbMonday
 firstweekofyear_ = 1 '由 1 月 1 日所在的星期开始。
 End Sub

 '属性 setDate 日期
 Public Property Let setDate(value)
 On Error Resume Next
 If IsNumeric(value) Then
 value = Cint(value)
 If len(value)< 3 Then value = "20" & right("0"&value,2)
 value = value & "-1"
 End If
 d_ = cDate(value)
 End Property

 '属性 firstweekofyear 每年的第一周(详细设置请参照VBS手册)
 Public Property Let firstweekofyear(value)
 firstweekofyear_ = cInt(value)
 End Property

 '属性 FirstDayofWeek 每周的第一天(详细设置请参照VBS手册)
 Public Property Let firstdayofweek(value)
 firstdayofweek_ = cInt(value)
 End Property

 '------------------------------
 ' 功能说明:算第几周的星期几是几号
 ' 参数说明:y 年,w周,week 星期 (星期一1 星期天7)
 '------------------------------
 Public Function GetWeekDate(y, w, DayofWeek)
 Dim NewYearDay
 NewYearDay = CDate(y & "-1-1") '元旦
 GetWeekDate = ((NewYearDay - Weekday(NewYearDay, firstdayofweek_)) + (w - 1) * 7 + DayofWeek)
 End Function

 '------------------------------
 ' 功能说明:获得某年某月的天数
 '------------------------------
 Public Function GetMonthDayCount()
 GetMonthDayCount = DateDiff("d", d_, DateAdd("m", 1, d_))
 End Function

 '------------------------------
 ' 功能说明:得到某年某月的第一天
 '------------------------------
 Public Function GetMonthFirstDay()
 GetMonthFirstDay = CDate( Year(d_) & "-" & Month(d_) & "-1")
 End Function

 '------------------------------
 ' 功能说明:得到某年的某月的最后一天
 '------------------------------
 Public Function GetMonthLastDay()
 GetMonthLastDay = CDate( Year(d_) & "-"&Month(d_) & "-" & DateDiff("d", d_, DateAdd("m", 1, d_)))
 End Function

 '------------------------------
 ' 功能说明:某日所在的周的第一天的日期
 '------------------------------
 Public Function WeekFirstDay()
 WeekFirstDay = GetWeekDate(Year(d_), DatePart("ww", d_,firstdayofweek_,firstweekofyear_), 1)
 End Function

 '------------------------------
 ' 功能说明:某日所在的周的第最后一天的日期
 '------------------------------
 Public Function WeekLastDay()
 WeekLastDay = GetWeekDate(Year(d_), DatePart("ww", d_,firstdayofweek_,firstweekofyear_), 7)
 End Function

End Class
%>

测试页面:
代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Test_clsDateFunEx</title>
</head>

<body>

<%
Dim myDateFun,strDate
strDate = "2005-4-1"
Set myDateFun = new DateFunEx
 myDateFun.setDate = strDate
 Response.write "2006年第2周的星期一是几号:" & _
 myDateFun.GetWeekDate(2006,2,1) &" "
 Response.Write "2005年4月的天数:"&_
 myDateFun.GetMonthDayCount & " "
 Response.Write "2005年4月的第一天:"&_
 myDateFun.GetMonthFirstDay & " "
 Response.Write "2005年4月的最后一天:"&_
 myDateFun.GetMonthLastDay & " "
 Response.Write "2005年4月1日所在的周的第一天的日期:"&_
 myDateFun.WeekFirstDay & " "
 Response.Write "2005年4月1日所在的周的第最后一天的日期:" & _
 myDateFun.WeekLastDay & " "
Set myDateFun = Nothing
%>
 
</body>
</html>

日期函数扩展类Ver0.1.1 - 文章图片

下载此文件

内容总结

以上是互联网集市为您收集整理的日期函数扩展类Ver0.1.1全部内容，希望文章能够帮你解决日期函数扩展类Ver0.1.1所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/385114.html

来源：【匿名】

【上一篇】研究动网得到的一些动网参数【下一篇】ASP知识讲座四

更多 ►

【日期函数扩展类Ver0.1.1】教程文章相关的互联网学习教程文章

ASP.NET Core 依赖注入传入带参构造函数

服务在ASP.NET Core依赖注入中的生命周期：Transient 类型的服务在每次注入或请求的时候被创建。Scoped 类型的服务按照作用域被创建。在Web程序中，每个Web请求都会创建新的隔离的服务作用域。这意味着Scoped类型的服务通常会根据Web请求创建。Singleton 类型的服务由DI容器创建。这通常意味着它们根据应用程序仅仅被创建一次，然后用于应用程序的整个生命周期。context.Services.AddTransient<ICompressService>(x=>new CompressS...

asp.ne去除html的函数代码

复制代码代码如下:/// <summary> /// 过滤字符串中的html代码 /// </summary> /// <param name="Str"></param> /// <returns>返回过滤之后的字符串</returns> public static string LostHTML(string Str) { string Re_Str = ""; if (Str != null) { if (Str != string.Empty) { string Pattern = "<\\/*[^<>]*>"; Re_Str = Regex.Replace(Str, Pattern, ""); } } return (Re_Str.Replace("\\r\\n", "")).Replace("\\r", ""); } 原...

ASP正则函数替换分页后的参数

Function DRexPage(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.IgnoreCase=True RegEx.pattern="(\&)?page=(\d)+" DRexPage=regEx.replace(Str,"") ‘(Str,"$1") Set RegEx=Nothing End Function 在分页系统里面用到的把page后面得东西都给丢掉原文：http://www.jb51.net/article/15266.htm

ASP函数：根据表和ID和字段名，返回内容

‘//根据表和ID和字段名，返回内容Function dsf_fieldValueFromTable(fTable,id,fieldName) dim rs,sql set rs=server.createobject("adodb.recordset") sql="select * from " & fTable & " where id=" & id rs.open sql,conn,1,1 if not rs.eof then dsf_fieldValueFromTable=rs(fieldName) end if rs.close set rs=nothingEnd Function原文：http://www.cnblogs.com/dotion/p/3809041.html

asp.net 日期函数某月的第一天和最后一天的日期

#region 得到一个月的第一天和最后一天的日期 /// <summary> /// 得到本月的第一天日期 /// </summary> /// <returns>DateTime</returns> public static DateTime GetFirstDayOfMonth() { return GetFirstDayOfMonth(DateTime.Now); } /// <summary> /// 得到本月的最有一天的日期 /// </summary> /// <returns>DateTime</returns> public static DateTime GetLastDayOfMonth() { return GetLastDayOfMonth(DateTime.Now); } /// <...

ASP.NET常用函数表

Abs(number) 取得数值的绝对值。 Asc(String) 取得字符串表达式的第一个字符ASCII 码。 Atn(number) 取得一个角度的反正切值。 CallByName (object, procname, usecalltype,[args()]) 执行一个对象的方法、设定或传回对象的属性。 CBool(expression) 转换表达式为Boolean 型态。 CByte(expression) 转换表达式为Byte 型态。 CChar(expression) 转换表达式为字符型态。 CDate(expression) 转换表达式为Date 型态。 CDbl(expression)...

asp.net中函数返回参数和调用的实例！（超简单示例）

asp.net中函数返回参数和调用的实例！一、接收 read.aspx.cs调用 string cpuInfo = Read.Pro();二、返回函数，建立一个：read.csusing System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Management; using System.Management.Instrumentation;/// <summary> /// read 的摘要说明 /// </summary> /// public class Read {public Read() { }public static string Pro(){return "ok!...

深入理解asp.net中的 __doPostBack函数【代码】

前段时间做一个.net网站的时候,用到了模拟前端按钮刷新updatePanel进行局部刷新的时候,遇见了这个问题,当时没顾上记下来,查看网上资料,记下来留着以后查看.很早以前，当我刚接触asp.NET开发时，我曾有很多很多的疑问（大概是因为我以前一直做jsp开发，也接触过一段时间的asp，脑海中没有这种基于“控件编程”和“事件编程“模型的缘故吧。当然，如果对于一个长期从事桌面程序开发的人，转型做asp.net--webform当然很轻松。）。当我...

做了CDN获取用户真实IP的函数代码(PHP与Asp设置方式)

asp函数代码：复制代码代码如下:function checkip(checkstring)‘用正则判断IP是否合法dim re1set re1=new RegExpre1.pattern=”^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$”re1.global=falsere1.Ignorecase=falsecheckip=re1.test(checkstring)set re1=nothingend function function get_cli_ip()‘取真实IP函数，先 HTTP_CLIENT_IP 再 HTTP_X_FORWARDED_FOR 再 REMOTE_ADDRdim client_ipif checkip(Request.ServerVariable...

一个非常简单的将半角转换为中文的函数

代码如下:function new_str(str) if instr(str,chr(34))<>0 and str<>"" then str_split=split(str,chr(34)) i=1 str_s="" for j=0 to ubound(str_split)-1 if i mod 2 then str_s=str_s&str_split(j)&"“"&str_split(j+1) else str_s=str_s&str_split(j)&"”"&str_split(j+1) end if i=i+1 next end function

两个小函数让你的ASP程序对SQL注入免疫！

Rem ## 长整数转换 Function toNum(s, default) If IsNumeric(s) and s <> "" then toNum = CLng(s) Else toNum = default End If End Function Rem ## SQL 语句转换 Function toSql(str) If IsNull(str) Then str = "" toSql = replace(str, "''", "''''") End Function 示例: Dim sql Dim strWhere, strName, intAge strName = toSql(request("user")) intAge = toNum(request("age"), 20) sql = "SELECT * FR...

ASP常用函数:IIF()

用法: IIF(条件表达式,为真时返回值,为假时返回值) <% Function IIf(bExp1, sVal1, sVal2) If (bExp1) Then IIf = sVal1 Else IIf = sVal2 End If End Function %>

asp数据库连接函数

代码如下:' ******************************************** ' 以下为数据库相关函数 ' ******************************************** ' ============================================ ' 初始化数据库连接对象 ' 使用原则：最迟调用，最早释放 ' ============================================ Sub DBConnBegin() ' 如果数据库对象已打开，不要再打开 If IsObject(oConn) = True Then Exit Sub ' 你可以不需要打开数据库连接对...

asp连接SQL和Access数据代码(asp里的随机函数)

asp连接sql 第一种写法：代码如下:MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;" Set conn = Server.Createobject("ADODB.Connection") conn.open MM_conn_STRING SET RS=SERVER.CreateObject("ADOBD.recordset") SQL="SELECT * FROM TABLE ORDER BY ID DESC" RS.open SQL,CONN,3,3 常用的函数代码：代码如下:DataServer = "jb51" 数据库服务器IP DataUser = "jb51" 访问数据库用户名 D...

创力采集程序用到的函数推荐第1/3页

代码如下:<% '================================================== '过程名：Admin_ShowChannel_Name '作用：显示频道名称 '参数：ChannelID ------频道ID '================================================== Sub Admin_ShowChannel_Name(ChannelID) Dim Sqlc,Rsc,TempStr ChannelID=Clng(ChannelID) Sqlc ="select top 1 ChannelName from Cl_Channel Where ChannelID=" & ChannelID Set Rsc=server.Creat...

ASP - 技术教程分类

ASP 教程 ASP 简介 ASP 安装 ASP 语法 ASP 变量 ASP 程序 ASP 表单 ASP Cookies ASP Session ASP Application ASP #include ASP Global.asa ASP 发送电子邮件 ASP Response ASP Request ASP Application ASP Session ASP Server ASP Error ASP FileSystem ASP Drive ASP File ASP Folder ASP Dictionary ASP ADO ASP Content Rotator AJAX 简介 AJAX ASP AJAX 数据库 ASP 快速参考 ASP 总结 ASP 实例 asp 全部

ASP - 最热教程

查看ASP详细错误提示信息的图文设置方法 asp实现本周的一周时间列表的代码 asp取得数组中的最大值的方法 ASP实现URL编码 asp中把数据导出为excel的2种方法 ASP模拟POST请求异步提交数据的方法 asp 获取access系统表，查询等操作代码 asp实现二进制字符串转换为Unicode字符...asp php jsp的区别有哪些 ASP常用源代码的总结（下）

首页 / ASP / 日期函数扩展类Ver0.1.1

日期函数扩展类Ver0.1.1

内容导读

内容图文

内容总结

内容备注

内容手机端

【日期函数扩展类Ver0.1.1】教程文章相关的互联网学习教程文章

ASP - 技术教程分类

ASP - 最新教程

ASP - 最热教程