admin_masterlook.asp

机票订票系统,使用ASP

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<meta http-equiv="refresh" content="30; text/html; charset=gb2312" >
<%
managemode
dim action
action=trim(request("action"))
select case action
case "looknew"
looknew
case "lookall"
lookall
case "delok"
delok
case else
response.write("<script>alert('错误的传递参数！');history.back(1);</script>")
end select

sub looknew
dim pmcount,pageno
%>
<style type="text/css">
<!--
.style1 {
	color: #FF0000;
	font-weight: bold;
}
-->
</style>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr align="center" bgcolor="#f5f5f5">
    <td height="25" colspan="6"><span class="style1">新的预定信息</span></td>
  </tr>
  <tr align="center" bgcolor="#f5f5f5">
    <td width="90" height="25">联系人姓名</td>
    <td width="100">预订时间</td>
    <td width="120">联系人电话</td>
    <td width="79">预定人数</td>
    <td width="110">预订详情</td>
    <td width="112">处理人</td>
  </tr>
<%
set rs=Server.CreateObject("ADODB.recordset")	
sql="select * from yuding where 是否最新=false order by 订票时间 desc"
rs.open sql,conn,1,1
rcount=rs.recordcount
if pmcount="" or isempty(pmcount) or pmcount<1 then
        pmcount=10
end if
rs.pagesize=pmcount   	'设置每页数
mpage=rs.pagecount    	'得到总页数
pageno=request("pageno")
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
	pageno=1
end if
if rs.eof then
response.write("<tr align=""center""><td height=""24"" colspan=""6"" bgcolor=""#FFFFFF"">暂无新的预订！</td></tr>")
else
rs.absolutepage=pageno	'将指针移至指定页的第一条记录
loopno=pmcount
do while not rs.eof and loopno>0
%>
  <tr align="center">
    <td width="90" height="24" bgcolor="#FFFFFF"><%=mfkiqpl(rs("联系人"))%></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("订票时间"))%></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("联系电话"))%></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("预订数量"))%></td>
    <td bgcolor="#FFFFFF"><a href="listyuding.asp?id=<%=rs("id")%>" title="<%=rs("联系人")%>的订票信息" target=_blank>查看详情</a></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("处理人"))%></td>
  </tr>
<%
rs.movenext
loopno=loopno-1
loop
closers(rs)
%>
  <tr bgcolor="#FFFFFF">
    <td height="26" colspan="7" align="center"><div align="right">共 <%=cstr(rcount)%> 条信息 当前第 <%=cstr(pageno)&"/"&cstr(mpage)%> 页 每页 <%=pmcount%> 条
        <%
							if cint(pageno)>1 then%>
[ <a href='admin_masterlook.asp?action=looknew&amp;pageno=<%=pageno-1%>'>上一页</a> ]
<%
							end if
							if cint(pageno)<cint(mpage) then
							%>
[ <a href='admin_masterlook.asp?action=looknew&amp;pageno=<%=pageno+1%>'>下一页</a> ]
<%end if%>
&nbsp;&nbsp;</div></td>
  </tr>
</table>
<%
end if
%>
<table width="618" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="24" align="center" bgcolor="#f5f5f5"><input type="button" name="Submit" value="刷 新" onclick="window.location.reload();"></td>
  </tr>
</table>
<%
end sub
sub lookall
set rs=Server.CreateObject("ADODB.recordset")
%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr align="center" bgcolor="#f5f5f5">
    <td height="25" colspan="6"><strong><font color="#FF0000"">所有预定信息</font></strong></td>
  </tr>
  <tr align="center" bgcolor="#f5f5f5">
    <td width="125" height="25">联系人姓名</td>
    <td width="127">预订时间</td>
    <td width="128">联系人电话</td>
    <td width="96">预定人数</td>
    <td width="136">预订详情</td>
    <td width="136">处理人</td>
  </tr>
<%
sql="select * from yuding order by 订票时间 desc"
rs.open sql,conn,1,1
rcount=rs.recordcount
if pmcount="" or isempty(pmcount) or pmcount<1 then
        pmcount=10
end if
rs.pagesize=pmcount   	'设置每页数
mpage=rs.pagecount    	'得到总页数
pageno=request("pageno")
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
	pageno=1
end if
if rs.eof then
response.write("<tr align=""center""><td height=""24"" colspan=""6"" bgcolor=""#FFFFFF"">暂时没有预定信息！</td></tr>")
else
rs.absolutepage=pageno	'将指针移至指定页的第一条记录
loopno=pmcount
do while not rs.eof and loopno>0
%>
  <tr align="center">
    <td width="125" height="24" bgcolor="#FFFFFF"><%
if not rs("是否最新") then
response.write("<img src=../images/mfk34.gif>")
end if
%><%=mfkiqpl(rs("联系人"))%></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("订票时间"))%></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("联系电话"))%></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("预订数量"))%></td>
    <td bgcolor="#FFFFFF"><a href="listyuding.asp?id=<%=rs("id")%>" title="<%=rs("联系人")%>的订票信息" target=_blank>查看详情</a></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("处理人"))%>&nbsp;</td>
  </tr>
<%
rs.movenext
loopno=loopno-1
loop
closers(rs)
%>
  <tr bgcolor="#FFFFFF">
    <td height="26" colspan="7" align="center"><div align="right">共 <%=cstr(rcount)%> 条信息 当前第 <%=cstr(pageno)&"/"&cstr(mpage)%> 页 每页 <%=pmcount%> 条
        <%
							if cint(pageno)>1 then%>
[ <a href='admin_masterlook.asp?action=lookall&amp;pageno=<%=pageno-1%>'>上一页</a> ]
<%
							end if
							if cint(pageno)<cint(mpage) then
							%>
[ <a href='admin_masterlook.asp?action=lookall&amp;pageno=<%=pageno+1%>'>下一页</a> ]
<%end if%>
&nbsp;&nbsp;</div></td>
  </tr>
</table>
<%end if%>
<%
end sub
manageend
%>