<%@ Language=VBScript%> 甘南--天水在线
NEWS 甘肃新闻——甘南 甘肃 兰州 天水 嘉峪关 酒泉 张掖 金昌 武威 平凉 庆阳 陇南 定西 甘南 临夏 白银
<% Dim DBC,Conn,rs,i_temp Set DBC = New DataBaseClass Set Conn = DBC.OpenConnection() Set DBC = Nothing strpage=request.querystring("Page") if len(strpage)=0 then strpage="1" end if Dim Temp_DummyDir If SysRootDir <> "" then Temp_DummyDir = "/" & SysRootDir Else Temp_DummyDir = "" End If set Rs = server.CreateObject ("ADODB.RecordSet") %>
<% sql="select * from FS_News where classID='0581115555580241' and DelTF=0 and AuditTF=1 order by ID DESC" rs.Open Sql,Conn,1,1 if Not rs.Eof then rs.pagesize=40 rs.absolutepage=cint(strpage) select_count=rs.recordcount select_pagecount=rs.pagecount %> <% Dim TempAlreadyShow TempAlreadyShow = 1 for LoopVar = 1 to rs.PageSize if TempAlreadyShow > rs.PageSize then Exit For if rs.Eof then Exit For %> <% TempClassID = rs("ClassID") FileName=rs("FileName") FileExtName=rs("FileExtName") set rs88=conn.execute("select * from FS_NewsClass where ClassID='" & TempClassID & "'") ClassCName=rs88("ClassCName") SavePath=rs88("SaveFilePath") ClassEName=rs88("ClassEName") rs88.Close Set rs88 = Nothing %> <% rs.MoveNext if rs.Eof then Exit For if TempAlreadyShow > rs.PageSize then Exit For %> <%Next%>
·<%=left(rs("title"),23)%> [<%=month(rs("AddDate"))%>月<%=day(rs("AddDate"))%>日]
<% Set rs = Nothing else LastClassPic = Array("") end if%>
<% response.write"  共"& select_pagecount &"" & select_count &"条文章,本页是第"& strpage &"页。
" if int(strpage)>1 then response.Write"   第一页 " response.Write"   上一页 " end if if int(strpage)下一页" response.Write"   最后一页 " end if response.Write"
" %>
<%Dim DBC0131,Conn0131 Set DBC0131 = New DataBaseClass Set Conn0131 = DBC0131.OpenConnection() Set DBC0131 = Nothing set rs0131=conn0131.execute("select top 14 * from FS_News where (classID='0581115524220987'or classID='0581115532495736'or classID='0581115535247757'or classID='0581115541954306'or classID='0581115545230002'or classID='0581115552676736'or classID='0581115555580241'or classID='0581115562755790'or classID='0581115572395664'or classID='0581115584536149'or classID='058111605495293'or classID='0581116063027992'or classID='0581116070789771'or classID='0581116074559394') and DelTF=0 and PicNewsTF=1 and AuditTF=1 and PicPath is not null order by id DESC") do while Not rs0131.Eof%> <% for j = 1 to 2 iii=iii+1 dim web0131 if left(rs0131("PicPath"),4)="http" then web0131="" else web0131="http://www.tianshui.com.cn" TempClassID = rs0131("ClassID") FileName=rs0131("FileName") FileExtName=rs0131("FileExtName") set rs0132=conn0131.execute("select * from FS_NewsClass where ClassID='" & TempClassID & "'") ClassCName=rs0132("ClassCName") SavePath=rs0132("SaveFilePath") ClassEName=rs0132("ClassEName") rs0132.Close Set rs0132 = Nothing %> <%rs0131.MoveNext next loop rs0131.Close Set rs0131 = Nothing %>
<%if rs0131("HeadNewsTF")=1 then%>" class="psy" target="_blank">" height="120" width="150" border="0" style="border:#FFFFFF 4px solid;"><%else%>" height="120" width="150" border="0" style="border:#FFFFFF 4px solid;"><%end if%>
<%if rs0131("HeadNewsTF")=1 then%>" class="psy" target="_blank"><%=left(rs0131("title"),10)%><%else%><%=left(rs0131("title"),10)%><%end if%>