📄 delete.asp
字号:
<!--#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">
名目名称 :</font></div></td>
<td width="180" bordercolor="#336699"><div align="left"><font color="#0099CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
conn.open = connstring
set rs = Server.CreateObject("adodb.recordset")
rs.open "Select * from titles where isactive = true",conn '查询所有的开支名目
%>
<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">
<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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -