<% '本程序由 自学成才 站长浩哥开发 创建时间2012年09月14日 '完成时间:2012-09-14 14:15:03 '联系信息:QQ:844833447 官网:WWW.ZXCC.NET '请勿修改下列任何代码,以保证程序正常运行 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" ") id = trim(request.QueryString("id")) if id="" then sql="select * from list order by shunxu desc,adddate desc" else sql="select * from list where type="&id&" order by shunxu desc,adddate desc" end if set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then dim currentpage maxperpage= (11 * 32 - 332) rs.pagesize=maxperpage currentpage=request.querystring("pageid") if currentpage="" then currentpage= (27 * 49 - 1322) elseif currentpage<1 then currentpage= (27 * 49 - 1322) else currentpage=clng(currentpage) if currentpage > rs.pagecount then currentpage=rs.pagecount end if end if if not isnumeric(currentpage) then currentpage= (27 * 49 - 1322) end if dim totalput,n totalput=rs.recordcount if totalput mod maxperpage=0 then n=totalput\maxperpage else n=totalput\maxperpage+ (27 * 49 - 1322) end if if n=0 then n= (27 * 49 - 1322) end if rs.move(currentpage-1)*maxperpage i= (34 * 68 - 2312) w= (27 * 49 - 1322) do while i< maxperpage and not rs.eof Response.Write(vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) i=i+ (27 * 49 - 1322) w=w+ (27 * 49 - 1322) rs.movenext loop end if rs.close set rs=nothing Response.Write(vbCrLf) Response.Write("
保 障
" & vbCrLf) Response.Write("
商品名称
商品展示
" & vbCrLf) Response.Write("
价格
商品说明
库存状况
咨询
" & vbCrLf) Response.Write("
" & vbCrLf) Response.Write("
" & vbCrLf) Response.Write(" ") if rs("price_content")="0" then response.Write("卖家未承诺消费者保障服务") if rs("price_content")="2" then response.Write("卖家已承诺消费者保障服务") Response.Write(vbCrLf) Response.Write(" " & vbCrLf) Response.Write("
") Response.Write rs("QQ_Num") Response.Write("
") Response.Write rs("price") Response.Write("/元
") Response.Write rs("content") Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("
" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) if rs("tar")=1 then response.Write("库存充足") if rs("tar")=0 then response.Write("暂停出售") if rs("tar")=-1 then response.Write("库存不足") Response.Write(vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("
" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("
" & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("
共有") Response.Write totalput Response.Write("个 每页") Response.Write maxperpage Response.Write("个 当前页数：") Response.Write currentpage Response.Write("/") Response.Write n Response.Write("     " & vbCrLf) Response.Write(" ") k=currentpage if k<>1 then Response.Write(vbCrLf) Response.Write(" 首 页      上一页     " & vbCrLf) else Response.Write(vbCrLf) Response.Write("首 页     上一页     " & vbCrLf) end if if k<>n then Response.Write(vbCrLf) Response.Write(" 下一页      末 页" & vbCrLf) else Response.Write(vbCrLf) Response.Write("下一页     末 页" & vbCrLf) end if Response.Write(vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("
") %>