%
if request.Cookies("MYWINCH")("cn")="" then
%>
<%
else
search = ""
if request("ob01")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " ob01 = '" & request("ob01") & "' "
end if
if request("ob02")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " ob02 = '" & request("ob02") & "' "
end if
if request("ob03")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " ob03 = '" & request("ob03") & "' "
end if
if request("ob04")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " ob04 = '" & request("ob04") & "' "
end if
if request("ob05")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " ob05 = '" & request("ob05") & "' "
end if
if request("ob06")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " ob06 = '" & request("ob06") & "' "
end if
ordercustomer=request.Cookies("MYWINCH")("CN")
if request("OC01")="" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " OC01 = '" & ordercustomer & "' "
end if
if request("OC02")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " OC02 = '" & request("OC02") & "' "
end if
if request("OC03")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " OC03 = '" & request("OC03") & "' "
end if
if request("OC04")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " OC04 = '" & request("OC04") & "' "
end if
if request("OC05")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " OC05 = '" & request("OC05") & "' "
end if
if request("OC06")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " OC06 = '" & request("OC06") & "' "
end if
table="OB"
sql="select * from " & table & search
'请参考下面代码排序
'sql="select * from " & table & search & " order by dtime DESC"
'response.write sql
set rs=Server.CreateObject("ADODB.recordset")
rs.CursorType = 3
rs.Open sql,conn
rs.PageSize =30 '每页记录条数
result_num=rs.RecordCount '记录总数
if result_num<=0 then
if search="" then
word="目前还没有记录!"
else
word="没有查到符合条件的记录!
你没有向本中心提交订单或者没有登录站点。"
end if
else
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
end if
%>
品质,专业缔造 |
||
|
||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||