<%OrderName = Request("OrderName")OrderBy = Request("OrderBy")Page=left(Request("Page"),6)if not isnumeric (Page) then Page=1else Page=Clng(Page)end ifIf OrderName="" Then OrderName ="发布日期" OrderBy = "Desc"End IfIf OrderBy = "Desc" Then OrderBy1 = "" OrderBy2 = "升序"Else OrderBy = "" OrderBy1 = "Desc" OrderBy2 = "降序"End IfALLOWORDERNAME="标题,来源,发布日期,发表日期,访问次数" 'RESPONSE.WRITE INSTR(ALLOWORDERNAME,ORDERNAME)&"
"'RESPONSE.WRITE ORDERNAME&"
"IF INSTR(ALLOWORDERNAME,ORDERNAME)<=0 THEN OrderName ="发布日期" OrderBy = "Desc"END IF MM_1 = CStr(Request.ServerVariables("Path_Info"))If PageSize < 1 or PageSize > 25 Then PageSize = 20 ConnectInfo conn Set rs=SERVER.CreateObject("ADODB.Recordset") rs.PageSize=PageSize MM_3="" SQL="SELECT * FROM Info Where 显示标志 = '1' and 专题名称 LIKE '%水工设计手册%'" IF LB<>"" Then SQL=SQL+ " and 类型1 Like '" &LB&"'" MM_3=MM_3+"&LB="&LB End If IF KEYWORD<>"" Then SQL=SQL+ " and (标题 like '%"&KEYWORD&"%' or 内容 like '%"&KEYWORD&"%') " MM_3=MM_3+"&KW="&KEYWORD End If MM_B="&OrderName="&OrderName&"&OrderBy="&OrderBy '排序方式 SQL=SQL+" Order by " &OrderName& " "&OrderBy rs.Open SQL, conn, 3%>奇米影院,第四色影视,米奇影院,777米奇影视,777me,bt天堂-免费下载高清电影,电视剧。720p高清,1080p,蓝光高清电影尽在奇米影视. 《水工设计手册》(第二版)编纂动态--专题报道--水电知识网

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

当前位置:警告:未滿18岁者請勿進入青青草在线播放观看!本站青青草在线播放观看片源豐富,內容全面!註意自我保護,適度觀看電影,合理安排時間,享受健康生活! >> 专题报道 >> 《水工设计手册》(第二版)编纂动态  
<%If Rs.RecordCount>0 Then If Page < 1 Then Page = 1 If Page > rs.PageCount Then Page = rs.PageCount rs.AbsolutePage=Page 'DispPage '显示翻页选项%> <%For iPage = 1 to PageSize RecNo=(Page-1)*PageSize + iPage BT=TRIM(RS("标题")) IF TRIM(RS("副题"))<>"" THEN BT=BT+" "+TRIM(RS("副题")) END IF %> <% rs.MoveNext If rs.EOF Then Exit For Next DispPage '显示翻页选项%>
序号 ?OrderName=标题&OrderBy=<%=OrderBy1%><%=MM_3%> title="按【标题】 <%=OrderBy2%>排列">标   题 ?OrderName=来源&OrderBy=<%=OrderBy1%><%=MM_3%> title="按【来源】<%=OrderBy2%>排列">来源 ?OrderName=发表日期&OrderBy=<%=OrderBy1%><%=MM_3%> title="按【发表日期】<%=OrderBy2%>排列">发表日期 ?OrderName=发布日期&OrderBy=<%=OrderBy1%><%=MM_3%> title="按【上传日期】<%=OrderBy2%>排列">上传日期 ?OrderName=访问次数&OrderBy=<%=OrderBy1%><%=MM_3%> title="按【访问次数】<%=OrderBy2%>排列">访问次数
<% =RecNo %> " target="_blank" title="浏览【<%=bt%>】的详细信息"><%=bt%> <%=rs("来源")%> <% =Rs("发表日期") %> <% =Rs("发布日期") %> <%=rs("访问次数")%>
<%Else%>

***非常抱歉,没有找到关键字为 <%=KEYWORD%> 的记录***

<%End Ifrs.closeconn.close%>
<%SUB DispPage %>
 
<%=Rs.RecordCount%>条记录 | 共<%=rs.PageCount%>页 | 第<%=Page%>页 | <% If Page <> 1 Then Response.Write "警告:未滿18岁者請勿進入青青草在线播放观看!本站青青草在线播放观看片源豐富,內容全面!註意自我保護,適度觀看電影,合理安排時間,享受健康生活! | " Response.Write "上一页 | " Else Response.Write "警告:未滿18岁者請勿進入青青草在线播放观看!本站青青草在线播放观看片源豐富,內容全面!註意自我保護,適度觀看電影,合理安排時間,享受健康生活! | " Response.Write "上一页 | " End If If Page <> rs.PageCount Then Response.Write "下一页 | " Response.Write "尾页 | " Else Response.Write "下一页 | " Response.Write "尾页 | " End If%> <% If rs.PageCount >0 Then %> 输入页数: <% End if %>
<%END SUB%>