📄 brows.asp
字号:
<!--#include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="webtop.asp" -->
<html>
<head>
<TITLE><%=webname%>--首页</TITLE>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
<link href="images/yq_style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 onmouseover=exitpop=false text=#000000 topMargin=0 marginheight="0" marginwidth="0">
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bordercolor="#cccccc">
<%sql = "SELECT * FROM cat order by catid"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write "还没有分类呢"
end if
do while not rs.eof%>
<tr>
<td>
<img src=images/hit.gif>
<a href="cat.asp?catid=<%=rs("catID")%>" class="catbig"><b><%=rs("catname")%></b></a><br>
<%sql2="select * from catson where catID="&rs("catID")
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,1
if rs2.eof then response.write "还没有分类目录呢!"
while not rs2.eof %>
<a href="viewcats.asp?catid=<%=rs("catID")%>&catsid=<%=rs2("catsonID")%>"><%=rs2("catsonname")%></a>
<%rs2.movenext
wend
%></td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
<!-- #include file="copyright.asp" -->
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -