kstypeedit.asp

来自「考试系统asp环境下开发,access数据库」· ASP 代码 · 共 52 行

ASP
52
字号
<!-- #include file="conn.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from kstype where id="&request.form("id")
rs.open sql,conn,1,1
if not rs.eof then
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
  <table width="90%" border="0" cellspacing="0" cellpadding="0" height="25" bgcolor="#CCCCCC">
    <tr> 
      <td> 
        <div align="center"><b>试卷分类编辑</b></div>
      </td>
    </tr>
  </table>
  <table width="90%" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td height="25"> 
        <form name="form1" method="post" action="kstypeeditsave.asp?id=<%=request.querystring("id")%>">
          <div align="center"> 
            <p> 分类名: 
              <input type="text" name="kstype" value="<%=trim(rs("kstype"))%>">
            </p>
            <p>考试时间: 
              <input type="text" name="kstime" size="10" maxlength="3" value="<%=trim(rs("kstime"))%>">
              分钟</p>
            <p>是否开考: 
              <select name="kk">
                <option value="true" <%if rs("kk")="True" then%>selected<%else%>select<%end if%>>是</option>
                <option value="false" <%if rs("kk")="False" then%>selected<%else%>select<%end if%>>否</option>
              </select>
            </p>
            <p> 
              <input type="submit" name="Submit" value="修改">
            </p>
          </div>
        </form>
      </td>
    </tr>
  </table>
</div>
<p align="center">&nbsp;</p>
</body>
</html>

⌨️ 快捷键说明

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