请问网站首页如何调用图片栏目中的分栏目内容

'首页
 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


这段代码我实在修改不了了。谢谢！