主题:  请教高手!!!急!!!

sghwj

职务:普通成员
等级:1
金币:0.0
发贴:98
#12003/10/25 14:41:34
请帮我这个菜鸟看一下.
我该如何使文中红色部分每一行显示两个内容,共显示5行.然后分页????
相关文件:点这儿打开



sghwj

职务:普通成员
等级:1
金币:0.0
发贴:98
#22003/10/25 15:40:39

没人能看得懂吗???



我佛山人

职务:版主
等级:4
金币:16.0
发贴:2269
#32003/10/26 16:17:37
为什么要把代码放到word文档里,直接贴出来就行了,要知道很多朋友就是懒得下载你的文件再看代码(而且还不一定装有word),不 属于本版的讨论范围,帮你转了,到[ASP及.NET]版继续讨论吧~~


<%
    
    dim sort_id, sort_name, Nsort_id, Nsort_name
    dim totalPut
    dim CurrentPage, TotalPages
    if request("sort_id")<>"" then
        sort_id=request("sort_id")
    else
        sort_id=0
    end if
    if not isempty(request("page")) then
        currentPage=cint(request("page"))
    else
        currentPage=1
    end if
    set rs = server.createobject("adodb.recordset")
    'set rs1=server.createobject("adodb.recordset")
    if trim(request("Nsort_id"))<>"" then
        Nsort_id=trim(request("Nsort_id"))
        sql="select * from Nsort where Nsort_id="&cstr(Nsort_id)
        rs.open sql,conn,1,1
        if not rs.eof then
            Nsort_name=rs("Nsort_name")
        end if
        rs.close
    else
        Nsort_id=0
        Nsort_name="分类"
    end if
    sql="select * from sort where sort_ID="&cstr(sort_id)
    rs.open sql,conn,1,1
    if not rs.eof then
        sort_name=rs("sort_name")
    end if
    rs.close
%>












 

















商 品 类 别


<%set rs=server.createobject("adodb.recordset")
sort_id=trim(request("sort_id"))
if sort_id=empty then
response.redirect "index.asp"
end if

page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)

if Nsort_id<>0 then
    sql="select * from hw where Nsort_id="+cstr(Nsort_id)+" and sort_id="+cstr(sort_id)+" order by hw_id desc"
elseif sort_id<>0 then
    sql="select * from hw where sort_id="+cstr(sort_id)+" order by hw_id desc"
else
    sql="select * from hw order by hw_id desc"
end if

rs.open sql,conn,3,3
if rs.eof then
response.write "你所选的类别没有商品"
response.end
else
rs.pagesize=5
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
i=0
dim hw_id(),hw_name(),hw_cash(),pifa(),daili(),hw_views(),hw_buys(),hw_content(),hw_pic(),hw_date()
do while not rs.eof and (i i=i+1
redim preserve hw_id(i),hw_name(i),hw_cash(i),pifa(i),daili(i),hw_views(i),hw_buys(i),hw_content(i),hw_pic(i),hw_date(i),hw_sn(i)
hw_id(i)=rs("hw_id")
hw_name(i)=rs("hw_name")
         hw_cash(i)=rs("hw_cash")
pifa(i)=rs("pifa")
         daili(i)=rs("daili")
hw_views(i)=rs("hw_views")
hw_buys(i)=rs("hw_buys")
hw_content(i)=rs("hw_content")
hw_pic(i)=rs("hw_pic")
hw_date(i)=rs("hw_date")
         hw_sn(i)=rs("hw_sn")
        
rs.movenext
loop
end if
rs.close
%>


















width="98%" bgColor=#CCCCCC border=0>





width="100%" border=0>







当前位置:>>>>
<%=sort_name%> 



<%if Nsort_id=0 then%>
<%
    sql="select * from Nsort where sort_id="&sort_id
    rs.open sql,conn,1,1
    do while not rs.eof
        response.write "  "&rs("Nsort_name")&""
    rs.movenext
    loop
    rs.close
else
%>
<%=Nsort_name%>
<%
    sql="select * from Nsort where Nsort_id<>"&Nsort_id&" and sort_id="&sort_id
    rs.open sql,conn,1,1
    do while not rs.eof
        response.write "  "&rs("Nsort_name")&""
    rs.movenext
    loop
    rs.close
%>
<%end if%>
 






<%
for i=1 to ubound(hw_id)
%>

border=0 cellpadding=0 cellspacing=0>




























品名: <%=hw_name(i)%>
规格:
<%if len(hw_sn(i))>10 then
hw_sn(i)=left(hw_sn(i),10)
response.write hw_sn(i)
response.write "……"
else
response.write hw_sn(i)
end if
%>
价格:
<%=pifa(i)%>

详细资料>>>>



<%next%>



                        
height=35>
<%=page%>
页/共 <%=totalpage%> 页        

<%if page-1>0 then%>
上一页
<%else%>
上一页
<%end if%>
 
<%if page+1<=totalpage then%>
下一页
<%else%>
下一页
<%end if%>



janlay

职务:管理员
等级:7
金币:28.0
发贴:7244
#42003/10/26 18:06:54
提醒楼主两点:

1、不要重复发帖
2、别人回复的内容你好歹也要看看
www.5d.cn/bbs/NewsDetail.asp?id=959462



sghwj

职务:普通成员
等级:1
金币:0.0
发贴:98
#52003/10/29 13:26:20
谢了!5D散人!!
初来乍道!还请多多指点!!
不过问题还是没解决



sghwj

职务:普通成员
等级:1
金币:0.0
发贴:98
#62003/10/29 13:28:55
谢谢 janlay!
真不好意思!因为我急得没办法,只好多条路子了.见谅!!!



sghwj

职务:普通成员
等级:1
金币:0.0
发贴:98
#72003/10/29 13:45:59
janlay:
我上传看了一下.显示两个内容是出现了.但是出现了一个新问题:
第一行显示正常,第二行显示是会在两个图片中插入一个空的图片大小的位置,第三行会插入两个空图片大小的位置.并在最后一个显示成一个错误的联接.