📄 datetype.asp

📁 ASPTest 网络基础网页设计
💻 ASP
字号:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title> </title>
</head>

<body topmargin="0" leftmargin="0" background="MusicBG.gif">
<%
If Request("mytab") <> "" Then
  Session("mytab") = CStr(Request("mytab"))
End If 
%>
<APPLET CODEBASE="./" NAME="JNaviTab" ARCHIVE="JAVATabF.jar" CODE="JAVATabF.class" WIDTH="397" HEIGHT="26">
  <PARAM NAME="Copyright" VALUE="(c)1997-2000 AUSCOMP (www.auscomp.com)">
  <PARAM NAME="PROXY" VALUE="No">
  <PARAM NAME="IMAGEDIR" VALUE="./">
  <PARAM NAME="TAB_BG" VALUE="255,255,255">
  <PARAM NAME="TAB_FG" VALUE="0,64,128">
  <PARAM NAME="TAB_MOUSEOVER" VALUE="0,64,128">
  <PARAM NAME="TAB_FONT" VALUE="Arial; PLAIN;12">
  <PARAM NAME="TAB_BG_IMAGE" VALUE="MusicBG.gif">
  <PARAM NAME="TABONBOTTOM" VALUE="No">
  <PARAM NAME="SHOWTABSONLY" VALUE="No">
  <PARAM NAME="TAB_DEFAULT" VALUE="<%=Session("mytab")%>">
  <%
  If Request("name") <> "" Then
    Session("rname") = Request("name")
    Session("rtype") = Request("type")
  End If
  strTemp = Hour(Now)&Minute(Now)&Second(Now)
  If Session("mytab") = "" OR Session("mytab") = "0" Then
  %>
    <PARAM NAME="TAB0" VALUE="日数据; None; None; None; None; None; NO">
    <PARAM NAME="TAB1" VALUE="月数据; None; None; None; DateType.asp?mytab=1&temp=<%=strTemp%>; _self; NO">
    <PARAM NAME="TAB2" VALUE="年数据; None; None; None; DateType.asp?mytab=2&temp=<%=strTemp%>; _self; NO">
    <%
  ElseIf Session("mytab") = "1" Then
    %>
    <PARAM NAME="TAB0" VALUE="日数据; None; None; None; DateType.asp?mytab=0&temp=<%=strTemp%>; _self; NO">
    <PARAM NAME="TAB1" VALUE="月数据; None; None; None; None; None; NO">
    <PARAM NAME="TAB2" VALUE="年数据; None; None; None; DateType.asp?mytab=2&temp=<%=strTemp%>; _self; NO">
    <%
  ElseIf Session("mytab") = "2" Then
    %>
    <PARAM NAME="TAB0" VALUE="日数据; None; None; None; DateType.asp?mytab=0&temp=<%=strTemp%>; _self; NO">
    <PARAM NAME="TAB1" VALUE="月数据; None; None; None; DateType.asp?mytab=1&temp=<%=strTemp%>; _self; NO">
    <PARAM NAME="TAB2" VALUE="年数据; None; None; None; None; None; NO">
    <%
  End If
  %>
    	
</APPLET>
<%
If Session("mytab") = "" OR Session("mytab") = "0" Then
  Server.Execute("SelectDay.asp")
ElseIf Session("mytab") = "1" Then
  Server.Execute("SelectMonth.asp")
ElseIf Session("mytab") = "2" Then
  Server.Execute("SelectYear.asp")
End If
%>

</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -