<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<!--#include file="conn.asp"-->
<%Call head()
Call saycardd("仓库")
dim action,usid,tp
Action=Request.QueryString("Action")
usid=usb(request("usid"))
tp=usb(request("tp"))
response.write "查看"
response.write unames(""&usid&"")
response.write "ID:"&usid&"的仓库<br/>"
Response.write "查看仓库|"&chr(13)
Response.write "<a href='beibao.asp?sid="&sid&"&amp;usid="&usid&"&amp;saytk="&saytk&"'>查看背包</a>"
Response.write "<br/>"
set rs=server.createobject("adodb.recordset")
sql="select * from cangku where usid="&usid&" order by shuliang desc"
rs.open sql,connnong,1,2
If rs.eof Then
    response.write "该用户的仓库什么都没有，连老鼠都不来光顾了！<br/>"
    Else
    
	Dim PageSize,i
	PageSize=10				
	Dim Count,page,pagecount,gopage			
	gopage="?sid="&sid&"&amp;usid="&usid&"&amp;saytk="&saytk&"&amp;"
	Count=rs.recordcount	
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
        if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
dim ggss
	For i=1 To PageSize     						
	If rs.eof Then Exit For	
If saytk=100 Then response.write "<div class=""ade""></div>"
response.write i&"."
response.write nonglx(rs("lx"))
response.write "X"&ubb(rs("shuliang"))&chr(13)

rs.moveNext
 	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">跳转</a><br/>"
end if
rs.close
set rs=nothing
connnong.close
set connnong=Nothing
response.write "<br/><a href=""xgnc.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;usid="&usid&"&amp;tp=1"">返回该用户农场</a><br/>"
%>
<!--#include file="fanf.asp"-->
<%Call head1()%>