<% 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 Qianbo_downSort Where ViewFlag and ID="&request.QueryString("SortID")).eof then SeoTitle="參數錯誤" else set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_downSort where ViewFlag and ID="&request.QueryString("SortID") rs.open sql,conn,1,1 SeoTitle=rs("SortName") rs.close set rs=nothing end if %> <% =SeoTitle %> - <% =SiteTitle %>
<strong id="x167d"><sup id="x167d"></sup></strong><input id="x167d"></input>
<sub id="x167d"></sub>
    • 

    • 

    


    

    您現在的位置是: 首頁 > 銷售服務 > <%=SeoTitle%>
    

    


    

    


    下載分類
    


    

    

      <%=WebMenu(0,0,2)%>
    

    


    

    

    

    

    <%=SeoTitle%>
    

    　
    

    

      <%=WebContent("Qianbo_DownSort",request.QueryString("SortID"),"")%>
    

    

    

    




    


天天看高清影视在线观看




<%
function WebMenu(ParentID,i,level)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from Qianbo_DownSort where ViewFlag and ParentID="&ParentID&" order by ID asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from Qianbo_DownSort Where ViewFlag and ParentID=0").eof then
    response.write "
    暫無相關信息
    "
  end if

  do while not rs.eof
	If ISHTML = 1 Then
		AutoLink = ""&downSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
	Else
		AutoLink = "downList.asp?SortID="&rs("ID")&""
	End If
	
response.write "
  • "&rs("SortName")&"
    • "&VbCrLf
    i=i+1
	if i暫無相關信息"
	exit function
  elseif conn.execute("select * from "&DataFrom&" Where ViewFlag and  ID="&ID).eof then
    response.write "
    暫無相關信息
    "
	exit function
  else
	SortPath=conn.execute("select * from "&DataFrom&" Where ViewFlag and  ID="&ID)("SortPath")
	conn.execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID)
  end if
  sql="select * from "&DataFrom&" Where not(ViewFlag) and Instr(SortPath,'"&SortPath&"')>0"
  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=DownInfo
  dim pagec
  dim page
      page=clng(request("Page"))
  dim pagenc
      pagenc=5
  dim pagenmax
  dim pagenmin
  dim pageprevious
  dim pagenext
  datafrom="Qianbo_Download"
  dim datawhere
	  datawhere="where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 "&HideSort& " "
  dim sqlid
  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
      taxis="order by id desc "
  dim i
  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
    if(idcount mod pages=0)then
	  pagec=int(idcount/pages)
   	else
      pagec=int(idcount/pages)+1
    end if
    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
  end if
  if(idcount>0 and sqlid<>"") then
    sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,0,1
	Response.Write ""&VbCrLf
	Response.Write "  "&VbCrLf
	Response.Write "    "&VbCrLf
	Response.Write "    "&VbCrLf
	Response.Write "    "&VbCrLf
	Response.Write "    "&VbCrLf
	Response.Write "  "&VbCrLf
    while not rs.eof
	If ISHTML = 1 Then
		AutoLink = ""&DownNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&""
	Else
		AutoLink = "DownView.asp?ID="&rs("ID")&""
	End If
	Response.Write "  "&VbCrLf
	Response.Write "    "&VbCrLf
	Response.Write "    "&VbCrLf
	Response.Write "    "&VbCrLf
	Response.Write "    "&VbCrLf
	Response.Write "  "&VbCrLf
	rs.movenext
    wend
	Response.Write "
        資料名稱  文件大小  下載  下載次數
       "&rs("DownName")&"   "&rs("FileSize")&"      "&rs("Clicknumber")&"
    "&VbCrLf
  else
    response.write "
    暫無相關信息
    "
	exit function
  end if
  Response.Write ""&VbCrLf
  Response.Write "  "&VbCrLf
  Response.Write "    
    "&VbCrLf
  Response.Write "總共"&idcount&"個文件, 頁次："&page&"/"&pagec&" ,每頁"&pages&"個文件," & vbCrLf
  pagenmin=page-pagenc
  pagenmax=page+pagenc
  if(pagenmin<1) then pagenmin=1
  If ISHTML = 1 Then
  If ID = "" Then
  if(page>1) then response.write ("9 ")
  Else