现在有三行三列，我想改成两行四列，然后把封面变大一些，把名称，作者，类型，简介去掉 这样的话首页看起来好看一些 这是我的网址 http://www.hx-sx.com/ :lol: 下面是函数，我不会修改，谁帮我修改一下，先谢谢你们了 Function showjptj(Num) set rsShow=server.CreateObject("ADODB.Recordset") sql = "select top " & Num & " id,list_class,list_user,list_name,list_all,list_pic from [list_book] where Isgood = 1 and Lock_book = 0 order by id desc" rsShow.open sql,conn,1,1 response.write "<table width=100% border=1 cellspacing=0 cellpadding=0 bordercolordark=white bordercolorlight=cccccc bordercolor=white><tr height=26>" i=1 do while not rsShow.eof response.write "<td height=26 align=left width=33% ><table width=100% border=0 align=center cellpadding=0 cellspacing=2><tr>" response.write "<td width=11% valign=top align=left><a href="&SiteSystemPath&"look_book.asp?id="&rsShow("id")&"><img src="&rsShow("list_pic")&" width=70 height=100 border=0 style=border: 1 solid #000000></a></td>" response.write "<td width=22% valign=top align=left><table border=0 cellspacing=0 cellpadding=1><tr valign=top><td height=20>名称:</td>" if OpenInhtml=1 then response.write "<td><a href="&SiteSystemPath&"html/"&rsShow("id")&"."&htmlphe&"><u><font color=#FF6600>"&rsShow("list_name")&"</font></a></u></td>" else response.write "<td><a href="&SiteSystemPath&"look_book.asp?id="&rsShow("id")&"><u><font color=#FF6600>"&rsShow("list_name")&"</font></a></u></td>" end if response.write "</tr><tr valign=top><td width=35>作者:</td><td height=20><font color=#000000>"&rsShow("list_user")&"</a></font></td></tr>" set rs5=server.createobject("adodb.recordset") sql5="select list_tpye from [list_type] where typeid="&rsShow("list_class")&"" rs5.open sql5,conn,1,1 response.write "<tr valign=top><td height=20>类型:</td><td>"&rs5("list_tpye")&"</td></tr>" rs5.close set rs5=nothing response.write "<tr valign=top><td height=20>简介:</td><td>"&left(rsShow("list_all"),30)&"</td></tr></table></td></tr></table></td>" if i mod 3=0 then response.write "</tr><tr height=26>" 'end if i=i+1 rsShow.movenext loop rsShow.close set rsShow=nothing response.write "</tr></table>" End Function