请问网站首页如何调用图片栏目中的分栏目内容
'首页function PhotoDex()
dim rs,sql,i
set rs = server.createobject("adodb.recordset")
sql="select * from zhi_rui_e_po where ViewFlag=1 order by id desc"
rs.open sql,conn,1,1
response.write"<div class=""newpic_list"">"
if rs.bof and rs.eof then
response.write "<tr><td align='center'>暂无相关信息</td></tr>"
else
response.write"<ul>"
for i=1 to 12' rs.recordcount
if rs.eof then exit for
response.write"<li><div class=""newpic_pic"">"
response.write"<a href='Photo_Show.asp?InfoId="&rs("ID")&"&ClassId="&rs("ClassId")&"&Topid="&rs("TopID")&"'><img src='"&rs("BigPic")&"' border=""0"" width=100 height=85></a></div>"
response.write"<div class=""newpic_title"">"&left(rs("PhotoName"),10)&"</div></li>"
if i mod 6 = 0 then
response.write"</ul>"
end if
rs.movenext
next
end if
response.write "</div>"
rs.close
set rs=nothing
end function
这段代码我实在修改不了了。谢谢!