?? manage.asp
字號:
<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file=include/setup.inc -->
<!--
-------------雅客精彩信息綜合網！ http://www.yakefood.com ！香港CGI-ASP軟件網！！http://www.k66k.com/k666 ！------------
-->
<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(homepage)>0 then
tempRecord=tempRecord&"<br>網址:<a href="&chr(34)&server.htmlencode(homepage)&chr(34)&">"&server.htmlencode(homepage)&"</a>"
end if
if len(mail)>0 then
tempRecord=tempRecord&"<br><span class=p9>郵箱:<a href="&chr(34)&"mailto:"&server.htmlencode(mail)&chr(34)&">"&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="¤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="http://www.yakefood.com">返回主頁</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
%>
<center>
<span class=p9>
【<a href="Goods.asp">返回訂貨單</a>頁面】
【<a href="http://www.yakefood.com">返回主頁</a>】
</span>
</center>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -