<%
function MidStr(str,length)
length1=len(str)
if length1>length then
MidStr=left(str,length)&"..."
else
MidStr=str
end if
end function
sql2="select * from qyinfo where iscustom='1' order by addtime desc"
set rs2=link.execute(sql2)
do while not rs2.eof
allqy=allqy&""&rs2("qyname")&" "
rs2.movenext
loop
sql="select top 5 *from qyinfo where qycp<>'' order by addtime desc"
set rs=link.execute(sql)
i=0
dim str1(5)
dim reid(5)
do while not rs.eof
qycp11=rs("qycp")
if qycp11<>"" then
if i<5 then
str=split(qycp11,"|")
reid(i)=rs("id")
str1(i)=str(0)
i=i+1
end if
end if
rs.movenext
loop
sql1="select top 6 *from gq order by updatetime desc"
set rs1=link.execute(sql1)
%>
四川阳鑫种业有限责任公司!
玉米水稻展示