欢迎来到江苏恒力炉业有限公司官方网站!  13775509348
江苏恒力炉业有限公司 >> 在线留言

联系方式

    地址：丹阳市导墅镇里庄开发区
    电话：13775509348 杨陆平 先生

在线留言

尊敬的客户：

如果您有任何意见、建议和问题，请及时告诉我们，您将得到满意答复。

主题：
 *
留言内容：
 *
留言人：
 *
性别：
先生 女士
地址：
联系电话：
您的邮箱：
 *
验证码：  看不清楚？换张图片
   
  

© COPYRIGHT 2016. 江苏恒力炉业有限公司. 苏ICP备12010137号-49 苏公网安备32118102001207

在线客服
客服 
age-pagenc '计算页码开始值 pagenmax=page+pagenc '计算页码结束值 if(pagenmin<1) then pagenmin=1 '如果页码开始值小于1则=1 If ISHTML = 1 Then If ID = "" Then if(page>1) then response.write ("9 ") Else if(page>1) then response.write ("9 ") End If Else if(page>1) then response.write ("  ") '如果页码大于1则显示(第一页) End If if page-(pagenc*2+1)<=0 then pageprevious=1 else pageprevious=page-(pagenc*2+1) end if If ISHTML = 1 Then If ID = "" Then if(pagenmin>1) then response.write ("3 ") Else if(pagenmin>1) then response.write ("3 ") End If Else if(pagenmin>1) then response.write ("  ") '如果页码开始值大于1则显示(更前) End If if(pagenmax>pagec) then pagenmax=pagec '如果页码结束值大于总页数,则=总页数 for i = pagenmin to pagenmax'循环输出页码 if(i=page) then response.write (" "& i &" ") else If ISHTML = 1 Then If ID = "" Then response.write ("["& i &"]") Else response.write ("["& i &"]") End If Else response.write ("["& i &"]") End If end if next if page+(pagenc*2+1)>=pagec then pagenext=pagec else pagenext=page+(pagenc*2+1) end if If ISHTML = 1 Then If ID = "" Then if(pagenmax: ") if(page:") Else if(pagenmax: ") if(page:") End If Else if(pagenmax ") '如果页码结束值小于总页数则显示(更后) if(page") '如果页码小于总页数则显示(最后页) End If response.write "" & vbCrLf rs.close set rs=nothing end function %>