📄 manage.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file=include/SETUP.INC -->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="html/guilin.css">
<title>修武云台山商务酒店网站客房预订系统</title></head>
<body bgcolor="#FFFFFF" text="#000000">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: dotted; border-width: 1" bordercolor="#000000" width="642" height="314" id="AutoNumber1" align="center">
<tr>
<td width="638" height="20" bgcolor="#000000"><font color="#FFFFFF"> ·修武云台山商务酒店网站客房预订系统</font></td>
</tr>
<tr>
<td width="638" height="378" bgcolor="#FFFFFF" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="28%" valign="top" align="center" bgcolor="#FFFFFF"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="180" height="500">
<param name=movie value="flash.swf">
<param name=quality value=high>
<embed src="flash.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="180" height="500">
</embed>
</object></td>
<td width="72%">
<%
rem -----------------------
rem -一页显示的大记录条数--
rem -----------------------
Maxlist=55
tablebackcolor="#EEEEEE"
rem -----------------------
rem ---显示一条预定记录----
rem -----------------------
function showRecord
tempRecord="<TABLE align=center border=0 cellPadding=5 cellSpacing=3 width=450>"
tempRecord=tempRecord&"<tr><td bgColor="&tablebackcolor&">ID:<font color=ff0000>"&id&"</font> "
if len(title)>0 then
tempRecord=tempRecord&"<span class=p9>所在公司:"&server.htmlencode(title)&"</strong>"
end if
if Goods<>1 then
tempRecord=tempRecord&"<br><span class=p9>预订客房:"&chooseGoods(Goods-1)
end if
if len(name)>0 then
tempRecord=tempRecord&"<br><span class=p9>预 定 人:"&server.htmlencode(name)
end if
if len(homepage)>0 then
tempRecord=tempRecord&"<br>联系电话:"&server.htmlencode(homepage)&"</a>"
end if
if len(mail)>0 then
tempRecord=tempRecord&"<br><span class=p9>详细地址:"&server.htmlencode(mail)&"</a>"
end if
if len(address)>0 then
tempRecord=tempRecord&"<br><span class=p9>电子邮箱:"&server.htmlencode(address)
end if
if len(shu)>0 then
tempRecord=tempRecord&"<br><span class=p9>客人人数:"&server.htmlencode(shu)&"</a>"
end if
if len(go)>0 then
tempRecord=tempRecord&"<br><span class=p9>入住时间:"&server.htmlencode(go)
end if
if len(up)>0 then
tempRecord=tempRecord&"<br><span class=p9>离开时间:"&server.htmlencode(up)
end if
tempRecord=tempRecord&"<br><span class=p9>时间:"&ndatetime
tempRecord=tempRecord&"<br><span class=p9><a href=lookguest.asp?id="&id&"&page="¤tpage&">>>查看留言</a> <a href=delguest.asp?id="&id&"&page="¤tpage&">删除记录</a></td></tr></table>"
response.write tempRecord
end function
rem -----------------------
rem ---显示一条记录结束----
rem -----------------------
%>
<!-- #include file=database.asp -->
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open "select top 1 * from manage",con,1,1
if Rs.eof or Rs.bof then
response.write "数据库错误,数据库中注管理员已经不存在,请添加记录后再操作!"
Rs.close
set Rs=nothing
con.close
set con=nothing
response.end
end if
if session("pass")<>Rs("pass") then
response.write "密码错误!"
Rs.close
set Rs=nothing
con.close
set con=nothing
response.end
end if
Rs.close
Rs.open "select id,name,title,homepage,product,mail,guesttime,shu,go,up,address from guest order by guesttime DESC",con,1,1
if Rs.eof or Rs.bof then
response.write "<span class=p9>还没注任何申请表!</span>"
%>
【<a href="Goods.asp">返回预定表</a>】 【<a href=../index.htm>返回主页</a>】
<%
Rs.close
set Rs=nothing
con.close
set con=nothing
response.end
end if
currentpage=request("page")
if isNumeric(currentpage)=0 then currentpage=1
currentpage=Cint(currentpage)
if currentpage<1 or currentpage>9999999 then currentpage=1
CountRecord=rs.recordcount
rs.pagesize=Maxlist
searchpageCount=rs.pagecount
if currentpage>searchpageCount then currentpage=searchpageCount
rs.absolutepage=currentpage
getdata=rs.getrows(Maxlist)
tempString="<TABLE align=center border=0 cellPadding=0 cellSpacing=3 width=450 >"
tempString=tempString&"<form method=POST action=manage.asp name=selPagesList>"
tempString=tempString&"<TBODY><TR bgColor="&tablebackcolor&"><TD noWrap vAlign=center><p>"
tempString=tempString&"分页"
if currentpage=1 then
tempString=tempString&"<font color=darkgray><<首页 前页</font>"
else
tempString=tempString&"<a href=manage.asp?page=1><<首页</a> <a href=manage.asp?page="¤tpage-1&">前页</a>"
end if
tempString=tempString&" "
if currentpage=searchpageCount then
tempString=tempString&"<font color=darkgray>后页 尾页>></font>"
else
tempString=tempString&"<a href=manage.asp?page="¤tpage+1&">后页</a> <a href=manage.asp?page="&searchpageCount&">尾页>></a>"
end if
tempString=tempString&" 页次：<strong>"¤tPage&"</strong>/<strong>"&searchpageCount&"</strong>页 共"&CountRecord&"条记录"
tempString=tempString&"</P></TD><TD noWrap vAlign=center>"
tempString=tempString&"<div align=right><p>转到:<input type=text name=page size=5 maxlength=10 class=smallInput value="¤tpage&"><input class=buttonface type=submit value=Go name=B1></span></p>"
tempString=tempString&"</TD></TR></FORM></TBODY></TABLE>"
response.write tempString
for nn=0 to Ubound(getdata,2)
name=getdata(1,nn)
title=getdata(2,nn)
homepage=getdata(3,nn)
Goods=getdata(4,nn)
mail=getdata(5,nn)
shu=getdata(7,nn)
go=getdata(8,nn)
up=getdata(9,nn)
address=getdata(10,nn)
ndatetime=getdata(6,nn)
id=getdata(0,nn)
showRecord()
next
response.write tempString
Rs.close
set Rs=nothing
con.close
set con=nothing
%>
<center>
<span class=p9> 【<a href="Goods.asp">返回预定表</a>】 【<a href=Goods.asp>返回主页</a>】
</span>
</center>
</td>
</tr>
</table>
<center>
</center>
</td>
</tr>
<tr>
<td width="638" height="16" bgcolor="#009BCE" bordercolor="#008000"> <marquee onMouseOver="this.stop()" onMouseOut="this.start()" scrollamount="50" scrolldelay="100" behavior="slide" loop="1">
</marquee></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -