 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<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 For i = intStartYear To intEndYear If strSelected = CStr(i) Then strSelectedString = "Selected" Else strSelectedString = "" End If strTemp = strTemp & "<option value=\\\'" & i & "\\\' " & strSelectedString & " >" & i & "</option>" & vbcrlf Next strTemp = strTemp & "</select>" & vbcrlf YearDropDown = strTemp End Function Function DayDropDown(strName, intStartDay, intEndDay, strSelected ) Dim strTemp, i, strSelectedString If intStartDay = "" Then intStartDay = 1 End If If intEndDay = "" Then intEndDay = getDaysInMonth(Month(now()),Year(now())) End If strTemp = "<select name=\\\'" & strName& "\\\'>" & vbcrlf strTemp = strTemp & "<option value=\\\'" & 0 & "\\\'>" & "Day" & "</option>" & vbcrlf For i = intStartDay To intEndDay If strSelected = CStr(i) Then strSelectedString = "Selected" Else strSelectedString = "" End If strTemp = strTemp & "<option value=\\\'" & i & "\\\' " & strSelectedString & " >" & i & "</option>" & vbcrlf Next strTemp = strTemp & "</select>" & vbcrlf DayDropDown = strTemp End Function Function getDaysInMonth(strMonth,strYear) Dim strDays Select Case CInt(strMonth) Case 1,3,5,7,8,10,12: strDays = 31 Case 4,6,9,11: strDays = 30 Case 2: If ( (CInt(strYear) Mod 4 = 0 And CInt(strYear) Mod 100 <> 0) Or ( CInt(strYear) Mod 400 = 0) ) Then strDays = 29 Else strDays = 28 End If \\\'Case Else: End Select getDaysInMonth = strDays End Function %> 返回类别: 教程 上一教程: ADO三大对象的属性、方式、事件及常数 下一教程: REQUEST与REQUEST.FORM的速度测试 您可以阅读与"功能异常全面的日期处理函数"相关的教程: · ASP中的日期函数 · ASP中常用的文件处理函数 · 明晰程序非常的来源 ASP错误处理小结 · 带日期标注的日历控件 · ASP写的日志处理方式 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
