Your position > Home > Products
Products
Product Model | Product Image | Overcharge protection | Over-discharge protection | Maximum continuous discharge current | Product Size |
---|
% call SiteInfo if ISHTML = 1 then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If if request.QueryString("SortID")="" then SeoTitle="产品" elseif not IsNumeric(request.QueryString("SortID")) then SeoTitle="参数错误" elseif conn.execute("select * from VS_ProductSort Where ViewFlag and ID="&request.QueryString("SortID")).eof then SeoTitle="参数错误" else set rs = server.createobject("adodb.recordset") sql="select * from VS_ProductSort where ViewFlag and ID="&request.QueryString("SortID") rs.open sql,conn,1,1 SeoTitle=rs("SortName") rs.close set rs=nothing end if %>
Product Model | Product Image | Overcharge protection | Over-discharge protection | Maximum continuous discharge current | Product Size |
---|
"&VbCrLf
Response.Write "A total of "&idcount&" records Pages:"&page&"/"&pagec&" Pre Pages:"&pages&" records" & vbCrLf
pagenmin=page-pagenc
pagenmax=page+pagenc
if(pagenmin<1) then pagenmin=1
if(page>1) then Response.Write ("9 ")
if page-(pagenc*2+1)<=0 then
pageprevious=1
else
pageprevious=page-(pagenc*2+1)
end if
if(pagenmin>1) then Response.Write ("3 ")
if(pagenmax>pagec) then pagenmax=pagec
for i = pagenmin to pagenmax
if(i=page) then
Response.Write (" "& i &" ")
else
Response.Write ("["& i &"]")
end if
next
if page+(pagenc*2+1)>=pagec then
pagenext=pagec
else
pagenext=page+(pagenc*2+1)
end if
if(pagenmax | "&VbCrLf
Response.Write "