由于时间关系,所以求助CSDN内ASP朋友修改一段程序而已,改完后马上结分!

[emhuangzi]

QQ:1138758
只是一个商品展示的代码.帮忙修改,改完即可结分!
有意者加我QQ!

[emhuangzi]

<%
if request("order")="" then
order="id"
else
order=request("order")
end if
if request("showlist")="" then
showlist="desc"
else
showlist=request("showlist")
end if

dim rs
dim sql

select case request("showwhat")
case "showpic"
msg_per_page = 8 '¶¨ÒåÿҳÏÔʾ¼Ç¼ÌõÊý
case "shownonepic"
msg_per_page = 12
case "showbylist"
msg_per_page = 20
case else
msg_per_page = 8
end select


set rs = server.createobject("adodb.recordset")
%>
<%if request("typeid")="" then%>
<%sql = "select * from ceocio order by "&order&" "&showlist&""%>
<%else%>
<%typeid=request("typeid")%>
<%sql = "select * from ceocio where typeid='"&typeid&"' order by "&order&" "&showlist&""%>
<%end if%>
<%rs.cursorlocation = 3 'ʹÓÿͻ§¶ËÓα꣬¿ÉÒÔʹЧÂÊÌá¸ß
rs.pagesize = msg_per_page '¶¨Òå·ÖÒ³¼Ç¼¼¯Ã¿Ò³ÏÔʾ¼Ç¼Êý
rs.open sql,conn,0,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

n=1
do while not rs.eof and n<=rs.pageSize
if n mod 3 = 1 then response.write "<tr>"
response.write "<Td>"
response.write "这里输出出错"
response.write "</td>"
if n mod 3 = 0 then response.write "</tr>"
n=n+1
rs.movenext
loop

rs.absolutepage = currentpage 'absolutepage£ºÉèÖÃÖ¸ÕëÖ¸Ïòijҳ¿ªÍ·
rowcount = rs.pagesize 'pagesize£ºÉèÖÃÿһҳµÄÊý¾Ý¼Ç¼Êý
dim i
dim k%>
<%
do while not rs.eof and rowcount>0
%>

<%if request("showwhat")="" then
showwhat="showpic"
else
showwhat=request("showwhat")
end if%>
<%select case showwhat%>
<%case "shownonepic"%>
<tr>
<td colspan="3"><hr noshade size="1" color="#FFCC00">
</td>
</tr>
<%case "showpic"%>
<tr>
<td width="1%" class="title"> </td>
<td width="34%" class="title"><b></b><a href="javascript:newin(700, 500, '<%=rs("pic")%>', 'ceocio')"><img border="0" src="<%=rs("pic")%>" width="80" height="80" alt="FN¨aa¨|¨¨¨o¨¤??"></a><b><br>
<%=rs("name")%><br>
</b><strike>市场价:<%=rs("cash")%> </strike> <br>
<font color="#FF0000">FN价:<%=rs("cashnow")%></font><br></td>
<td width="65%"><p> </p>
</td>11
</tr>
</center>
</center>
<tr>
<td colspan="3"><p align="left">
<%if rs("have")=1 then%>
<input name="have" onClick='confirm("¸ÃÉÌÆ·ÔÝʱ´¦ÓÚȱ»õ״̬")' type="button" value="详细">
<%else%>
<input name="button2" onClick="location.href='view.asp?id=<%=rs("id")%>'" type="button" value="详细">
<%end if%>
</p></td>
</tr>
<center>
<center>
<%case "showbylist"%>
<tr>
<td colspan="3">  </td>
</tr>
<%case else%>
<%end select%>
<%
rowcount=rowcount-1
rs.movenext
loop
end if
end if
'rs.close
'conn.close
set rs=nothing
set coon=nothing
%>

里面我加我想弄一行三个商品,但是总是输出出错

[AppleBBS]

什么问题？

[tigerwen01]

什么问题需要解决？

[mymyal123]

?

[ximyma]

商品展示,无非是什么换行的东西.

[emhuangzi]

兄弟们
加我QQ吧
我这边网速慢得出奇
刷新和回帖都很难得!
QQ:1138758

[qoo1983]

有问题直接问不就可以了吗，嘿嘿

[emhuangzi]

没人解决！结分算了！