<!--#include file="conn.asp"-->
<%
dim sql,rs
Dim stringes,displays,homepages,filers,title,ok
set rs=server.createobject("adodb.recordset")
          sql="select * from info"
		  rs.open sql,conn
stringes=rs("stringe")
displays=rs("display")
homepages=rs("homepage")
filers=rs("filer")
	      rs.close
sql="Select top "&displays&" * From news Order By Date DESC"
rs.open sql,conn
 if not rs.eof then
	rs.movefirst
	ok=ok & ""
    do while not rs.eof
	if len(rs("title"))>stringes then
	title=left(rs("title"),stringes)
	else
 title=rs("title")
 end if
	ok=ok &"<a href="&homepages&"/"&filers&"/Display.asp?id=" & rs("id") & " title=點擊鏈接，進入詳細頁面  target=_blank>"&title&"</a>[<font size=1>"&datevalue(rs("Date")) & "</font>]<br>"
		rs.movenext
	loop
	
end if
 	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
ok="document.write('"&ok&"');"
response.write ok
%>