delete.asp

来自「基于ASP报表的设计与实现 基于ASP报表的设计与实现 基于ASP报表的设计与实」· ASP 代码 · 共 55 行

ASP
55
字号
<!--#include file="connection.asp"-->
<%
if session("userid") = "" then  '检查权限
	Response.Redirect "login.htm"
end if
%>
<html><head>
<link href="styles.css" rel="stylesheet" type="text/css"> <title>Expenses Management System</title><div align="center">
</head><body>
  <p> </p>
  <table width="309" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0099CC">
    <form name="form1" method="post" action="delete1.asp">
      <tr> 
        <td colspan="0" bordercolor="#336699" bgcolor="#0099CC"><div align="center">
			<font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">
			<strong>删除开支名目</strong></font></div></td>
      </tr>
      <tr> 
        <td> <table>
            <tr> 
              <td width="113" height="24" bordercolor="#336699"> 
                <div align="right">
					<font color="#0099CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">
					名目名称&nbsp; :</font></div></td>
              <td width="180" bordercolor="#336699"><div align="left"><font color="#0099CC" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
                  &nbsp; 
				<%
				conn.open = connstring
				set rs = Server.CreateObject("adodb.recordset")
				rs.open "Select * from titles where isactive = true",conn  '查询所有的开支名目
				%>
                  &nbsp; 
                  <select name="title_id" class = "textbox">
                    <% while not rs.eof  '显示所有的开支名目%>
                    <option value="<%=rs.fields("title_id")%>"><%=rs.fields("title_name")%></option>
                    <% rs.movenext 
						wend %>
                  </select>
				  
				  </font></div></td>
            </tr>
            <tr> 
              <td width="113" bordercolor="#336699"> </td>
              <td height="26" bordercolor="#336699"> <div align="left"> &nbsp;&nbsp;&nbsp; 
                  <input type="submit" name="Submit" value="删除" class="button">
                </div></td>
            </tr>
          </table></td>
      </tr>
    </form>
  </table>
  </div>
<br>
<div align="center"><a href="main.asp">返回</a> </div>
</body></html>

⌨️ 快捷键说明

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