|
| |
|
德国大众原装车正厂零部件 |
主营: |
|
大众事业部: 甲壳虫配件、夏朗配件、辉腾配件、途锐配件原装车正厂零部件
奥迪事业部：奥迪A8配件,奥迪Q5配件，奥迪Q7配件，奥迪A2/A3配件，奥迪V8配件
|
|
| 地址：广州市恒福路自编77-88号 |
大众事业部电话:
020-83491474 020-83575321
奥迪事业部电话：
020-83504258 020-83583717 |
| 传真：020-83575417 |
手机：13725281961
E-mail:jl@gzjlqy.com |
|
 |
| |
<%
id=request.queryString("id")
if id="" then
sql="select*from [pro]"
else
sql="select*from [pro] where CL_ID=cint('"&id&"')"
end if
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Conn,1,1
Dim TotalPut,N '定义变量
Dim CurrentPage '定义当前页的变量
CurrentPage = 1
TotalPut = 0
N = 1
IF Not RS.EOF Then
Const MaxperPage =12 '定义每一页显示的数据记录的常量
RS.PageSize = MaxperPage
CurrentPage = Request.QueryString("PageID")
If CurrentPage = "" Then
CurrentPage = 1
ElseIF CurrentPage <1 Then
CurrentPage = 1
Else
CurrentPage = CLng(CurrentPage)
If CurrentPage > RS.PageCount Then
CurrentPage = RS.PageCount
End IF
End IF
'如果变量CurrentPage的数据类型不是数值型
'就1赋给变量CurrentPage
IF Not IsNumeric(CurrentPage) Then
CurrentPage = 1
End IF
TotalPut = RS.RecordCount
IF TotalPut Mod MaxperPage = 0 Then
N = TotalPut \ MaxperPage
Else
N = TotalPut \ MaxperPage + 1
End IF
IF N = 0 Then
N = 1
End IF
RS.Move(CurrentPage-1) * MaxperPage
Dim I
I = 0
Do While I < MaxperPage And Not RS.EOF
%>
| |
<%
i=i+1
if i mod 4 =0 then
response.Write" "
end if
RS.movenext
loop
end if
%>
|
| |
|
