急,关于ASP的问题,问题解决了再追加分

来源:百度知道 编辑:UC知道 时间:2024/05/13 01:35:32
代码太长了 ,我把它放在ASP吧了地址是http://post.baidu.com/f?kz=287327914

主要代码在三楼以后(含三楼),问题是这个页面是显示全部产品的页面,点左边的种类(连接器1、连接器2、连接器3)的右边就会出现全部属于连接器1或2、3…里面的产品的页面,但是问题就是此时,如果点下一页的话,就回到显示全部产品的下一页了,怎么改,很急啊,明天就要了
错误类型:
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/asp/ws_Products.asp, line 444, column 75
Response.Write "下一页</a> <a href="&filename&"?page="&n&"&act="&act&"&type="&type&" class='contents'>尾页</a>"

怎么办啊

你的分页函数中少了个参数值的传递:types,只要加一个参数types就行了.
将你的分页函数该下:

Function showpage(totalnumber,maxperpage,filename)
Dim n

If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If

Response.Write "<form method=Post action="&filename&">"
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='contents'>首页 上一页</font> "
Else
Response.Write "<a href="&filename&"?types="&types&"&page=1 class='contents'>首页</a> "
Response.Write "<a href="&filename&"?types="&types&"&page="&CurrentPage-1&"&act="&act&" class='contents'>上一页</a> "
End If

If n-currentpage<1 Th