新微赢技术网

标题: 在线等待解答-关于数据多行多列显示 [打印本页]

作者: 追梦人︶ㄣ 时间: 2010-1-13 07:44
标题: 在线等待解答-关于数据多行多列显示
整个页面是这样的: 不同颜色为显示的内容


<html><head>
<title><%=webname%>--<%
leixing=lcase(trim(request("lx")))
leixing=replace(leixing,"'","")
select case leixing
case "big"
response.write "大類商品"
case "small"
response.write "小類商品"
case "tejia"
response.write "特價商品"
case "news"
response.write "新品上架"
case else
response.write "新品上架"
end select%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onMouseOver="window.status='〖<%=webname%>〗<%=weburl%>如果您喜歡本站,別忘暸告訴您的好友窩！';return false">
<table width="772" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFE0DD">
<tr>
<td width="1" background="image/images/bgbg.gif"></td>

<TR>
</table><td width="1" background="image/images/bgbg.gif"></td>
<td width="590" valign="top"> <div align="left">
<table width="591" align="center" border="0" cellspacing="0" cellpadding="0" >
<tr>
<td width="100%" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><table width="100%" align="center" border="0" cellspacing="0" cellpadding="0">
<%leixing=lcase(trim(request("lx")))
if InStr(leixing,"'")>0 then
response.write"<script>alert(""非法訪問!"");location.href=""../index.asp"";</script>"
response.end
end if
'leixing=replace(leixing,"'","")
select case leixing
case "big"
anclassid=trim(request("anid"))

if not isnumeric(anclassid) then
response.write"<script>alert(""非法訪問!"");location.href=""../index.asp"";</script>"
response.end
else
if not isinteger(anclassid) then
response.write"<script>alert(""非法訪問!"");location.href=""../index.asp"";</script>"
else

set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1
anclassname=rs("anclass")

%>
<tr>
<td height=33 colspan="3" background="image/images/yemian/bgbg.gif"><img src="images/ring02.gif" width="23" height="15" align="absmiddle"> <a href=index.asp><%=webname%></a> >> <a href=class.asp?lx=big&anid=<%=anclassid%>><%=anclassname%></a> </td>
</tr>
<tr bgcolor="#FF71BD">
<td colspan="3" ><div align="center">
<table width="90%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FF71BD">
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shop_nclass where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
if rs_s.recordcount=0 then
%>
<tr>
<td width="100%" height="30" align="center" colspan="8">暂无小分类</td>
</tr>
<%
else
i=0
while not rs_s.eof
%>
<tr>
<td height="30"><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%> </td>
<td ><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%> </td>
<td ><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%> </td>
<td ><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%> </td>
<td ><a href="class.asp?lx=small&anid=<%=rs("anclas

作者: ROCKY 时间: 2010-3-9 08:05
不要见一个爱一个，爱的太多，你的爱就要贬值。

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)