📄 admin_listbus.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<% option explicit %>
<!--#include file="admin_check.asp"-->
<!--#include file="function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>车次列表</title>
<style type="text/css">
body,tr,td {
text-align: center;
font-family: 宋体;
font-size: 13px
}
img{CURSOR: hand;}
</style>
<script language="JavaScript">
function delSubmit(){
var flag=false;
for (i=0;i<document.form1.ckbox.length;i++){
if (document.form1.ckbox(i).checked==true){
flag=true;
break;
}
}
if (flag){
document.form1.submit();
}else{
alert("请先选择需要删除的车次!");
}
}
function checkAll(){
for (i=0;i<document.form1.ckbox.length;i++){
document.form1.ckbox(i).checked=true;
}
}
function checkNone(){
for (i=0;i<document.form1.ckbox.length;i++){
document.form1.ckbox(i).checked=false;
}
}
</script>
</head>
<body bgcolor="#E8F3FF" leftmargin="0" topmargin="0">
<table width="100%" height="100%" border="0" bgcolor="#003399" cellpadding="3" cellspacing="1" align="center">
<tr>
<td height="20" background="images/topbg.gif"></td>
</tr>
<tr bgcolor="#7DA4EC">
<td height="25"><strong><font color="#FFFFFF">车次列表--管理员</font></strong></td>
</tr>
<tr bgcolor="#E8F3FF">
<td height="30">
<table width="300" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/choiceAll.gif" border="0" onClick="checkAll()"></td>
<td><img src="images/choiceNone.gif" border="0" onClick="checkNone()"></td>
<td><img src="images/del.gif" border="0" onClick="delSubmit()"></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#E8F3FF">
<td valign="top">
<!--查询结果显示开始-->
<form name="form1" action="admin_del.asp" method="get">
<table width="98%" border="0" bgcolor="#003399" cellpadding="3" cellspacing="1">
<tr bgcolor="#FDDD90">
<td width="30"><strong>状态</strong></td>
<td width="40"><strong>车次</strong></td>
<td><strong>站点</strong></td>
<td width="40"><strong>操作</strong></td>
</tr>
<%
dim busIdList,busStateList
dim i,j
busIdList=getBusidList
for i=0 to ubound(busIdList)
response.Write("<tr bgcolor=""#E8F3FF"" onMouseOver = ""this.style.backgroundColor = '#FFF9EE'"" onMouseOut = ""this.style.backgroundColor = ''"">")
response.Write("<td><input type=""checkbox"" name=""ckbox"" id=""ckbox"" value="""& busIdList(i) &"""></td>")
response.Write("<td>"& busIdList(i) &"</td>")
response.Write("<td><div align=""left"">")
busStateList=getInfoByBusId(busIdList(i))
for j=3 to ubound(busStateList)
response.Write(busStateList(j)+" ")
next
response.Write("</div></td>")
response.Write("<td><a href=""admin_modify.asp?modifyID="& busIdList(i) &"""><img src=""images/modify.gif"" width=""39"" height=""19"" border=""0""></a></td>")
response.Write("</tr>")
next
%>
</table>
</form>
<!--查询结果显示结束-->
</td>
</tr>
<tr bgcolor="#E8F3FF">
<td height="30">
<table width="300" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/choiceAll.gif" border="0" onClick="checkAll()"></td>
<td><img src="images/choiceNone.gif" border="0" onClick="checkNone()"></td>
<td><img src="images/del.gif" border="0" onClick="delSubmit()"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="20" background="images/bottombg.gif"></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -