Question

求ASP产品分类代码

1.分类数据表名：type；字段为：id；type
2.产品数据表名：products；字段：id；typeid；title；img；sm；sj
要求：点左边导航的分类即链接到相应的分类产品展示
我现在的产品展示见http://qun.l-niao.cn/qunxin/products.asp
哪位大虾帮帮我，加我的Q，620053813在线等，问题解决分全送
我是要一段新的代码来完善这个文件，以达到分类的目的

Answer 1

<div style="width:100%;">
<%
maxnum=6
pagecounts=1
RecordCounts=0
if request.QueryString("page") then
page=cdbl(request.QueryString("page"))
else
page=1
end if

set rs=server.createobject("adodb.recordset")
sql="select * from product"
rs.open sql,conn,1,1

if not rs.eof then
rs.pagesize=maxnum
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
pagecounts=rs.pagecount
RecordCounts=rs.RecordCount
for i=0 to maxnum-1
if rs.eof then exit for
%>
<div style="width:20%;margin-right:5px;float:left;"><img src="<%=rs("图片字段名")%>"></div>
<%
rs.movenext
next
end if
%>
<div style="text-align:right;">
共有<strong style="color:#FF0000"><%=RecordCounts%></strong>条信息;
每页<strong style="color:#FF0000"><%=maxnum%></strong> 条信息;
<strong style="color:#FF0000"><%=page%></strong>/<strong style="color:#FF0000"><%=pagecounts%></strong>页,
[ <%if page<2 then response.Write("首页") else response.Write("<a class=""change"" href='javascript:GoPage(1)'>首页</a>") %>
<%if page<2 then response.Write("上一页") else response.Write("<a class=""change"" href='javascript:GoPage("&page-1&")'>上一页</a>")%>
<%if page>pagecounts-1 then response.Write("下一页") else response.Write("<a class=""change"" href='javascript:GoPage("&page+1&")'>下一页</a>")%> <%if page>pagecounts-1 then response.Write("尾页") else response.Write("<a class=""change"" href='javascript:GoPage("&pagecounts&")'>尾页</a>")%> ] 转到：<select name='page' size='1' onChange="javascript:GoPage(this.value)">

<%for i=1 to pagecounts%>
<option value="<%=i%>" <%if i=page then
response.write " selected"
end if
%>>第<%=i%>页</option>
<%next%>
</select>
</div>

<script>
function GoPage(num){
var maxnum=<%=pagecounts%>;
if(num>maxnum){alert("这是最后一页");false}
else{
window.location.href="?class=<%=request.QueryString("class")%>&keyword=<%=keyword%>&typee=<%=typee%>&page="+num;
}
}
</script>
</div>

Answer 2

代码没错，把CONN文件中的连库代码贴出来，应该是那出错了
<%
dim conn
Set conn=Server.CreateObject("ADODB.Connection")

SqlLocalName ="(local)" '连接IP [ 本地用 (local) 外地用IP ]
SqlUsername ="sa" '用户名
SqlPassword ="sa" '用户密码
SqlDatabaseName="ap_create" '数据库名
ConnStr = "Provider=Sqloledb;User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
conn.open ConnStr

%>

Answer 3

很简单，设计一个框架页面。左面是导航，然后右边是显示的页面。
点击导航，然后右边的框架改变内容。。。

Answer 4

QQ有答案。