www.gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/so.asp
<!--#include file = language.asp --> <!--#include file = titleb.asp --> <!--#include file = admin_conn.asp --> <!--#include file=head.asp--> <% ON ERROR RESUME NEXT Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select * from [config]",conn,1,1 if rs.recordcount<>0 then sotop=rs("sotop") sobottom=rs("sobottom") end if rs.close set rs=nothing Response.Write sotop %> </style> <table border=0 width=800 align=center><tr><td align=center bgcolor="#FFFFFF"> <form method="get" action="so.asp"> <input type="text" name="word" size="25" value=<%=trim(request("word"))%>> <select size="1" name="wh"> <option value="title">标题</option> <option value="zz">作者</option> </select> <br> <select size="1" name="lm" style="font-size: 9pt"> <option value=" ">请选择栏目</option> <option value=" ">所有栏目</option> <% sql = "select * from lm where lm<>'' order by id asc" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 while not rs.eof %> <option value='<%=rs("id")%>' <% if int(lmid)=rs("id") then response.write " selected" %>><%=rs("lm")%></option> <% sql2 = "select * from lm where lmid='"&rs("id")&"' order by id asc" Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open sql2,conn,1,1 while not rs2.eof %> <option value='<%=rs2("id")%>' <% if int(lmid)=rs2("id") then response.write " selected" %>> ├<%=rs2("lm2")%></option> <% Set rs33 = Server.CreateObject("ADODB.RecordSet") rs33.Open "select * from [lm] where lmid='"&rs2("id")&"' and LM3<>'' order by id desc",conn,1,1 while not rs33.eof %> <option value='<%=rs33("id")%>' <% if int(lmid)=rs33("id") then response.write " selected" %>> ├<%=rs33("lm3")%></option> <% rs33.movenext wend rs2.movenext wend rs.movenext wend rs.close set rs=nothing %> </select> <select size="1" name="year"> <option value="">年份</option> <option value="">不限</option> <option>2005</option> <option>2006</option> <option>2007</option> <option>2008</option> <option>2009</option> <option>2010</option> </select> <select size="1" name="month"> <option value="">月份</option> <option value="">不限</option> <option>1</option> <option>2</option> <option>3</option> <option>4</option> <option>5</option> <option>6</option> <option>7</option> <option>8</option> <option>9</option> <option>10</option> <option>11</option> <option>12</option> </select><br> <input type="submit" value="搜索" > </form> </td></tr><tr><td> <table border=0 width=800 align=center><tr><td align=left bgcolor="#FFFFFF"> <% ON ERROR RESUME NEXT word=trim(chkhtm(Request("word"))) lm=trim(chkhtm(trim(request("lm")))) wh=trim(chkhtm(trim(request("wh")))) yy=trim(chkhtm(trim(request("year")))) mm=trim(chkhtm(trim(request("month")))) if wh="" then wh="title" nnn="<font color='#FF0000'><span style='background-color: #FFFF00'>"&word&"</span></font>" sql = "select * from news where sh=1 " if word<>"" then sql=sql&" and "&wh&" like '%"&word&"%' " if yy<>"" then sql=sql&" and year(time)="&yy&" " if mm<>"" then sql=sql&" and month(time)="&mm&" " if lm<>"" then sql=sql&" and (lm='"&lm&"' or lm2='"&lm&"' or lm3='"&lm&"') " sql=sql&" order by id desc" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 if rs.recordcount<>0 then page=int(request.QueryString ("page")) rs.PageSize=10 pagecount=rs.pagesize if page<=0 then page=1 if request.QueryString("page")="" then page=1 rs.AbsolutePage=page %> <% for i=1 to pagecount lmid=rs("lm3") if lmid="0" then lmid=rs("lm2") if lmid="0" then lmid=rs("lm") sql2 = "select * from lm where id="&lmid Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open sql2,conn,1,1 lm=rs2("lm")&rs2("lm2")&rs2("lm3") title=replace(rs("title"),word,nnn) nr=glhtml(rs("content")) 'nr=replace(nr,"<","<") 'nr=replace(nr,">",">") nr=titleb(nr,200) nr=replace(nr,word,nnn) content=" "&nr %> <font face=Wingdings>1</font> [<%=lm%>] <a href="news_view.asp?newsid=<%=rs("id")%>" target=_top><font color="<%=rs("titlecolor")%>"><%=title%></font></a><font color=999999>(<%=formatdatetime(rs("time"),1)%>)</font><BR> <font color=999999> <% if len(content)<250 then Response.Write content Else Response.Write content end if %></font><br><br> <% rs.movenext if rs.eof then exit for next else response.write "<center><BR><BR><BR>无记录<BR><BR><BR><BR>" end if %></td></tr><tr><td> </td></tr></table> <table border=0 width=800 align=center><tr><td align=center bgcolor="#FFFFFF"> <BR><BR><center> <% if rs.recordcount<>0 then lm=trim(request("lm")) if page>1 then%> <a href='<%=request.servervariables("URL")%>?page=1&word=<%=word%>&id=<%=trim(request("id"))%>&lmname=<%=trim(request("lmname"))%>&open=<%=trim(request("open"))%>&n=<%=trim(request("n"))%>&wh=<%=wh%>&yy=<%=yy%>&mm=<%=mm%>&lm=<%=lm%>'>首页</a> <a href='<%=request.servervariables("URL")%>?page=<%=page-1%>&word=<%=word%>&id=<%=trim(request("id"))%>&lmname=<%=trim(request("lmname"))%>&open=<%=trim(request("open"))%>&n=<%=trim(request("n"))%>&wh=<%=wh%>&yy=<%=yy%>&mm=<%=mm%>&lm=<%=lm%>'>上一页</a> <%end if%> <%if page<rs.pagecount then%> <a href='<%=request.servervariables("URL")%>?page=<%=page+1%>&word=<%=word%>&id=<%=trim(request("id"))%>&lmname=<%=trim(request("lmname"))%>&open=<%=trim(request("open"))%>&n=<%=trim(request("n"))%>&wh=<%=wh%>&yy=<%=yy%>&mm=<%=mm%>&lm=<%=lm%>'>下一页</a> <a href='<%=request.servervariables("URL")%>?page=<%=rs.pagecount%>&word=<%=word%>&id=<%=trim(request("id"))%>&lmname=<%=trim(request("lmname"))%>&open=<%=trim(request("open"))%>&n=<%=trim(request("n"))%>&wh=<%=wh%>&yy=<%=yy%>&mm=<%=mm%>&lm=<%=lm%>'>尾页</a> <%end if%> 共<%=rs.recordcount%>条 每页显示<%=pagecount%>条 第<%=page%>页 共<%=rs.pagecount%>页 <script language="JavaScript"> <!-- function FP_jumpMenu(el,frm,sel) {//v1.0 var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0; if('_new'==frm) open(href); else eval(frm+".location='"+href+"'"); } // --> </script> <select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1" style="font-size: 9pt; border-style: solid; border-width: 1px"> <%for i=1 to rs.pagecount%> <option value="<%=request.servervariables("URL")%>?page=<%=i%>&word=<%=word%>&id=<%=trim(request("id"))%>&lmname=<%=trim(request("lmname"))%>&open=<%=trim(request("open"))%>&n=<%=trim(request("n"))%>&wh=<%=wh%>&yy=<%=yy%>&mm=<%=mm%>&lm=<%=lm%>" <%if page=i then response.write "selected"%>>第<%=i%>页</option> <%next%> </select> </p></td></tr></table> <%end if end if Response.Write sobottom conn.close set conn=nothing %> <!--#include file="top.asp"-->