<% 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_NewsSort Where ViewFlag=1 and ID="&request.QueryString("SortID")).eof then SeoTitle="参数错误" else set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_NewsSort where ViewFlag=1 and ID="&request.QueryString("SortID") rs.open sql,conn,1,1 SeoTitle=rs("SortName") rs.close set rs=nothing end if %> <% =SeoTitle %>-<% =SiteTitle %>
<%=webmenu(0,0,2)%>

  • 销售经理:<%=lxr%>
    联系手机:<%=mobile%>
    联系电话:<%=Telephone%>
    图文传真:<%=Fax%>
    客 服 QQ:<%=sygg%>
    客 服MSN:MSN在线咨询

<%=WebLocation()%>
<%=WebContent("Qianbo_NewsSort",request.QueryString("SortID"),"")%>
<% function WebMenu(ParentID,i,level) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_NewsSort where ViewFlag=1 and ParentID="&ParentID&" order by ID asc" rs.open sql,conn,1,1 if conn.execute("select ID from Qianbo_NewsSort Where ViewFlag=1 and ParentID=0").eof then response.write "
暂无相关信息
" end if do while not rs.eof If ISHTML = 1 Then AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "NewsList.asp?SortID="&rs("ID")&"" End If response.write ""&rs("SortName")&"" i=i+1 if i首页 - 新闻动态"&VbCrLf if request.QueryString("SortID")="" then WebLocation=WebLocation elseif not IsNumeric(request.QueryString("SortID")) then WebLocation=WebLocation&"参数错误" elseif conn.execute("select * from Qianbo_NewsSort Where ViewFlag=1 and ID="&request.QueryString("SortID")).eof then WebLocation=WebLocation&"参数错误" else dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_NewsSort where ViewFlag=1 and ID="&request.QueryString("SortID") rs.open sql,conn,1,1 WebLocation=WebLocation&SortPathTXT("Qianbo_NewsSort",rs("ID")) rs.close set rs=nothing end if end Function function ChildSort() dim ParentID ParentID=request.QueryString("SortID") if ParentID="" or (not isnumeric(ParentID)) then exit function dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_NewsSort where ViewFlag=1 and ParentID="&ParentID&" order by ID desc" rs.open sql,conn,1,1 if rs.bof and rs.eof then exit function else while not rs.eof If ISHTML = 1 Then AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "NewsList.asp?SortID="&rs("ID")&"" End If response.write ""&rs("SortName")&" | " rs.movenext wend end if rs.close set rs=nothing end function function SortPathTXT(DataFrom,ID) dim rs,sql Set rs=server.CreateObject("adodb.recordset") sql="Select * From "&DataFrom&" where ViewFlag=1 and ID="&ID rs.open sql,conn,1,1 if not rs.eof Then If ISHTML = 1 Then AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "NewsList.asp?SortID="&rs("ID")&"" End If SortPathTXT=SortPathTXT(DataFrom,rs("ParentID"))&" - "&rs("SortName")&"" end if rs.close set rs=nothing end function function WebContent(DataFrom,ID,SortPath) dim rs,sql dim HideSort set rs = server.createobject("adodb.recordset") if ID="" then SortPath="0," elseif not IsNumeric(ID) then response.write "
暂无相关信息
" exit function elseif conn.execute("select * from "&DataFrom&" Where ViewFlag=1 and ID="&ID).eof then response.write "
暂无相关信息
" exit function else SortPath=conn.execute("select * from "&DataFrom&" Where ViewFlag=1 and ID="&ID)("SortPath") conn.execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID) end if sql="select * from "&DataFrom&" Where not(ViewFlag=1) and CHARINDEX('"&SortPath&"',SortPath)>0" rs.open sql,conn,1,1 while not rs.eof HideSort="and not(CHARINDEX('"&SortPath&"',SortPath)>0) "&HideSort rs.movenext wend rs.close dim idCount dim pages pages=NewInfo dim pagec dim page page=clng(request("Page")) dim pagenc pagenc=5 dim pagenmax dim pagenmin dim pageprevious dim pagenext datafrom="Qianbo_News" dim datawhere datawhere="where ViewFlag=1 and CHARINDEX('"&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) 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 "
    信息标题发布日期