gonggao1.asp

机械工业出版社马涛主编的《网站建设与管理》电子课件+示例源码

 <!--#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
%>