当前位置: 首页 > 图文教程 > 网络编程 > ASP > 功能非常全面的日期处理函数

ASP
asp+的页面指示标识
asp+文件上传增强实例
让ASP也可以连接MYSQL
ASP文件操作--列出目录及文件
将站点加入频道栏源代码
如何在页面上动态的生成 WebForm控件
避免表单的重复提交又一方法（js）
灵活实用的页面广告实例
如何用javascript识别Netscape 6 浏览器
使用javascript实现邮箱快速登录的方法!!
如何从数据库得到一个列表表单
使用Cookie来跟踪用户
用DHTML来模拟实现下拉菜单
javascript做的数据校验（校验IP地址等）
通过网络域名得到这台主机的IP地址
如何在ASP中使用类
SQL Server中单引号的两种处理技巧
Display data From database into 2 Column
存储过程对页面访问速度的影响
在ASP中使用类

No. « 180 181 182 183 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 68 ::
收藏到网摘: n/a

  <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
    
  strTemp = "<select name='" & strName& "' onchange='javascript: fnSubmit(" & chr(34) & strSelfLink & chr(34) & ")'>" & vbcrlf            
  strTemp = strTemp & "<option value='" & 0 & "'>" & "Year" & "</option>" & vbcrlf