<% keyword=request("keyword") author=request("author") if keyword="" and author="" then response.write("") response.end end if Server.ScriptTimeOut=999999999 if request("page")="" then page=1 else page=cint(request("page")) end if if author="" then set rs=server.CreateObject("ADODB.RecordSet") Sql="select id,title,user_name,submit_time,content,shenhe from content where title like '%"&keyword&"%'"&"and shenhe=1 order by submit_time desc" rs.open sql,conn,1,1 end if if keyword="" then set rs=server.CreateObject("ADODB.RecordSet") Sql="select id,title,user_name,submit_time,content,shenhe from content where user_name like '%"&author&"%'"&"and shenhe=1 order by submit_time desc" rs.open sql,conn,1,1 end if if author<>"" and keyword<>"" then set rs=server.CreateObject("ADODB.RecordSet") Sql="select id,title,user_name,submit_time,content,shenhe from content where user_name like '%"&author&"%'"&"and title like '%"&keyword&"%'"&" and shenhe=1 order by submit_time desc" rs.open sql,conn,1,1 end if %> 光明网论文发表交流中心 - 检索结果

<% If not rs.eof then rs.movefirst rs.pagesize=25 rs.absolutepage=page for i=1 to rs.pagesize %> <% rs.movenext if rs.eof then exit for next else response.write "" end if %>
" target="_blank"><%=rs("title")%>
<%=rs("user_name")%>
<%=month(rs("Submit_time"))%>-<%=day(rs("Submit_time"))%>
抱歉，没有检索到相应论文，请继续检索。


第<%=page%>页/计<%=rs.pagecount%>页(共<%=rs.recordcount%>条记录)　

<% if not rs.eof then %> <%if page<>1 then %> 首页 <%end if%>    <%if page>1 then %> 前页 <%end if%>    <%if page 后页 <%end if%>    <%if page<>rs.pagecount then %> 末页 <%end if%> <%end if%>


<% rs.close set rs=nothing conn.close set conn=nothing %>