<%
dim i
dim j
dim jNow
i=1
j=0
set rs = server.CreateObject("ADODB.RecordSet")
dim strSql
strSql="select * from kfinfo where intType=2 order by dmtCheck desc "'LIMIT " & offset & "," & pagesize
'response.write conn
'response.end
rs.Open strSql,conn,1,1
if not rs.EOF then
intLsh = rs("intLsh")
chrTitle = rs("chrTitle")
chrContent= rs("chrContent")
end if
set rs2 = server.CreateObject("ADODB.RecordSet")
strSql="select * from kfinfo where intType=3 order by dmtCheck desc "'LIMIT " & offset & "," & pagesize
'response.write conn
'response.end
rs2.Open strSql,conn,1,1
if not rs2.EOF then
intLsh2 = rs2("intLsh")
chrTitle2 = rs2("chrTitle")
chrContent2= rs2("chrContent")
end if
%>
项目合作 - 重庆凯丰医疗器械有限公司 - kf1768.com
