为什么要把代码放到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
|
|
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: 我上传看了一下.显示两个内容是出现了.但是出现了一个新问题: 第一行显示正常,第二行显示是会在两个图片中插入一个空的图片大小的位置,第三行会插入两个空图片大小的位置.并在最后一个显示成一个错误的联接.
|