asp时间函数，做日程安排的时候很有用

2019-11-01 14:45:28　

<%
’转化为如2006-8-12的函数
’----------------------------
function getDate(theDay)
getDate=year(theDay)&"-"&month(theDay)&"-"&day(theDay)
end function
’给个日期，算出所在星期的第一天[周日]的年月日
function getFirstWeekDay(F_temp)
do while(weekday(F_temp)<>1)
F_temp=F_temp-1
loop
getFirstWeekDay=getDate(F_temp)
end function
’给个日期，算出所在星期的最后一天[周六]的年月日
function getLastWeekDay(E_temp)
do while(weekday(E_temp)<>7)
E_temp=E_temp+1
loop
getLastWeekDay=getDate(E_temp)
end function
’给个日期，判断今天是星期几
function WeekToChinese(date1)
weeknum = weekDay(date1)
select case weeknum
case "1"
wdata="星期天"
case "2"
wdata="星期一"
case "3"
wdata="星期二"
case "4"
wdata="星期三"
case "5"
wdata="星期四"
case "6"
wdata="星期五"
case "7"
wdata="星期六"
case else
wdata="错误的时间"
end select
WeekToChinese=wdata
end function
’给个日期算出时间小时和分钟，格式如：12：03
function getHourAndMinute(date2)
hour1=cint(hour(date2))
minute1=cint(minute(date2))
if hour1<10 then
hour1="0"&hour1
end if

if minute1<10 then
minute1="0"&minute1
end if

getHourAndMinute=hour1&":"&minute1
end function
’下面是取得标题的通用函数
’用法 getTitle(rs("title"),17,"...") 如果rs("title")的长度大于17则截断后面跟上“...”
function getTitle(title,strlen,replacestr)
if len(title)>strlen then
getTitle=left(title,strlen-2)&replacestr
else
gettitle=title
end if
end function
’字符串表单相关替换操作,写入数据库时替换
Function ChkStr(InString)
If InString<>"" Then
InString = Replace(InString, CHR(10), " ")
InString = Replace(InString, CHR(32), " ")
ChkStr=InString
End If
End Function
’字符串表单相关替换操作,表单编辑时替换
Function showChkStr(InString)
If InString<>"" Then
InString = Replace(InString, " ", CHR(10))
InString = Replace(InString, " ",CHR(32))
showChkStr=InString
End If
End Function
’分页函数开始pSize-每页记录，theRs--rs记录形式
function SetPage(pSize,theRs)
Page=1 ’ 设置变量PAGE=1
theRs.PageSize =pSize ’每页显示记录数
if Not IsEmpty(Request("Page")) then ’如果PAGE已经初始化...
if isnumeric(Request("Page")) then
Page = CInt(Request("Page")) ’接收PAGE并化为数字型赋给PAGE变量
else
Page=1
end if
if Page > theRs.PageCount then ’如果接收的页数大于总页数
theRs.AbsolutePage = theRs.PageCount ’设置当前显示页等于最后页
elseif Page <0 or Page=0 then ’如果page小于等于0
Page = 1 ’设置PAGE等于第一页
else
theRs.AbsolutePage = Page ’如果大于零,显示当前页等于接收的页数
end if
End if
Page = theRs.AbsolutePage
end function
’for i=0 to rs.pagesize
’if rs.eof then
’exit for
’end if
’这里显示循环内容
’rs.movenext()
’next
’显示分页内容，如1 2 3 4 5 6 长度由pagelistnum控制，pageColor为当页颜色
’thePageUrl="products.asp?p_type="&p_type1&"&"
function showPage(rs,thePageUrl,pagelistnum,pageColor)
if Not IsEmpty(Request("Page")) then ’如果PAGE已经初始化...
if isnumeric(Request("Page")) then
Page = CInt(Request("Page")) ’接收PAGE并化为数字型赋给PAGE变量
else
Page=1
end if
if Page > rs.PageCount then ’如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount ’设置当前显示页等于最后页
elseif Page <0 or Page=0 then ’如果page小于等于0
Page = 1 ’设置PAGE等于第一页
else
rs.AbsolutePage = Page ’如果大于零,显示当前页等于接收的页数
end if
End if
response.Write("共 "&rs.recordcount&" 条记录,有 "&rs.pagecount&" 页 ")
if Page>1 and rs.PageCount>0 then %>
<a href="<%= thePageUrl %>Page=1">9</a>
<%
’response.Write("<a href="&thePageUrl&"Page=1>9</a>")
else
response.Write("9")
end if
if Page>1 and rs.PageCount>0 then
%>
<a href="<%= thePageUrl%>Page=<%= (Page\pagelistnum -1)*pagelistnum+1 %>">7</a>
<%
’response.Write("<a href="&thePageUrl&"Page="&Page -1&">7</a>")
else
response.Write("7")
end if
if rs.pagecount<=pagelistnum then
for i=1 to rs.pagecount
if Page=i then
response.Write(" "&i&" ")
else
%>
<a href="<%= thePageUrl %>Page=<%= i %>"><%= i %></a>
<%
’response.Write(" <a href="&thePageUrl&"Page="&i&">"&i&"</a> ")
end if
next
else ’rs.pagecount>10
if Page<=pagelistnum then ’取得10内的记录
for i=1 to pagelistnum
if Page=i then
response.Write(""&i&" ")
else %>
<a href="<%= thePageUrl %>Page=<%= i %>"><%= i %></a>
<%
’response.Write("<a href="&thePageUrl&"Page="&i&">"&i&"</a> ")
end if
next
else ’10以上的处理
if page mod pagelistnum =0 then
page10=(page\pagelistnum-1)*pagelistnum
else
page10=(page\pagelistnum)*pagelistnum
end if
page20=page10+pagelistnum
if page20<rs.pagecount then
page20=page10+pagelistnum
else
page20=rs.pagecount
end if
for i=page10+1 to page20
if Page=i then
response.Write(""&i&" ")
else %>
<a href="<%= thePageUrl %>Page=<%= i %>"><%= i %></a>
<%
’response.Write("<a href="&thePageUrl&"Page="&i&">"&i&"</a> ")
end if
next
end if
end if
if page<rs.PageCount and rs.PageCount>0 and (page-1)\pagelistnum<>rs.pagecount\pagelistnum then
’response.Write("<a href="&thePageUrl&"Page="&Page + 1&">8</a>")
%>
<a href="<%=thePageUrl%>Page=<%if page mod pagelistnum<>0 then response.Write((Page\pagelistnum +1)*pagelistnum+1) else response.Write((Page\pagelistnum)*pagelistnum+1) end if %>">8</a>
<a href="<%= thePageUrl %>Page=<%= rs.PageCount %>">:</a>
<%
else
response.Write("8")
response.Write(":")
end if
end function
%>