admin_seenew.asp

来自「旅游管理系统 用ASP+SQL 2」· ASP 代码 · 共 136 行

ASP
136 行
字号 
<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">
<%
Dim lxs

if session("administrator")<>"administrator" then
response.Redirect "admin_login.asp"
end if
dim pgae
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 where m_show='1' order by id desc"
else
   sql="select * from giveme where m_show='1'and m_lxs='"&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=5
%>
<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_seenew.asp?page=<%=i%>">『<%=i%>』</a> 
      <%
    next
    end if
    %>
    </td>
  </tr>
</table>
<script language =vbscript ></script>
<br>
<%
  dim i
  i=0
	while not Rs.EOF and i<(page-1)*5
	RS.MoveNext
	i=i+1
	wend
	while not Rs.eof and i<page*5
%>
<table width="755" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#CCCCCC">
  <tr> 
    <td bgcolor="#EFEFEF" height="20" width="70" align="center">说明：</td>
    <td bgcolor="#FFFFFF" height="20" width="117">　第<b><%=rs("id")%></b>条预订</td>
    <td bgcolor="#EFEFEF" height="20" width="70" align="center">线路名称：</td>
    <td bgcolor="#FFFFFF" height="20" colspan="5">　<%=rs("m_xianlu_name")%></td>
  </tr>
  <tr> 
    <td bgcolor="#EFEFEF" height="20" width="70" align="center">客户姓名：</td>
    <td bgcolor="#FFFFFF" height="20" width="117">　<%=mfkiqpl(rs("m_name"))%></td>
    <td bgcolor="#EFEFEF" height="20" width="70" align="center">联系电话：</td>
    <td bgcolor="#FFFFFF" height="20" width="96" align="center"><%=mfkiqpl(rs("m_phone"))%></td>
    <td bgcolor="#EFEFEF" height="20" width="70" align="center">线路ID号：</td>
    <td bgcolor="#FFFFFF" height="20" width="107">　<%=rs("m_id")%></td>
    <td bgcolor="#EFEFEF" height="20" width="70" align="center">OICQ：</td>
    <td bgcolor="#FFFFFF" height="20" width="153">　<%=mfkiqpl(rs("m_oicq"))%></td>
  </tr>
  <tr> 
    <td bgcolor="#EFEFEF" height="20" width="70" align="center">EMAIL：</td>
    <td bgcolor="#FFFFFF" height="20" width="117" align="center"><%=mfkiqpl(rs("m_email"))%></td>
    <td bgcolor="#EFEFEF" height="20" width="70" align="center">联系地址：</td>
    <td bgcolor="#FFFFFF" height="20" colspan="3">　<%=mfkiqpl(rs("m_address"))%></td>
    <td bgcolor="#EFEFEF" height="20" width="70" align="center">返程时间：</td>
    <td bgcolor="#FFFFFF" height="20" width="153">　<%=mfkiqpl(rs("m_huanchengtime"))%></td>
  </tr>
  <tr> 
    <td bgcolor="#EFEFEF" height="22" width="70" align="center">预订时间：</td>
    <td bgcolor="#FFFFFF" height="22" width="120" align="center"><%=mfkiqpl(rs("m_yudingtime"))%></td>
    <td bgcolor="#EFEFEF" height="22" width="70" align="center">来游时间：</td>
    <td bgcolor="#FFFFFF" height="22" width="120" align="center"><%=mfkiqpl(rs("m_laiyoutime"))%></td>
    <td bgcolor="#EFEFEF" height="22" align="center" width="70">旅游人数：</td>
    <td bgcolor="#FFFFFF" height="22" width="107">　<%=mfkiqpl(rs("m_renshuo"))%></td>
    <td bgcolor="#EFEFEF" height="22" colspan="2" align="center"><a href ="admin_seenew_all.asp?id=<%=rs("id")%>" target="_blank">点击这里处理此客户预订的祥细内容</a></td>
  </tr>
</table>
<br>
<%

i=i+1
Rs.MoveNext
		wend
end if
%>
<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_seenew.asp?page=<%=i%>">『<%=i%>』</a> 
      <%
    next
    end if
    rs.close
    conn.close
    %>
    </td>
  </tr>
</table>
<br>
<!--#include file="includefile/weibu.asp" -->
</body>
</html>

admin_seenew.asp - 源码说明

本页面展示了「旅游管理系统 用ASP+SQL 2」中的 admin_seenew.asp 源码文件，采用 ASP 编程语言编写，共 136 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?