ina.asp

凡人网络购物系统 v8.0 中文版

<table cellSpacing="0" cellPadding="0" border="0" width="171">
	<tr><td><img border="0" src="Skin/<%=venshop_skin%>/ina.gif" width="171" height="44"></td></tr>
<tr><td background="Skin/<%=venshop_skin%>/inhelp3.gif" align="center">
<table border="0" cellpadding="0" cellspacing="0" width="85%" id="table1">
<tr><td height="23"><b><a href="article.asp">所有新闻</a></b></td></tr>
<tr><td height="2" background="Img/dot_menu.gif"></td></tr>
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from venshop_newssort order by sort_id asc" 
rs.open sql,conn,1,1 
if rs.bof and rs.eof then 
response.write "暂无分类" 
else 
do while not rs.eof 
inaid=rs("sort_id")%>
<tr><td height="23"><b><a href="article.asp?newssort_id=<%=rs("sort_id")%>"><%=rs("sort_name")%></a></b></td></tr>
<tr><td height="2" background="Img/dot_menu.gif"></td></tr>
<%set rs8=server.CreateObject("adodb.recordset")
rs8.open "select * from venshop_newsnsort where sort_id="&inaid&"" ,conn,1,1
do while not rs8.eof and not rs8.bof%>
<tr><td height="23"> <img border="0" src="img/newsq.gif" width="6" height="6"> <a href="article.asp?newsnsort_id=<%=rs8("nsort_id")%>"><%=rs8("nsort_name")%></a></td></tr>
<tr><td height="2" background="Img/dot_menu.gif"></td></tr>
<%rs8.movenext
loop
rs8.close
set rs8=nothing%>
<%rs.movenext 
loop 
end if 
rs.close
set rs=nothing%>
</table>
</td></tr>
<tr><td align="middle"><img border="0" src="Skin/<%=venshop_skin%>/inhelp2.gif" width="171" height="9"></td></tr></table>