<%
u_category=request.querystring("u_category")
accessdb="category"
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
set rs = server.createobject("ADODB.Recordset")
‘检查看用户是否已经点击了来自页面的链接。
if u_category = "" then
sql = "select * from amazon order by category asc"
else
sql = "select * from amazon where category='" & u_category &"' order by title asc"
end if
rs.Open sql, cn
‘如果没有匹配的类别那么可以重置用户的分类页面
‘当用户在输入地址栏输入内容的时候，这会让一部分页面或者错误信息不能显示出来。
If rs.eof then response.redirect request.servervariables("script_name")
response.write"<body bgcolor='#FFFFFF'>"
rs.movefirst
do while not rs.eof
category=rs("category")
if category <> last_category then
%>
<br><b>
<%
‘如果这个分类跟之前的分类不相同
‘那么输出分类
‘在首先互相作用之后，最后的分类是无效的
‘并且会导致输出第一个类型
‘如果用户没有在分类上进行练习，那么要超链接分类
if u_category = "" then %>
<a href="<%= request.servervariables("script_name") %>?u_category=<%= category %>">
<% end if %>
<%= category %>
<% if u_category = "" then %>
</a>
<% end if %>
</b><br>
<%
end if
%>
<% if u_category <> "" then %>
<a href="<%= rs("link") %>"><%= rs("title") %></a>
</b>
<br>
<%
else
end if
‘把当前的分类值放在最后分类的区域
‘在每个都复述了一遍了之后，
‘最后的分类会填满这个来自之前的规则的分类值
last_category=category
rs.MoveNext
loop
‘检查看看用户是否已经点击了来自页面的链接
if u_category <> "" then
‘如果用户已经把链接转回到分类页面
%>
<br>
<b>
<a href="<%= request.servervariables("script_name") %>"><--Back</a>
<% end if %>
热门信息
阅读 (201)
1 独特的随机字母阅读 (175)
2 检查和设置IIS服务器正确的权限阅读 (167)
3 asp网站伪静态化URL Rewrite中的httpd.ini伪静态化规则编写方法阅读 (166)
4 asp取access数据库里本周、本月、本季度的记录~阅读 (166)
5 ASP-对象