<% '===================================================================== start="技术文章" Dim Rs2, Rs3, Rs4, strListFront, strHtmlFront founderr=false if request.querystring("cat_id")<>"" then if not tee5.isInteger(request.querystring("cat_id")) then founderr=true tee5.OutAlertScript ("参数不正确") End If End If if request("page")<>"" then if not tee5.isInteger(request("page")) then founderr=true tee5.OutAlertScript ("参数非法") End If End If if request("keyword")<>"" then if instr(request("keyword"),"'")>0 then founderr=true tee5.OutAlertScript ("搜索参数非法") End If End If tee5.head() dim totalart,totalpages,j,colname,strContent sql="select id,cat_id,art_title,art_date,art_count,content,isbest from Gq_article order by id DESC" if request("cat_id")<>"" then sql="select id,cat_id,art_title,art_date,art_count,content,isbest from Gq_article where cat_id="&safestr(request("cat_id"))&" order by id DESC" elseif request("keyword")<>"" then sql="select id,cat_id,art_title,art_date,art_count,content,isbest from Gq_article where "&safestr(request("select"))&" like '%"&safestr(request("keyword"))&"%'order by id DESC" End If set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %> border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF"> " Response.Write "" Response.Write "

文章分类

<% sql="select cat_id,cat_name from Gq_NewsClass" set rs2=server.createobject("adodb.recordset") rs2.open sql,conn,1,1 if rs2.eof and rs2.bof then Response.Write "

当前没有文章分类

" Else i = 1 Response.Write "" Response.Write "" do while not rs2.eof if request("cat_id")=cstr(rs2("cat_id")) then Response.Write "" else If Clng(tee5.ShowHtml) < 1 Then Response.Write "" Else Response.Write "" End If End If If i Mod 2=0 Then Response.Write"" End If i=i+1 rs2.movenext loop rs2.Close: Set rs2=Nothing Response.Write "

· "&rs2("cat_name")&"

" End If %>

文章搜索

推荐文章top10

<% set rs4=server.createobject("adodb.recordset") sql="select top 10 id,art_title,art_count,cat_id,art_date from Gq_article where isbest=1 order by id DESC" rs4.open sql,conn,1,1 if rs4.eof and rs4.bof then Response.Write "

没有任何推荐文章

" Else do while not rs4.eof %> <%If Clng(tee5.ShowHtml) < 1 Then%> <%Else%> <%End If%>

· <%=left(rs4("art_title"),20)%>...

<% rs4.movenext loop End If rs4.close set rs4=nothing %>

热门文章top10

<% set rs3=server.createobject("adodb.recordset") sql="select top 10 id,art_title,art_count,cat_id,art_date from Gq_article order by art_count DESC" rs3.open sql,conn,1,1 if rs3.eof and rs3.bof then Response.Write "

当前没有热门文章

" Else do while not rs3.eof %> <%If Clng(tee5.ShowHtml) < 1 Then%> <%Else%> <%End If%>

· <%=left(rs3("art_title"),20)%>...

<% rs3.movenext loop End If rs3.close set rs3=nothing %>

<% Dim tablestyle Dim maxperpage,CurrentPage,Pcount,totalrec,totalnumber maxperpage = Clng(tee5.MaxPerPage) totalrec = 0 Pcount = 1 CurrentPage = tee5.ChkNumeric(Request("page")) If CurrentPage = 0 Then CurrentPage = 1 Response.Write "" & vbCrLf if rs.eof and rs.bof then Response.Write "" Response.Write "" Response.Write "" Else totalrec = Rs.RecordCount Pcount = CLng(totalrec / maxperpage) '得到总页数 If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1 If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Pcount Then CurrentPage = Pcount Rs.PageSize = maxperpage Rs.AbsolutePage = CurrentPage i = 0 Do While Not Rs.EOF And i < maxperpage If Not Response.IsClientConnected Then ResponseEnd Dim rscat sql="select cat_id,cat_name from Gq_NewsClass where cat_id="&rs("cat_id") set rscat=server.createobject("adodb.recordset") rscat.open sql,conn,1,1 strContent = year(rs("art_date")) & month(rs("art_date")) & day(rs("art_date")) %> <%If Clng(tee5.ShowHtml) < 1 Then%> <%Else%> <%End If%> <% Response.Write "" & vbCrLf Rs.movenext i = i + 1 If i >= maxperpage Then Exit Do Loop End If Rs.Close:Set Rs = Nothing Response.Write "" & vbCrLf Response.Write "

文章标题	人气	更新时间

" if request("cat_id") <> "" then Response.Write "该分类暂时没有文章" ElseIf request("keyword")<>"" then Response.Write "没有找到包含[" & request("keyword") & "]的文章！" Else Response.Write "没有任何文章，请管理员到后台添加！" End If Response.Write "
[/"><%=rscat("cat_name")%>] <%=left(rs("art_title"),60)%>...	["><%=rscat("cat_name")%>] <%=left(rs("art_title"),60)%>...	<%=rs("art_count")%>	<%if Rs("art_date")>=date() then Response.Write ""&year(Rs("art_date"))&"-"&month(Rs("art_date"))&"-"&day(Rs("art_date"))&"" & vbCrLf else Response.Write ""&year(Rs("art_date"))&"-"&month(Rs("art_date"))&"-"&day(Rs("art_date"))&"" & vbCrLf End If %>

" If request("cat_id") <> "" Then strListFront = "&cat_id=" & request("cat_id") & "" strHtmlFront = "/html/Article/" & request("cat_id") & "/News_" Else strListFront = "" strHtmlFront = "/html/Article/News_" End If If Clng(tee5.ShowHtml) < 1 Then tee5.ShowHtmlPage CurrentPage,Pcount,totalrec,maxperpage,strHtmlFront,".Html","技术文章" Else tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,strListFront,"技术文章" End If Response.Write "

" tee5.footer() CloseConn() %>