<%
prolenid=Trim(request.querystring("prolenid"))
set rs=server.CreateObject("adodb.recordset")
dim prolen
url="xwdt.asp?"
select case prolenid
case "1"
prolen="行业新闻"
url=url&"prolenid=1&"
case "2"
prolen="企业新闻"
url=url&"prolenid=2&"
end select
sql="select * from news"
if prolenid<>"" then sql=sql&" where sort='"&prolen&"'"
sql=sql&" order by id asc "
rs.open sql,conn,1,3
%>
::Hengda Bristles::Manufacture and provide all kinds of boiled bristles
