📄 ina.asp
字号:
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -