<% 'DispMenu1="none" '一级菜单隐藏 DispMenu1="" '一级菜单显示 'DispMenu2="none" '二级菜单隐藏 DispMenu2="" '二级菜单显示 Prog = CStr(Request.ServerVariables("Path_Info")) '获取程序名称 dim action_temp if Trim(Request.QueryString("action"))="patch" then action_temp="&action=patch" else action_temp="" end if const MaxPerPage=30 dim totalPut dim CurrentPage dim TotalPages dim i,j dim sql dim rs dim bt,zz,ly,lb1,ss bt=left(Server.HTMLEncode(trim(Request("bt"))),30) zz=left(Server.HTMLEncode(trim(Request("zz"))),30) ly=left(Server.HTMLEncode(trim(Request("ly"))),30) lb1="F" '行业资讯 ss=bt+zz+ly CateID=left(Server.HTMLEncode(Request("CateID")),10) CateName=left(Server.HTMLEncode(Request("CateName")),10)Page=left(Server.HTMLEncode(Request("Page")),6)if not isnumeric (Page) then currentPage=1else currentPage=Clng(Page)end if select case CateID case "0" CateID="0" CateName="我的收藏夹" case "" CateID="" CateName="全部" case "F1" CateID="F1" CateName="水利水电" case "F2" CateID="F2" CateName="电力电气" case "F3" CateID="F3" CateName="土木建筑" case "F4" CateID="F4" CateName="电脑网络" case "F5" CateID="F5" CateName="外语学习" case "F6" CateID="F6" CateName="旅游" case "F7" CateID="F7" CateName="少儿" case "F9" CateID="F9" CateName="新闻出版" case "F91" CateID="F91" CateName="数字出版" case "FB" CateID="FB" CateName="其他" case "4" CateID="4" CateName="少儿教育" case "7" CateID="7" CateName="法律法规" case "8" CateID="8" CateName="水利标准" case else CateID="" CateName="全部" end select ConnectInfo conn '连接数据库 %>成人色情网_成人三级片_黄色av电影网站 <%=CateName%>--行业资讯--水电知识网--中国水利水电出版社
当前位置:警告:未滿18岁者請勿進入青青草在线播放观看!本站青青草在线播放观看片源豐富,內容全面!註意自我保護,適度觀看電影,合理安排時間,享受健康生活! >> 行业资讯 >> <%if ss="" then%> <%=CateName%> >> <%else if bt<>"" then%> 按标题查询 >> <%=ss%> <%else if zz<>"" then%> 按作者查询 >> <%=ss%> <%else if ly<>"" then%> 按来源查询 >> <%=ss%> <%else%> 查询 >> <%=ss%> <%end if end if end if end if%> 隐藏/显示菜单
  我的收藏夹
显示收藏夹
清空收藏夹
<%'MyFav(10)%>
  按类别查询
水利水电
新闻出版
其  他
  按标题查询
  按作者查询
  按来源查询
  <%=CateName%>信息阅读排行榜
<%CALL GETPH %>
<% Set rs=SERVER.CreateObject("ADODB.Recordset") SQL="SELECT ID,肩题,标题,副题,类型2,发布日期 FROM Info Where 显示标志 = '1' " if CateID<>"" then if CateID="0" then '收藏夹 ProductList = Request.Cookies("MyFavInfo") 'if ProductList<>"" and ProductList<>NULL then if ProductList="" then ProductList="''" 'response.end end if 'Sql = "SELECT ID,肩题,标题,副题,类型2,发布日期 FROM info where cstr(ID) In (" & ProductList & ")" 'for access Sql = "SELECT ID,肩题,标题,副题,类型2,发布日期 FROM info where ID In (" & ProductList & ")" 'for sql else sql= sql&" and 类型2 like '"&CateID&"%' " end if end if if lb1<>"" then sql=sql&" and 类型1 like '"&lb1&"%' " end if if bt<>"" then sql=sql&" and (标题 like '%"&bt&"%' or 肩题 like '%"&bt&"%' or 副题 like '%"&bt&"%') " end if if zz<>"" then sql=sql&" and 作者 like '%"&zz&"%' " end if if ly<>"" then sql=sql&" and 来源 like '%"&ly&"%' " end if' sql=sql& " order by "&order_name&" "&updown sql=sql& " order by 发布日期 DESC "'response.write sql&"
" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

警告:未滿18岁者請勿進入青青草在线播放观看!本站青青草在线播放观看片源豐富,內容全面!註意自我保護,適度觀看電影,合理安排時間,享受健康生活!没有或没有找到任何信息

" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,Prog else if (currentPage-1)*MaxPerPage

<%Sub ShowContent dim i i=0 %> <% do while not rs.eof bt2=trim(rs("标题")) IF LEN(trim(rs("副题")))>0 THEN BT2=BT2+" "+trim(rs("副题")) END IF BT2=REPLACE(BT2,"
"," ") BT2=REPLACE(BT2,"
"," ") %> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>
<% if CateID<>"0" then Response.Write("") else Response.Write("") end if %> &CateID=<%=RS("类型2")%>" target="_blank" title="浏览【<%=bt2%>】的详细信息"><%=bt2%> (<%=formatdatetime(rs("发布日期"),2)%>) <%if CateID="0" then%> ','2');" class="ArticleList" Title="从我的收藏夹中删除该信息">取消收藏 <%else%> >>> ','1');" class="ArticleList" Title="将该信息加入到我的收藏夹">加入收藏 <%end if%>
<%If CateID<>"0" then%> 全选/反选 <%End if%>
<% End Sub%> <%Function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "
" response.write "

"&SoftDownName&" " if CurrentPage<2 then response.write ""&totalnumber&"个 警告:未滿18岁者請勿進入青青草在线播放观看!本站青青草在线播放观看片源豐富,內容全面!註意自我保護,適度觀看電影,合理安排時間,享受健康生活! 上一页 " else response.write ""&totalnumber&"个 警告:未滿18岁者請勿進入青青草在线播放观看!本站青青草在线播放观看片源豐富,內容全面!註意自我保護,適度觀看電影,合理安排時間,享受健康生活! " response.write "上一页 " end if if n-currentpage<1 then response.write "下一页 尾页" else response.write "" response.write "下一页 尾页" end if response.write " 页次:"&CurrentPage&"/"&n&"页 " response.write " "&maxperpage&"个/页 "%> 转到: <% response.write "

"End function%><%Sub GetPH Set rs1 = Server.CreateObject("ADODB.Recordset") If CateID<>"" then if CateID="0" then '收藏夹 ProductList = Request.Cookies("MyFavInfo") 'if ProductList<>"" and ProductList<>NULL then if ProductList="" then ProductList="''" 'response.end end if 'Sql1 = "SELECT top 10 ID,肩题,标题,副题,类型2,发布日期,访问次数 FROM info where cstr(ID) In (" & ProductList & ") and 显示标志='1' and 访问次数<>0 order by 访问次数 desc " 'FOR ACCLESS Sql1 = "SELECT top 15 ID,肩题,标题,副题,类型2,发布日期,访问次数 FROM info where ID In (" & ProductList & ") and 类型1 like '"&lb1&"%' and 显示标志='1' and 访问次数<>0 order by 访问次数 desc " else sql1="select top 15 ID,肩题,标题,副题,类型2,发布日期,访问次数 from Info where 类型2 like '"&CateID&"%' and 类型1 like '"&lb1&"%' and 显示标志='1' and 访问次数<>0 order by 访问次数 desc" end if else sql1="select top 15 ID,肩题,标题,副题,类型1,类型2,发布日期,访问次数 from Info where 显示标志='1' and 访问次数<>0 and 类型1 like '"&lb1&"%' order by 访问次数 desc" end if'RESPONSE.WRITE SQL1&"
" rs1.open sql1,conn,1,1 if rs1.eof and rs1.bof then response.write "
没有排行
" else i=0 do while not rs1.eof bt2=trim(rs1("标题")) IF LEN(trim(rs1("副题")))>0 THEN BT2=BT2+" "+trim(rs1("副题")) BT2=REPLACE(BT2,"
"," ") BT2=REPLACE(BT2,"
"," ") END IF %> ·&CateID=<%=CateID%>&c=<% =Rs1("访问次数") %>" target="_blank" title="浏览【<%=bt2%>】的详细信息"><%=bt2%>(<% =Rs1("访问次数") %>)
<% i=i+1 if i>=15 then exit do rs1.movenext loop i=0 end if rs1.close set rs1=nothingEnd Sub %>