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