当前位置： 移动技术网 > IT编程>开发语言>.net > 功能非常全面的日期处理函数

功能非常全面的日期处理函数

2019年01月12日  | 移动技术网IT编程  | 我要评论

诺查丹玛斯,超级马里奥世界下载,刘诗诗吧

<script language=javascript>
function fnsubmit(strpage)
{
  document.forms[0].action= strpage
  document.forms[0].submit()    
}

</script>
<%

call writedropdowns

sub writedropdowns()
  dim strselflink
  strselflink = request.servervariables("script_name")
  response.write "<form name=dates method=post>" & vbcrlf
  response.write monthdropdown("month1",false,request("month1"),strselflink) & " " & daydropdown("day1", "",getdaysinmonth(request("month1"),request("year1")),request("day1")) & " " & yeardropdown("year1","","", request("year1"),strselflink) & vbcrlf
  response.write "</form>"    & vbcrlf
end sub
        

function monthdropdown(strname, blnnum, strselected, strselflink)
  dim strtemp, i, strselectedstring            
  strtemp = "<select name=" & strname& " onchange=javascript: fnsubmit(" & chr(34) & strselflink & chr(34) & ")>" & vbcrlf
  strtemp = strtemp & "<option value=" & 0 & ">" & "month" & "</option>" & vbcrlf            
  for i = 1 to 12
    if strselected = cstr(i) then
    strselectedstring = "selected"
    else
    strselectedstring = ""
    end if
            
    if blnnum then
      strtemp = strtemp & "<option value=" & i & " " & strselectedstring & " >" & i & "</option>" & vbcrlf            
    else
    strtemp = strtemp & "<option value=" & i & " " & strselectedstring & " >" & monthname(i) & "</option>" & vbcrlf            
    end if
  next                    
  strtemp = strtemp & "</select>" & vbcrlf    
  monthdropdown = strtemp
end function


function yeardropdown(strname, intstartyear, intendyear, strselected, strselflink)
  
  dim strtemp, i, strselectedstring    
  
  if intstartyear = "" then
    intstartyear = year(now())
  end if    
    
  if intendyear = "" then
    intendyear = year(now()) + 9
  end if

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网