<%
Set srs=Server.CreateObject("ADODB.RecordSet")
ssql="Select * from tblPNclass order by FNclassid asc"
srs.open ssql,conn,1,1
Do While Not srs.eof
%>
<%
srs.MoveNext
loop
srs.close
set srs = nothing
%>
<%
Set srs=Server.CreateObject("ADODB.RecordSet")
ssql="Select * from tblPNclass order by FNclassid asc"
srs.open ssql,conn,1,1
Do While Not srs.eof
%>
<%
srs.MoveNext
loop
srs.close
set srs = nothing
%>
<%
Set srs=Server.CreateObject("ADODB.RecordSet")
ssql="Select * from tblPNclass order by FNclassid asc"
srs.open ssql,conn,1,1
Do While Not srs.eof
%>
<%
srs.MoveNext
loop
srs.close
set srs = nothing
%>
<%
Set srs=Server.CreateObject("ADODB.RecordSet")
ssql="Select * from tblPNclass order by FNclassid asc"
srs.open ssql,conn,1,1
Do While Not srs.eof
%>
<%
srs.MoveNext
loop
srs.close
set srs = nothing
%>
<%
Set srs=Server.CreateObject("ADODB.RecordSet")
ssql="Select * from tblPNclass1 order by FNclassid asc"
srs.open ssql,conn,1,1
Do While Not srs.eof
%>
<%
srs.MoveNext
loop
srs.close
set srs = nothing
%>
<%
Set srs=Server.CreateObject("ADODB.RecordSet")
ssql="Select * from tblPNclass order by FNclassid asc"
srs.open ssql,conn,1,1
Do While Not srs.eof
%>
<%
srs.MoveNext
loop
srs.close
set srs = nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.RecordSet")
sql1="Select top 1 * from TblArticle where FLock=0 and FMode=1 and FSpecial=true and FDefaultPicUrl<>"""" order by FArticleID desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<%
rs1.MoveNext
loop
rs1.close
set rs1 = nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.RecordSet")
sql1="Select top 10 * from TblArticle where FLock=0 and FMode=1 and FSpecial=true order by FArticleID desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<%
rs1.MoveNext
loop
rs1.close
set rs1 = nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.RecordSet")
sql1="Select top 10 * from TblArticle where FLock=0 and FMode=1 and FSpecial=true order by FArticleID desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<%
rs1.MoveNext
loop
rs1.close
set rs1 = nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.RecordSet")
sql1="Select top 10 * from TblArticle where FLock=0 and FMode=1 and FSpecial=true order by FArticleID desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<%
rs1.MoveNext
loop
rs1.close
set rs1 = nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.RecordSet")
sql1="Select top 10 * from TblArticle where FLock=0 and FMode=1 and FSpecial=true order by FArticleID desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
SHENZHEN ISLION TECHNOLOGY CO.,LTD
ADD:The 2nd floor of No.2 building, Tingwei industry park and the 67th district Baoan Shenzhen China
TEL:0086-755-33682233 0086-755-33682244 FAX:0086-755- 29745241
MOBILE:0086-13380363882 0086-13380363980 Email:8008@islion.com
