<% '---------------------确定是否具有管理价格的权利------------------------------- dim cls if session("admin")="" then Response.Redirect("index.asp?err=4") else if session("flag")<>"0" then cls = Instr(session("flag"), "prod") if cls <= 0 then %> <% end if end if end if '---------------------确定是否具有管理价格的权利------------------------------ response.ContentType ="application/vnd.ms-excel" '---------------------设置此页面以Excel表格的形式输出------------------------ %> <% '默认显示价格列 dim rs,msg_per_page dim sql msg_per_page = 40 '定义每页显示记录条数 set rs = server.createobject("adodb.recordset") sql = "select * from ProdMain_store where gb='"&gb&"' and ProdId is not null" '----------------接收价格搜索栏内的值---------------------------- if request("type")<>"" then sql = sql + " and "&trim(request("type"))&" like '%"&trim(request("keyword"))&"%' " if request("online")<>"" then sql = sql + " and online="&request("online") 'if request("keyword")<>"" then sql= sql+ " and ProdID like '%"&trim(request("keyword"))&"%' or Model like '%"&trim(request("keyword"))&"%'" if request("remark")="1" then sql = sql+" and remark='1' " if session("sortname")<>"" then sql= sql+" order by "&session("sortname")&" "&session("sorttype") else sql= sql+" order by prodNum desc" '按照添加日期显示 end if rs.cursorlocation = 3 '使用客户端游标，可以使效率提高 rs.pagesize = msg_per_page '定义分页记录集每页显示记录? rs.open sql,conn,1,1 %> <% if err.number<>0 then '错误处理 response.write "


数据库操作失败：" & err.description err.clear else if not (rs.eof and rs.bof) then '检测记录集是否为空 '----------------------------------------部分分页代码开始----------------------------------------- totalrec = rs.recordCount 'totalrec：总记录条数 if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数 n = rs.recordcount\msg_per_page 'n:总页数 else n = rs.recordcount\msg_per_page+1 end if currentpage = request("page") 'currentpage:当前页 If currentpage <> "" then currentpage = cint(currentpage) if currentpage < 1 then currentpage = 1 end if if err.number <> 0 then err.clear currentpage = 1 end if else currentpage = 1 End if if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then currentPage=1 end if rs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头 rowcount = rs.pagesize 'pagesize：设置每一页的数据记录数 '----------------------------------------部分分页代码结束----------------------------------------- dim i dim k do while not rs.eof and rowcount>0 %> <% response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" rowcount=rowcount-1 rs.movenext loop else response.write "" end if end if rs.close conn.close set rs=nothing set coon=nothing %>

简码Code

中英文全称 APT

45kgs

100kgs

300kgs

500kgs

1000kgs

航空Carrier

起运地Dept

机型Type

航班周期Schedule

起飞时间Edt

中转Via

二程Schedule

备注

"&rs("pricelist")&"

"&rs("gbcode")&"

"&rs("ProdWidth")&"

"&rs("ImgPrevHeight")&"

"&rs("proddisc")&"

"&rs("producearea")&"

"&rs("prodlong")&"

"&rs("quantity")&"

"&rs("ProdId")&"

"&rs("model")&"

"&rs("ProdName")&"

"&rs("priceorigin")&"

"&rs("searchtype")&"

"&rs("ImgFull")&"

"&rs("memospec")&"

无满足条件价格