suncss

自己已解决,


小站用了CMS首页调用，在用到皮肤时，首页就会不能正常显示了。
首页调用演示：http://www.sirenhai.cn/
大多数皮肤是可以正常显示的，所以应该是要修改下这个皮肤CSS，但我不知道修改哪，希望能得到帮助
首页调用代码：

复制内容到剪贴板

代码:

<!--#include file="BlogCommon.asp" -->
<!--#include file="header.asp" -->
<!--#include file="common/ModSet.asp" -->
<!--#include file="plugins.asp" -->
<!--#include file="class/cls_default.asp" -->
<!--#include file="class/cls_logAction.asp" -->

<style>
  .NewContent{text-align:left;padding:0px;margin:3px;}
  .NewContent .NewBody{text-align:left;text-valign:middle;padding:2px;line-height:120%;height:220px;}
  .NewContent .newline{overflow: hidden;height:20px;text-align:left;text-valign:bottom;text-overflow:ellipsis;white-space:nowrap;}
</style>
<div id="Tbody"><div id="mainContent"><div id="innermainContent"><div id="mainContent-topimg"></div>
<%=content_html_Top_default%><div id="Content_ContentList" class="content-width">
          <table width=100% border=0 cellspacing=0 cellpadding=0 style="margin-top:7px;"><tr>
            <td valign="top" widht=100%>
                <%Newcate(1)%>
</td><td valign="top" width=270>
<table width=100% border=0 cellspacing=0 cellpadding=0 align="center"><!--#include file="SiteFocus/focus.asp" --></div>
<div class="NewContent" style="border:0px;"></div>
</td></tr></table>

<tr><td><%Newcate(2)%></td><td width=50%><%Newcate(3)%></td></tr>
<tr><td><%Newcate(4)%></td><td width=50%><%Newcate(5)%></td></tr>
<tr><td><%Newcate(6)%></td><td width=50%><%Newcate(7)%></td></tr>
</table>

</div><%=content_html_Bottom_default%><div id="mainContent-bottomimg"></div></div></div><%Side_Module_Replace '处理系统侧栏模块信息%>
<div id="sidebar"><div id="innersidebar"><div id="sidebar-topimg"><!--工具条顶部图象--></div><%=side_html_default%>
<div id="sidebar-bottomimg"></div></div></div><div style="clear: both;height:1px;overflow:hidden;margin-top:-1px;"></div></div>
<%
'hot
Sub New_art()
Dim RSn,row,Newarticle
Newarticle = "<table width=99% border=0 cellpadding=0 cellspacing=0>"
        row=0
                Set RSn=Server.CreateObject("Adodb.RecordSet")
                SQL="SELECT TOP 10 L.log_Weather,L.log_CateID,L.log_ID,L.log_Title,L.log_ViewNums,C.cate_Name FROM blog_Content AS L,blog_Category AS C where C.cate_ID=L.log_CateID ORDER BY log_ViewNums DESC"
                RSn.Open SQL,Conn,1,1
                SQLQueryNums=SQLQueryNums+1
                If RSn.Eof And RSn.Bof Then
                        Response.Write("None")
                Else
                        Do While Not RSn.Eof
Newarticle = Newarticle & "<tr><td class=""newline""><img src=images/weather/hn2_"&RSn("log_Weather")&".gif align=absmiddle>【<a href='default.asp?CateID="&RSn("log_CateID")&"'>"& RSn("cate_Name") &"</a>】<a target=_self href=""article.asp?id="&RSn("log_ID")&""">"&HTMLEncode(cutStr(RSn("log_Title"),21))&"</a></td><td class=""newline"" width=44>"& RSn("log_ViewNums") &"</td></tr>"
                          RSn.Movenext
                          row=row+1
                  if row=10 then
                        Exit do
                  end if
                        Loop
                End If
                RSn.Close
                Set RSn=Nothing
Newarticle = Newarticle & "<tr><td></td><td><a href=default.asp target=_self><img src=images/temp/more.gif border=0 alt=查看更多></a></td></tr></table>"
response.write Newarticle
End sub
'new
sub Newcate(Ord)
    dim CateOrd,NewcateStr,RS,CateID
        CateOrd=int(Ord)       
        Set RS=Server.CreateObject("Adodb.Recordset")
        SQL="SELECT top 10 L.log_ID,L.log_Title,L.log_PostTime,L.log_IsTop,C.cate_ID,C.cate_Name FROM blog_Content AS L,blog_Category AS C WHERE log_CateID=cate_ID AND cate_Order="&CateOrd&" order by log_IsTop Asc, log_ID desc"
        RS.Open SQL,CONN,1,1                  
NewcateStr = "<div class=""Content NewContent""><div class=""Content-top""><div class=""ContentLeft""></div><div class=""ContentRight""></div><h1 class=""ContentTitle""><strong>"&RS("cate_Name")&"</strong></h1>"
CateID=RS("cate_ID")
NewcateStr = NewcateStr & "</div><div class=""NewBody""><table width=99% border=0 cellpadding=0 cellspacing=0>"
    do while not RS.eof
NewcateStr = NewcateStr & "<tr><td class=""newline""><a  href=article.asp?id="& RS("log_ID") &" target=_self>"
            if RS("log_IsTop") = True then
NewcateStr = NewcateStr & "<img src=images/temp/top.gif border=0 alt=置顶标志 style=""padding-right:3px"">"
        else
NewcateStr = NewcateStr & "<img src=images/temp/common.gif border=0 alt=http://www.sirenhai.cn style=""padding-right:3px""> "
        end if
            if len(RS("log_Title"))>21 then
NewcateStr = NewcateStr & Left(RS("log_Title"),21) & "..."                   
            else
NewcateStr = NewcateStr &  RS("log_Title")
            end if
                if DateDiff("h",RS("log_PostTime"),Now)<24 then
NewcateStr = NewcateStr & ""
        end if
NewcateStr = NewcateStr & "</a></td><td class=""newline"" width=44>"&month(RS("log_PostTime"))&"月"&day(RS("log_PostTime"))&"</td></tr>"
        RS.movenext
        loop
        RS.close
        Set RS=nothing
NewcateStr = NewcateStr & "<tr><td></td><td><a href=default.asp?cateID="&CateID&" target=_self><img src=images/temp/more.gif border=0 alt=查看更多></a></td></tr></table></div></div>"
        response.write NewcateStr
end sub
%>

<!--#include file="footer.asp" -->

[ 本帖最后由 suncss 于 2008-5-10 09:07 编辑 ]

suncss

没人帮我？过分了。。。

瘦猪呆兔

就打开你的站开了一眼,我估计是你CSS宽度设置的问题,所以整个页面都被撑开了~~

suncss

终于有人说话了，感动。难得的感动。

能帮我找出错误来就最好了

fdw001

楼主 看我的站上的 首页调用 怎么样
sky010.com

想要的话 我站上也有下载

[ 本帖最后由 fdw001 于 2008-5-5 09:02 编辑 ]

suncss

BS楼上那无实际意义的顶帖

wbq122

楼主的CSS怎么改的，我的也有问题

suncss

你可以看下日志内容部分的代码，有没有设置width，就是有没有设置宽度，如果这个宽度是用象素设置的，那首页就会被撑破，将那个删除或者改成%的，要看全局。我的问题是首页被撑破，不知道你的是怎么样的。

suncss

引用:

原帖由 wbq122 于 2008-5-10 15:56 发表
楼主的CSS怎么改的，我的也有问题

我来晚了？

csfar

我的好像没啥问题，，