admin_seeall.asp
来自「旅游管理系统 用ASP+SQL 2」· ASP 代码 · 共 120 行
ASP
120 行
<html>
<head>
<title>查看所有的预订情况</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/css1.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" style="background-color: #999999" text="#000000" topmargin="5">
<%if session("administrator")<>"administrator" then
response.Redirect "admin_login.asp"
end if
dim pgae,lxs
page=request("page")
if page="" or not isNumeric(page) then
page=1
end if
%>
<!--#include file="includefile/conn.asp" -->
<!--#include file="includefile/shoubu.asp" -->
<!--#include file="includefile/function.asp" -->
<%
lxs=session("longname")
if lxs="系统管理员" then
sql="select * from giveme order by id desc"
else
sql="select * from giveme where m_lxs='"&trim(lxs)&" 'order by id desc"
end if
rs.open sql,,1,1
if rs.RecordCount=0 then
%>
<br>
<table width="331" border="0" cellspacing="0" cellpadding="0" align="center" class="shizhou">
<tr>
<td height="55" align="center" class="xia">暂时无新的预订</td>
</tr>
</table>
<%
else
rs.PageSize=15
%>
<br>
<table width="755" border="0" cellspacing="0" cellpadding="0" align="center" class="shizhou">
<tr>
<td height="22" align="center">以下是所有的预订情况，共有<b><%=rs.RecordCount%></b>条，每页显示<b><%=rs.PageSize%></b>条，分<b><%=rs.PageCount%></b>页显示。
<%
if rs.PageCount >= 0 then
Response.Write "分页："
for i=1 to rs.PageCount
%>
<a href="admin_seeall.asp?page=<%=i%>">『<%=i%>』</a>
<%
next
end if
%>
</td>
</tr>
</table>
<script language =vbscript ></script>
<br>
<table width="755" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#CCCCCC">
<tr>
<td height="25" width="38" bgcolor="#EFEFEF" align="center">线路ID</td>
<td height="25" width="375" bgcolor="#EFEFEF" align="center">线路名称</td>
<td height="25" width="73" bgcolor="#EFEFEF" align="center">客户名称</td>
<td height="25" width="122" bgcolor="#EFEFEF" align="center">联系电话</td>
<td height="25" width="71" bgcolor="#EFEFEF" align="center">OICQ</td>
<td height="25" width="29" bgcolor="#EFEFEF" align="center">状态</td>
<td height="25" width="39" align="center" bgcolor="#EFEFEF">删除</td>
</tr>
<tr>
<%
dim i
i=0
while not Rs.EOF and i<(page-1)*15
RS.MoveNext
i=i+1
wend
while not Rs.eof and i<page*15
%>
<td height="20" width="38" bgcolor="#FFFFFF" align="center"><%=mfkiqpl(rs("m_id"))%></td>
<td height="20" width="375" onmouseover=me.bgcolor="#F5F5F5" onmouseout="me.bgcolor='#FFFFFF'" bgcolor="#FFFFFF"><a href ="admin_seenew_all.asp?id=<%=rs("id")%>" target="_blank" title="点击这里查看此客户预订的祥细情况"> <%=mfkiqpl(rs("m_xianlu_name"))%></a></td>
<td height="20" width="73" bgcolor="#FFFFFF" align="center"><%=mfkiqpl(rs("m_name"))%></td>
<td height="20" width="122" bgcolor="#FFFFFF" align="center"><%=mfkiqpl(rs("m_phone"))%></td>
<td height="20" width="71" bgcolor="#FFFFFF" align="center"><%=mfkiqpl(rs("m_oicq"))%></td>
<td height="20" width="29" bgcolor="#FFFFFF" align="center"><%if rs("m_show")="1" then%><font color ="#ff0000">新</font><%else%>旧<%end if%></td>
<td height="20" width="39" align="center" onmouseover=me.bgcolor="#F5F5F5" onmouseout="me.bgcolor='#FFFFFF'" bgcolor="#FFFFFF"><a href ="admin_seeall_del.asp?id=<%=rs("id")%>" title="删除">Del</a></td>
</tr>
<%
i=i+1
Rs.MoveNext
wend
end if
%>
</table>
<br>
<table width="755" border="0" cellspacing="0" cellpadding="0" align="center" class="shizhou">
<tr>
<td height="22" align="center">分<b><%=rs.PageCount%></b>页显示。
<%
if rs.PageCount >= 0 then
Response.Write "分页："
for i=1 to rs.PageCount
%>
<a href="admin_seeall.asp?page=<%=i%>">『<%=i%>』</a>
<%
next
end if
rs.close
conn.close
%>
</td>
</tr>
</table>
<br>
<!--#include file="includefile/weibu.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?