06_03.asp

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

ASP
21
字号
<html>
<head>
<title>Transfer方法实例</title>
</head>
<body>
<%
Dim i
i = hour(now)
If i <= 6 Then  
  Server.Transfer("06_02a.asp")
ElseIf i > 6 and i < 12 Then
  Server. Transfer("06_02b.asp")
ElseIf i >= 12 and i < 18 Then
  Server.Transfer("06_02c.asp")
ElseIf i >= 18 and i<24 Then
  Server.Transfer("06_02d.asp")
End If
Response.Write "<br>欢迎访问本站"
%>
</body>
</html>

⌨️ 快捷键说明

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