<%@ LANGUAGE="VBSCRIPT" %>
<%
DbPath = SERVER.MapPath("../database/topboy-2002.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
%>
<%
result=Instr(1,request.ServerVariables("http_referer"),request.servervariables("http_host"),1)
if result = 0 or result = null then
response.redirect "manager-login.asp"
end if
if session("sid") <> "top" then
response.redirect "manager-login.asp"
end if
If request("imagedel.x") <> "" Then
i=request("hidden")
For p = 1 To i
sql="delete from topboy_orderlist WHERE orderid = '"& Request("name"&p) &"'"
'response.write sql
'response.end
conn.Execute(sql)
sql="delete from topboy_orderproduct WHERE orderid = '"& Request("name"&p) &"'"
conn.Execute(sql)
Next
response.redirect "manager-order-list-2.asp"
response.end
end if
groupname = "guest"
set rs=server.createobject("adodb.recordset")
sql="select * from topboy_orderlist where orderid like '%"& groupname &"%' and staus='y' order by id desc"
rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext
if rs.eof and rs.bof then
response.write" "
response.write" "
response.write""
response.write" 您好，没有相关的定单资料......"
response.write "请按此返回。"
response.write " "
response.write " "
rs.close
conn.close
else
RS.pagesize=10
RS.AbsolutePage = 1
dim page
if request("browsdopage") <> "" then
if cint(request("browsdopage")) > RS.pagecount then
page = RS.pagecount
else
page = request("browsdopage")
end if
else
page = request("page")
end if
if page = 0 then
RS.AbsolutePage = 1
page = 1
else
RS.AbsolutePage = page
end if
rowcount = RS.pagesize
%>
<%
If Not RS.Eof Then
%>
"
response.write" 您好，没有相关的定单资料......"
response.write "请按此返回。"
response.write "