<% option explicit
on error resume next%>
图片新闻
<%
dim typeid,Sql,Rs
typeid=Request.QueryString ("type")
if len(typeid)=1 then
Sql = "select * from news where typeid="&typeid&" and audit=1 order by ntime desc"
else
Sql = "select * from news where typeid="&left(typeid,1)&" and borderid="&right(typeid,1)&" and audit=1 order by ntime desc"
end if
'Response.Write sql
'Response.End
set rs=server.createobject("adodb.recordset")
Rs.Open Sql,conn,3,1
%>
