<%
function shijian(str)
if len(str)=2 then
shijian=str
else
shijian="0"&str
end if
end function
function limitlen4(str)
if len(str)>10 then
limitlen4=left(str,10)&"…"
else
limitlen4=str
end if
end function
%>
农经视频
<%
grp=request("grp")
set rs_t=conn.execute("select * from a_channel where group_id+''='"&grp&"'")
if not rs_t.eof then
id2=rs_t("id")'由grp得到这条记录的id
end if
set rsfirstsort=conn.execute("select top 1 * from a_channel where title_in='"&id2&"'")
if not rsfirstsort.eof then
idfirstsort=rsfirstsort("id")
end if
'response.Write idfirstsort
'response.end
%>
<%
set rscontent=conn.execute("select top 20 * from a_content where pass=1 and title_in='"&idfirstsort&"' order by convert(int,num_id),id desc")
while not rscontent.eof
%>
