📄 qita.aspx
字号:
<%
If (Session("Name") is Nothing) Or (Session("Number") is Nothing) Then
Response.Redirect("erro.htm")
End If
%>
<%@ Page Language="VB" Debug=true%>
<%@Import Namespace="System.Web.UI.HtmlControls"%>
<Script runat="server">
Sub Enter_Click(Sender As Object, E As EventArgs)
If Type.value="XML" Then
Session("Course")="XML"
Response.Redirect("Test.aspx")
ElseIf Type.value="ASP" Then
Session("Course")="ASP"
Response.Redirect("Test.aspx")
End If
End Sub
</script>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>考试登陆</title>
</head>
<body>
<p align="right"><br>
<font size="7">在线考试系统</font></p>
<hr>
<form id ="Form" runat="server">
<p align="left">
请选择考试科目:</p>
<p align="left">
<select id="Type" size="1" runat="server">
<option value="XML" selected="TRUE">XML</option>
<option value="ASP">ASP</option>
</select><br>
<br>
<hr></p>
<p align="left"><input id="Click" type="submit" value="开始考试" onServerClick="Enter_Click" runat="server"></p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -