<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
EC Publication
<%'===================================ASP================================
set rs_3=server.CreateObject("adodb.recordset")
rs_3.open "select id,title,date,lanmuid from article where lanmuid=3",conn,1,1
set rs_4=server.CreateObject("adodb.recordset")
rs_4.open "select id,title,date,lanmuid from article where lanmuid=4",conn,1,1
set rs_5=server.CreateObject("adodb.recordset")
rs_5.open "select id,title,date,lanmuid from article where lanmuid=5",conn,1,1
set rs_6=server.CreateObject("adodb.recordset")
rs_6.open "select id,title,date,lanmuid from article where lanmuid=6",conn,1,1
set rs_7=server.CreateObject("adodb.recordset")
rs_7.open "select id,title,date,lanmuid from article where lanmuid=7",conn,1,1
set rs_8=server.CreateObject("adodb.recordset")
rs_8.open "select id,title,date,lanmuid from article where lanmuid=8",conn,1,1
'========================================================================%>
第 [1] 期
<% dim i3
i3=0
while((not rs_3.eof) and (i3<>5)) %>
<%
rs_3.movenext
i3=i3+1
Wend
%>
<% dim i4
i4=0
while((not rs_4.eof) and (i4<>5)) %>
<%
rs_4.movenext
i4=i4+1
Wend
%>
<% dim i5
i5=0
while((not rs_5.eof) and (i5<>5)) %>
<%
rs_5.movenext
i5=i5+1
Wend
%>
<% dim i6
i6=0
while((not rs_6.eof) and (i6<>5)) %>
<%
rs_6.movenext
i6=i6+1
Wend
%>
<% dim i7
i7=0
while((not rs_7.eof) and (i7<>5)) %>
<%
rs_7.movenext
i7=i7+1
Wend
%>
<% dim i8
i8=0
while((not rs_8.eof) and (i8<>5)) %>
