📄 datetypebak.asp

📁 ASPTest 网络基础网页设计

💻 ASP

字号:

<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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -