sedit.asp

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

ASP
68
字号
<!-- #include file="cookies.asp" -->
<!-- #include file="conn.asp" -->
<%
if request.querystring("type")="edit" then
set rs=server.createobject("adodb.recordset")
sql="select * from studentinfo where id="&request.querystring("id")
rs.open sql,conn,1,1
if not rs.eof then
dim student,pass
student=trim(rs("student"))
pass=trim(rs("pass"))
end if
rs.close
set rs=nothing
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
          <form name="form1" method="post" action="seditsave.asp?id=<%=request.querystring("id")%>">
  <div align="center">
    <table width="90%" border="0" cellspacing="0" cellpadding="0">
      <tr> 
        <td height="25" bgcolor="#CCCCCC"> 
          <div align="center"><b>修改考生信息</b></div>
        </td>
      </tr>
    </table>
  </div>
  <div align="center">
    <table width="90%" border="0" height="30">
      <tr> 
        <td width="40%" height="30"> 
          <div align="right">姓名:</div>
        </td>
        <td height="30"> 
          <input type="text" name="student" value="<%=student%>">
        </td>
      </tr>
      <tr> 
        <td width="40%" height="30"> 
          <div align="right">密码:</div>
        </td>
        <td height="30"> 
          <input type="text" name="pass" value="<%=pass%>">
        </td>
      </tr>
    </table>
  </div>
  <div align="center"><br>
    <input type="submit" name="Submit" value="修改">
    <input type="reset" name="Submit2" value="重写">
  </div>
</form>
</body>
</html>
<%else
sql1="delete from studentinfo where id="&request.querystring("id")
conn.execute(sql1)
conn.close
set conn=nothing
response.redirect "ok.asp?type=sdel"
end if
%>

⌨️ 快捷键说明

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