📄 manage_ls.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=../DataBase/conn.asp-->
<%
if session("admin_name")="" then
response.Redirect("login.asp")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>租赁车辆信息管理</title>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
.style3 {font-size: 14px;
font-weight: bold;
}
body,td,th {
font-size: 12px;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<link href="../css/mangage.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="230" border="0" align="center">
<tr>
<td><div align="center" class="style3">租赁车辆信息管理</div></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
<form name="form1" method="post" action="">
<table width="530" border="0" align="center">
<tr>
<td width="401">关键字：
<input name="search" type="text" id="search" value="<%=request("search")%>">
<select name="type" id="type">
<option value="Style">类型</option>
<option value="Name">企业名称</option>
<option value="Address">企业地址</option>
</select>
<input type="submit" name="Submit" value="查询">
<% If request("search")<>"" Then %>
<input name="Submit2" type="button" onClick="MM_goToURL('self','Manage_ls.asp');return document.MM_returnValue" value="返回">
<% End If %>
</td>
<td width="119" align="right"><a href="javascript:" onClick="javascript:window.open('Manage_lsadd.asp','','width=380,height=230,toolbar=no,location=no,status=no,menubar=no')">添加企业信息</a></td>
</tr>
</table>
</form>
<table width="530" border="0" align="center" cellspacing="1">
<tr bgcolor="#595859" class="css">
<td width="148" height="23"><div align="center" class="style1"></div>
<div align="center" class="style1">类型</div></td>
<td width="127"><div align="center" class="style1">企业名称</div></td>
<td width="135"><div align="center" class="style1">联系电话</div></td>
<td width="107"><div align="center" class="style1">操作</div></td>
</tr>
<tr class="css">
<td bgcolor="#FFFFFF" colspan="4">
<%
if request("del")<>"" then
sql1="delete from tb_Enterprise where id="&request("del")
conn.execute(sql1)
end if
shum=30
if request("search")<>"" then
set rs=server.CreateObject("ADODB.Recordset")
sql="Select * from tb_Enterprise where "&request("type")&" like '%"&request("search")&"%' order by id desc"
rs.open sql,conn,1,1
else
set rs=server.CreateObject("ADODB.Recordset")
sql="Select * from tb_Enterprise order by Style desc"
rs.open sql,conn,1,1
end if
if not rs.eof then
tel=rs.recordcount
rs.pagesize=shum
maxpage=rs.pagecount
requestpage=clng(request("p"))
if requestpage="" or requestpage=0 then
requestpage=1
end if
if requestpage>maxpage then
requestpage=maxpage
end if
if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.eof
%>
<table width="100%" border="0" cellspacing="0">
<tr>
<td width="29%"><div align="center" class="css"></div>
<div align="center" class="css"><%=rs("Style")%></div></td>
<td width="24%"><div align="center" class="css"><%=rs("Name")%></div></td>
<td width="26%"><div align="center" class="css"><%=rs("Phone")%></div></td>
<td width="11%"><div align="center"><a href="javascript:" onClick="javascript:window.open('Manage_lsopen.asp?id=<%=rs("id")%>','','width=380,height=230,toolbar=no,location=no,status=no,menubar=no')">详细</a> </div></td>
<td width="10%"><div align="center"><a href="Manage_ls.asp?del=<%=rs("id")%>&p=<%=requestpage%>" onClick="return confirm('你真的删除吗？')">删除</a></div></td>
</tr>
</table>
<%
Rs.MoveNext
if rs.eof then exit for
next
Rs.Close
Set Rs=Nothing
else
response.Write("暂无车辆信息")
end if
%>
</td>
</tr>
<tr bgcolor="#F0F0F0">
<td height="24" colspan="4">
<div align="right"><span class="css">共<%= maxpage %>页 当前页：<%= requestpage %>
<%if request("search")<>"" then%>
<a href="Manage_ls.asp?p=<%=requestpage-1%>&search=<%=request("search")%>&type=<%=request("type")%>">上一页</a> <a href=Manage_ls.asp?p=<%=requestpage+1%>&search=<%=request("search")%>&type=<%=request("type")%>>下一页</a></span> </div>
<% Else %>
<a href="Manage_ls.asp?p=<%=requestpage-1%>">上一页</a> <a href=Manage_ls.asp?p=<%=requestpage+1%>>下一页</a>
<% End If %>
</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -