關於銳強

ABOUT US
關於銳強
ABOUT US
當前位置:首頁 > 關於銳強 > 生產車間

佛山市盈盛國際官網業有限公司

手機:189 2310 3889
廠址:廣東省四會市亞洲金屬資源再生工業基地鳳凰二路二號
銷售部地址:佛山市順德區陳村鎮潭村工業區一路5號818
版權所有 ©佛山市盈盛國際官網業有限公司,本網站部分圖片來源於互聯網,如果涉及版權問題,請按網站上公布的聯係方式告知刪除 ICP備18007688號-1技術支持:佛山網站建設-華企立方
<% function pagelocations() pagelocations="榮譽資質" end function function pageContent(DataFrom,ID,SortPath) '------------------- dim rs,sql,AutoLink dim HideSort '未對外發布的類別 set rs = server.createobject("adodb.recordset") '根據當前類別ID取需要列表產品的類別路徑SortPath開始 if ID="" then SortPath="0,1," elseif not IsNumeric(ID) then response.write "
暫無相關信息
" exit function elseif conn.execute("select * from "&DataFrom&" Where ViewFlagch and ID="&ID).eof then response.write "
暫無相關信息
" exit function else SortPath=conn.execute("select * from "&DataFrom&" Where ViewFlagch and ID="&ID)("SortPath") conn.execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID) end if sql="select * from "&DataFrom&" Where not(ViewFlagch) and Instr(SortPath,'"&SortPath&"')>0" '根據當前類別ID取需要列表產品的類別路徑SortPath結束 rs.open sql,conn,1,1 while not rs.eof HideSort="and not(Instr(SortPath,'"&rs("SortPath")&"')>0) "&HideSort rs.movenext wend rs.close '------------------- dim idCount'記錄總數 dim pages'每頁條數 pages=OtherInfo dim pagec'總頁數 dim page'頁碼 page=clng(request("Page")) dim pagenc'每頁顯示的分頁頁碼數量=pagenc*5+1 pagenc=5 dim pagenmax'每頁顯示的分頁的最大頁碼 dim pagenmin'每頁顯示的分頁的最小頁碼 dim pageprevious'上一相鄰的頁碼 dim pagenext '下一相鄰的頁碼 '重置數據表名 datafrom="Southidc_Others" dim datawhere'數據條件 datawhere="where ViewFlagch and Instr(SortPath,'"&SortPath&"')>0 "&HideSort& " " dim sqlid'本頁需要用到的id dim Myself,PATH_INFO,QUERY_STRING'本頁地址和參數 PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' if QUERY_STRING = "" then Myself = PATH_INFO & "?" elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then Myself= PATH_INFO & "?" & QUERY_STRING & "&" else Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1) end if dim taxis'排序的語句 asc,desc taxis="order by Sequence asc " dim i'用於循環的整數 '獲取記錄總數 'sql="select * from Southidc_Products where ViewFlagch and Instr(SortPath,'"&SortPath&"')>0 "&HideSort sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 idCount=rs("idCount") '獲取記錄總數 if(idcount>0) then'如果記錄總數=0,則不處理 if(idcount mod pages=0)then'如果記錄總數除以每頁條數有餘數,則=記錄總數/每頁條數+1 pagec=int(idcount/pages)'獲取總頁數 else pagec=int(idcount/pages)+1'獲取總頁數 end if '獲取本頁需要用到的id============================================ '讀取所有記錄的id數值,因為隻有id所以速度很快 sql="select id from ["& datafrom &"] " & datawhere & taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 rs.pagesize = pages '每頁顯示記錄數 if page < 1 then page = 1 if page > pagec then page = pagec if pagec > 0 then rs.absolutepage = page for i=1 to rs.pagesize if rs.eof then exit for if(i=1)then sqlid=rs("id") else sqlid=sqlid &","&rs("id") end if rs.movenext next '獲取本頁需要用到的id結束============================================ end if if(idcount>0 and sqlid<>"") then'如果記錄總數=0,則不處理 '用in刷選本頁所語言的數據,僅讀取本頁所需的數據,所以速度快 sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 while not rs.eof '填充數據到表格 If ISHTML = 1 Then AutoLink = "videoshow"&Separated&""&rs("ID")&""&Separated&""&rs("SortID")&"."&HTMLName&"" Else AutoLink = "videoshow.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&"" End If %>
  • " title="<%=rs("OthersNamech")%>" rel="shadowbox[stoer]">
    " />

    <%=StrLeft(rs("OthersNameCh"),30)%>

  • <% rs.movenext wend else response.write "
    暫無相關信息
    " exit function end if response.write "
    " & vbCrLf response.write "
    " & vbCrLf pagenmin=page-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 ("首頁 ") Else if(page>1) then response.write ("首頁 ") End If Else if(page>1) then response.write ("首頁") '如果頁碼大於1則顯示(第一頁) End If if page-(pagenc*2+1)<=0 then pageprevious=page-1 else pageprevious=page-1 end if If ISHTML = 1 Then If ID = "" Then if(page>1) then response.write ("上一頁 ") Else if(page>1) then response.write ("上一頁 ") End If Else if(page>1) then response.write ("上一頁") 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=page+1 else pagenext=page+1 end if If ISHTML = 1 Then If ID = "" Then if(page下一頁 ") if(page尾頁") Else if(page下一頁 ") if(page尾頁") End If Else if(page下一頁") '如果頁碼結束值小於總頁數則顯示(更後) if(page尾頁") '如果頁碼小於總頁數則顯示(最後頁 End If response.write "
    " & vbCrLf rs.close set rs=nothing end function %>