<%@ LANGUAGE=VBScript codepage ="936" %>
<!-- #include file=include/setup.inc -->
<%Response.Expires=0
Response.Buffer=true
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"
if zhbg_grade<9  then Response.Redirect "../../error.asp?id=439"
%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="html/guest.css">
</head>
<body text=ffffff bgcolor=000000 leftmargin="20">
<%
rem -----------------------
rem -一页显示的大记录条数--
rem -----------------------
Maxlist=55
tablebackcolor="#006600"

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(QQ)>0 then
  	tempRecord=tempRecord&"<br><span class=p9>qq:"&server.htmlencode(QQ)
  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>EMAIL:"&server.htmlencode(mail)&"</a>"
  end if
  if len(address)>0 then
  	tempRecord=tempRecord&"<br><span class=p9>地址:"&server.htmlencode(address)
  end if
  
  tempRecord=tempRecord&"<br><span class=p9>时间:"&ndatetime
  tempRecord=tempRecord&"<br><span class=p9><a href=lookguest.asp?id="&id&"&page="&currentpage&">&gt;&gt;查看留言</a> <a href=delguest.asp?id="&id&"&page="&currentpage&">删除记录</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,QQ,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=<%=returnUrl%>>返回主页</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="&currentpage-1&">前页</a>"
end if
tempString=tempString&"&nbsp;"

if currentpage=searchpageCount then
	tempString=tempString&"<font color=darkgray>后页 尾页>></font>"
else
	tempString=tempString&"<a href=manage.asp?page="&currentpage+1&">后页</a> <a href=manage.asp?page="&searchpageCount&">尾页>></a>"
end if
tempString=tempString&" 页次：<strong>"&currentPage&"</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="&currentpage&"><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(8,nn)
  address=getdata(5,nn)
  ndatetime=getdata(6,nn)
  QQ=getdata(7,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=<%=returnUrl%>>返回主页</a>】
</span>
</center>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>