📄 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/guest.css">
<title><%=guestTitle%></title></head>
<body text=#000000 bgcolor=#fffff0 leftmargin="20" background="bg4.gif">
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#6699FF" width="40%" id="AutoNumber2" height="129">
<tr>
<td width="100%" height="29" background="dh.gif">
<p align="center"><font size="2"><strong>订单列表</strong></font></td>
</tr>
<tr>
<td width="100%" height="15" bgcolor="#FFFFFF">
<p>
<%
rem -----------------------
rem -一页显示的大记录条数--
rem -----------------------
Maxlist=55
tablebackcolor="#ACD9FF"
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>EMAIL:"&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="¤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,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="¤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)
address=getdata(7,nn)
ndatetime=getdata(6,nn)
id=getdata(0,nn)
showRecord()
next
response.write tempString
Rs.close
set Rs=nothing
con.close
set con=nothing
%>
</p>
<center>
<span class=p9> </span>
</center>
<center>
</center>
<p> </p></td>
</tr>
<tr>
<td height="15" bgcolor="#FFFFFF"><span class=p9>【<a href="default.asp">返回订货单</a>】 【<a href=<%=returnUrl%>>返回主页</a>】 </span></td>
</tr>
</table>
</div>
<center>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -