📄 car_admin.asp

📁 办公自动化系统适用于办公室的各种几本功能的操作功能比较简单

💻 ASP

字号:

<!--#include file="../inc/Secure.asp"-->
<%dim ThisKey
ThisKey = "e"
%>
<!--#include file="../inc/permission.asp"-->
<!--#include file="../inc/connection.asp"-->

<HTML>
<HEAD>
<TITLE>  </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
</HEAD>
<%
CarID=trim(request("CarID"))
todo=trim(request("todo"))
if todo="delete" and Carid<>"" then
Conn.execute "delete tblCar where ID="& Carid
end if
%>
<BODY BGCOLOR="#FFFFFF">
<div align=center>
<table border=1 cellpadding=3 cellspacing=0 width="95%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999">
<tr><td colspan=5>
<INPUT TYPE="button" name="cmdreturn" value="返  回" class="font9boldwhite" onclick="javascript:window.location.href='car_index.asp'">
<INPUT TYPE="button" name="cmdreturn" value="添加新项" class="font9boldwhite" onclick="javascript:window.location.href='car_addnew.asp'">
</td></tr>
<tr bgcolor=#CCCCCC>
<td>车辆</td>
<td>型号</td>
<td>负责人</td>
<td>可乘坐人数</td>
<td colspan=2>&nbsp;</td>
</tr>
<%
set rs=server.createobject("Adodb.recordset")
sql="select * from tblCar where ID>0 Order by name"
rs.open sql,Conn
while not rs.eof
carID=trim(rs("ID"))%>
<tr>
<td><%=trim(rs("name"))%></td>
<td><%=trim(rs("model"))%>&nbsp;</td>
<td><%=trim(rs("owner"))%>&nbsp;</td>
<td><%=trim(rs("contain"))%>&nbsp;</td>
<td><a href="car_addnew.asp?carID=<%=trim(rs("ID"))%>">修改</a></td>
<td><a href="car_admin.asp?todo=delete&carID=<%=trim(rs("ID"))%>" onclick="return CheckDelete();">删除</a></td>
</tr>
<%rs.movenext
wend
rs.close
set rs=nothing%>
</table>
</div>
</BODY>
</HTML>
<script language=javascript>
function CheckDelete()
{
	return confirm("确实删除吗？");
}
</script>
<!--#include file="../inc/connclose.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -