<% set rswzm=server.createobject("adodb.recordset") sqlwzm="select * from web " rswzm.open sqlwzm,conn,1,3%> <% set rsn=server.createobject("adodb.recordset") sql="select * from ysj where id="&request("id") rsn.open sql,conn,1,1 %> 齐风鲁韵四季书画展之<%=rsn("xm")%>艺术区-<%=rswzm("webname")%> "> "> <% exec="select * from ysj where id="&request("id") set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,3 rs("hit")=rs("hit")+3 rs.update %>
齐风鲁韵四季书画展之<%=rsn("xm")%>艺术区
<%if rsn("zb")="无照片" then%> 无照片 <%else%> " target="_blank">" alt="画家 <%=rsn("xm")%> 的照片,单击鼠标查看大图!" border="0" /> <%end if%>
  • 名家:<%=rsn("xm")%>
  • 电话:<%=rsn("tel")%>
  • 网址:<%=rsn("add")%>
  • 指数:<%=rsn("hit")%>
  • 加入齐鲁书画网

  • <%=rsn("zj")%>
    <% set rs=server.createobject("adodb.recordset") sql="select * from zp where id="&request("id")&" order by tpid desc " rs.open sql,conn,1,1 %> <% page=clng(request("page")) dim sortNum_row '每行显示的分类个数 sortNum_row=20 session("oldUrl")="./" %>
    <% if not rs.eof then rs.pagesize=20 pagenum=rs.pagecount if page>pagenum then page=pagenum if page<1 then page=1 pageno=page rs.AbsolutePage=pageno i=0 do while not rs.eof and i<20 %> <% loop else response.write "" end if %>
    <% j=0 do while j<4 if not rs.eof then %> <% rs.movenext else %> <% end if j=j+1 i=i+1 loop %>
    暂无作品!
      (共有<%=rs.recordcount%>幅作品  每页显示<%=rs.pagesize%>幅作品  当前为第<%=page%>页) <% if page=1 then %> -----首页 -----上一页 <% else %> -----">首页 -----">上一页 <% end if if page>=pagenum then %> -----下一页 -----尾页 ----- <% else %> -----">下一页 -----">尾页-----  <%end if %>