about.asp

92google生成HTML新闻系统.rar

javastr="" 
javastr=javastr+"<table width=\"100%\" border=\"0\">"
<!--#include file="conn.asp"-->
<%
about=trim(request("about"))
title=trim(request("title"))
if about<>""  then
sql="select top 8 * from article where about like '%" & about & "%' and title not like '%" & title & "%' and ifshow=1 order by id desc"
set rs=conn.execute(sql)%>
<% 
if rs.eof then
%>
document.write ("<br><font color=#666666>&nbsp;目前没有相关文章</font>") 
<%
else
dim i
do while not rs.eof 
%>
javastr=javastr+"<tr><td>"
javastr=javastr+"<li></font><span style=\"font-size:12px;line-height: 18px\"><a href=\"../<%=rs("fpath")%>/<%=rs("fname")%>\" target=_blank><%=rs("title")%></span></a>"
javastr=javastr+"</td></tr>"
<%i=i+1
	if i=8 then exit do
	rs.movenext
	loop
rs.close   
set rs=nothing   
conn.close   
set conn=nothing %> 
javastr=javastr+"</table>"  
document.write (javastr)  
<%end if%>

<%end if%>