datetypebak.asp

来自「ASPTest 网络基础网页设计」· ASP 代码 · 共 72 行

ASP
72 行
字号 
<html>

<head>
<% 
If Request("name") <> "" Then
%>
<meta http-equiv="Refresh" content="0.5;URL=DateType.asp">
<%
End If
%>
<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

If Request("name") <> "" Then
  Session("rname") = Request("name")
  Session("rtype") = Request("type")
End If  
%>

<table border="0" cellpadding="0" cellspacing="0" width="210" height="20">
<% 
If Session("mytab")="0" OR Session("mytab")="" Then
  %>
  <tr>
    <td width="33%" height="20" align="center" bgcolor="#CACACA"><a href="DateType.asp?mytab=0">日数据</a></td>
    <td width="33%" height="20" align="center" bgcolor="#DDDDDD"><a href="DateType.asp?mytab=1">月数据</a></td>
    <td width="34%" height="20" align="center" bgcolor="#DDDDDD"><a href="DateType.asp?mytab=2">年数据</a></td>
  </tr>
<%
Else If Session("mytab")="1" Then
%>
  <tr>
    <td width="33%" height="20" align="center" bgcolor="#DDDDDD"><a href="DateType.asp?mytab=0">日数据</a></td>
    <td width="33%" height="20" align="center" bgcolor="#CACACA"><a href="DateType.asp?mytab=1">月数据</a></td>
    <td width="34%" height="20" align="center" bgcolor="#DDDDDD"><a href="DateType.asp?mytab=2">年数据</a></td>
  </tr>
  <%
  Else If Session("mytab")="2" Then
  %>
  <tr>
    <td width="33%" height="20" align="center" bgcolor="#DDDDDD"><a href="DateType.asp?mytab=0">日数据</a></td>
    <td width="33%" height="20" align="center" bgcolor="#DDDDDD"><a href="DateType.asp?mytab=1">月数据</a></td>
    <td width="34%" height="20" align="center" bgcolor="#CACACA"><a href="DateType.asp?mytab=2">年数据</a></td>
  </tr>
<%
    End If
  End If
End If
%>  
</table>
<%
If Session("mytab") = "" OR Session("mytab") = "0" Then
  Server.Execute("SelectDay.asp")
Else If Session("mytab") = "1" Then
  Server.Execute("SelectMonth.asp")
Else If Session("mytab") = "2" Then
  Server.Execute("SelectYear.asp")
End If
End If
End If
%>

</body>
</html>

datetypebak.asp - 源码说明

本页面展示了「ASPTest 网络基础网页设计」中的 datetypebak.asp 源码文件，采用 ASP 编程语言编写，共 72 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASPTest相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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