select.asp
来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 72 行
ASP
72 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
If Session("UserLevel")<>"Student" Then
Response.Redirect "illegal.asp"
End If
If Request.ServerVariables("CONTENT_LENGTH")<>0 Then
RadioValue=Request.Form("RadioButton")
Select Case RadioValue
Case "radio1"
Response.Redirect "Selectcourse1.asp"
Case "radio2"
Response.Redirect "Selectcourse2.asp"
Case "radio3"
Response.Redirect "Selectcourse3.asp"
Case "radio4"
Response.Redirect "Selectcourse4.asp"
End Select
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<div align="left">
<p> </p>
<p> </p>
<form name="form1" method="post" action="<% =Request.ServerVariables("SCRIPT_NAME") %>">
<p align="center"> </p>
<div align="left"></div>
<table width="73%" border="0">
<tr>
<td height="50"> <div align="center"><font color="#0000FF" size="6" face="华文新魏">请选择选课方式</font><br>
</div></td>
</tr>
<tr>
<td><div align="center"><font color="#0000FF" size="4" face="黑体">按课程编号选择:
<input name="radiobutton" type="radio" value="radio1" checked>
</font></div></td>
</tr>
<tr>
<td><div align="center"><font color="#0000FF" size="4" face="黑体">按课程名称选择:
<input name="radiobutton" type="radio" value="radio2" >
</font></div></td>
</tr>
<tr>
<td><div align="center"><font color="#0000FF" size="4" face="黑体">按课程学分选择:
<input name="radiobutton" type="radio" value="radio3">
</font></div></td>
</tr>
<tr>
<td><div align="center"><font color="#0000FF" size="4" face="黑体">按教师姓名选择:
<input type="radio" name="radiobutton" value="radio4">
</font></div></td>
</tr>
<tr>
<td> <div align="center">
<input type="submit" name="Submit" value="确 定">
</div></td>
</tr>
</table>
<p> </p>
<p> </p>
</form>
<p> </p>
<p> </p>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?