newslist.asp

一个互联网络公司网站源码

<!--#include file="../inc/conn.asp" -->
<%
	if request.QueryString("newsType")="新闻动态" then
	url="xwdt.htm"
	elseif request.QueryString("newsType")="招聘信息" then
	url="zpxx.htm"
	end if
	sql="select top 10 * from article where articleType='"&request.QueryString("newsType")&"' order by id desc"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	while not rs.eof 
%>
document.write("        <tr>"); 
document.write("          <td height=\"30\" bgcolor=\"#FAFAFA\" style=\"padding-left:5px;\"><a href=\"<%=url%>?id=<%=rs("id")%>\" title=\"<%=rs("title")%>\">·<%=InterceptString(rs("title"),32)%></a></td>");
document.write("        </tr>");
<%
	rs.movenext
	wend
	rs.close
%>