| <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim PicUrl(7) '0-7八个图片的地址
Dim PicID(7) '0-7八个图片的ID号,供链接时使用
i=0
Set Rs=Conn.Execute("Select *From Article Where ClassName='新书推荐'")
Do While Not Rs.Eof
PicUrl(i)=Rs("Pic")
PicID(i)=Rs("ID")
i=i+1
Rs.Movenext
Loop
Set Rs=Nothing
%>
海天考研,海天学校，海天教育集团
|
