about.asp

来自「实现一定上传功能」· ASP 代码 · 共 33 行

javastr="<style>A.menu2{text-decoration: none;color:#000099;line-height: 25pt;font-size:9pt} A.menu2:hover {text-decoration: none;line-height: 25pt;font-size:9pt;color: #ffffff}A.menu2:visited {color:#FF66cFF;line-height: 25pt;font-size:9pt}</style>"
javastr=javastr+"<table width=\"100%\" border=\"0\">"
<!--#include file="articleconn.asp"-->
<%about=request("about")
title=request("title")
if about<>""  then
sql="select top 5 * from article where about like '%" & about & "%' and title not like '%" & title & "%' order by dateandtime desc"
set rs=conn.execute(sql)%>
<% 
dim i
do while not rs.eof 
%>
javastr=javastr+"<tr><td>"
javastr=javastr+"<font color=\"#000000\" size=\"2\">- </font><span style=\"font-size:9pt;line-height: 15pt\"><a href=\"../open.asp?id=<%=rs("newsid")%>&path=<%=rs("path")%>&filename=<%=rs("N_Fname")%>\") ><%=rs("title")%></span></a>"


javastr=javastr+"</td></tr>"
<%i=i+1
	if i=5 then exit do
	rs.movenext
	loop
rs.close   
set rs=nothing   
conn.close   
set conn=nothing %> 
javastr=javastr+"</table>" 
document.write (javastr) 
<%else%>
document.write ("没有相关新闻")
<%end if%>