sub_add.asp

来自「C# SQL 齐齐哈尔职业学院学生成绩管理系统」· ASP 代码 · 共 67 行

ASP
67
字号
<!--#include file="chkadmin.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<title>学生成绩管理系统</title>
</head>

<body>

<div align="center">
  <center>
  <form method="post" action="sub_add_ok.asp">
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#ffffff" width="100%">
    
    <tr>
      <td width="100%" background="../Images/admin_table_bg.gif" height="25" colspan="2">
      <p align="center"><font color="#FFFFFF">添加科目信息</font></td>
    </tr>
    
    <tr>
          <td width="13%" height="15" bgcolor="#D9E6FF">科目名称:</td>
      <td width="87%" height="15" bgcolor="#D9E6FF">
      <input type="text" name="sub" size="20" tabindex="1"></td>
    </tr>
    <tr>
      <td width="13%" height="15" bgcolor="#D9E6FF">所属专业:</td>
      <td width="87%" height="15" bgcolor="#D9E6FF">
      <select name="proid" tabindex="2">
<%
set fs=server.createobject("adodb.recordset")
fs.open "select * from [pro]",conn,1,1
If fs.RecordCount=0 Then
Response.Write "<option>没有专业</option>"
Else
Do While Not fs.EOF


%>      
      <option value=<%=fs("id")%>><%=fs("xi")&fs("pro")%></option>
<%
fs.MoveNext
Loop
End If
fs.Close
Set fs=nothing
%>
      </select></td>
    </tr>
    
    <tr>
      <td width="13%" height="15" bgcolor="#D9E6FF">
       </td>
      <td width="87%" height="15" bgcolor="#D9E6FF">
      <input type="submit" value="添 加" name="B1" tabindex="3"></td>
    </tr>  
    </table>
    </form>
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

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