submitsub.asp
来自「1、全面展示宾馆的自然情况和服务内容； 2、介绍宾馆信息,帮助客人了解宾馆相」· ASP 代码 · 共 112 行
ASP
112 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<html>
<style type="text/css">
<!--
.style4 {font-size: 9pt}
-->
</style>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from dd where check=true order by time desc"
rs.open sql,conn,1,1
%>
<body>
<TABLE cellSpacing=1 cellPadding=0 width="794" align=center bgColor=#999999
border=0>
<TR>
<TD width="735" bgcolor="#f0f0f0" id=maintitleback>
<TABLE cellSpacing=0 cellPadding=3 width="100%" border=0>
<TR>
<TD><IMG height=8 src="../images/pics/nav_m.gif" width=8
border=0></TD>
<TD width="100%" height="30" valign="bottom" id=maintitle><span class="t style4">已确认订单管理 -> <strong>查看已确认订单</strong> </span> </TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD id=mainbg>
<TABLE cellSpacing=1 cellPadding=4 width="100%" border=0 height="125">
<TR>
<TD width="13%" height="30" noWrap
background=../images/pics/tile_sub.gif id=titlemedium></TD>
<TD width="17%" noWrap
background=../images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">编号</font></div></TD>
<TD width="17%" height="30" noWrap
background=../images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF"> 预定人 </font></div></TD>
<TD width="11%" height="30" align=middle noWrap
background=../images/pics/tile_sub.gif id=titlemedium> <div align="center"><font color="#FFFFFF"> 人数 </font></div></TD>
<TD width="23%" height="30" align=middle noWrap
background=../images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF"> 日期 </font></div></TD>
<TD width="19%" align=middle noWrap
background=../images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">回复类型</font></div></TD>
</TR>
<% If not rs.eof Then
tol=rs.recordcount
shownum=10
rs.pagesize=shownum
maxpage=rs.pagecount
requestpage=clng(request("p"))
if requestpage="" or requestpage<1 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
%>
<TR>
<TD width="13%" height="30" bgColor=#ffffff><div align="center">
<strong><a href=submore.asp?id=<%=rs("id")%>>详细信息</a></strong></div></TD>
<TD width="17%" height="30" bgColor=#ffffff><div align="center"><%=rs("bianhao")%></div></TD>
<TD width=17% height="30" align=middle bgColor=#ffffff><div align="center"><%= rs("name") %></div></TD>
<TD height="30" align=middle bgColor=#ffffff><div align="center"><%= rs("num") %></div></TD>
<TD width=23% height="30" align=middle bgColor=#ffffff> <div align="center"><%= rs("time") %></div></TD>
<TD width=19% height="30" align=middle bgColor=#ffffff>
<%
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from email where id="&rs("huifu")
rs1.open sql1,conn,1,1
%>
<%= rs1("title") %>
</TD>
</TR>
<%
rs.movenext
if rs.eof then exit for
next
else
response.Write("暂无确认订单！！")
end if
Rs.Close
Set Rs=Nothing
%>
<TR>
<TD height="30" colspan="6" bgColor=#ffffff><div align="center"><img src="../../IMAGES/pics/seperator.gif" width="359" height="1"></div></TD>
</TR>
<TR>
<TD id=mainfoot
colSpan=6 height="30"> <div align="right">共 <%= maxpage %> 页 当前页：<%= requestpage %> <a href=submitsub.asp?p=<%=requestpage-1%>>上一页</a> <a href=submitsub.asp?p=<%=requestpage+1%>>下一页</a> </div></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?