[求助]帮我看卡这个代码！

所在位置：论坛首页 -> ┈┋BBSGood专区┋┈ -> BBSGood论坛交流 -> [求助]帮我看卡这个代码！


	新的帖子

	发起交易

	任务悬赏

	发起投票

标题:[求助]帮我看卡这个代码！

作者:lvgo520 发表于 2008-9-5 18:30:11

帮我看看下面这个代码！怎么显示的时候最上面有大片空！

--------------------------------------------------------------------------------------------------------------------------

<%
    dim rs,sql
    if not IsObject(conn) then
        LinkData
    end if
    Call sysinfo()
    call LxTel_MB '读取模板
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Application(BBSInfo&"sysinfo")(4,0)%></title>
<meta name="keywords" content="LVGO，手机，PSP，音乐，电影，社区，新闻">
<meta name="description" content="LVGO-爱我网络服务中国！" />
  
  <%
  if Request.QueryString("refreshTime")<>"" and Request.QueryString("refreshTime")<>0 then
  %>
  <meta http-equiv="refresh" content="<%=Request.QueryString("refreshTime")%>">
  <%
  end if
  %>
  
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<script>
var tb_h=new Array()
function init(ids,cons,dis,hids,tbs){
   document.getElementById(ids).getElementsByTagName('li')[0].className='active';
document.getElementById(cons).innerHTML=document.getElementById(dis+"l1").innerHTML;
document.getElementById(ids).onmouseover=function(){onmousOver(ids,cons,dis,hids);}//鼠标指向激发效果
// document.getElementById(ids).onclick=function(){onmousOver(ids,cons,dis,hids);}//点击激发效果
var obj_tab=document.getElementById(tbs)
tb_h[tbs]=obj_tab.offsetHeight;
}
function onmousOver(ids,cons,dis,hids){
o = o || window.event;
var obj=o.target || o.srcElement;
if (obj.tagName=='LI'){
if (obj.className=='active'||obj.id==hids)return;
var o=document.getElementById(ids).getElementsByTagName('li');
for (var i=0;i<=o.length-2;i++){o[i].className='default'}

obj.className='active';
if (obj.className=='active'){document.getElementById(cons).innerHTML=document.getElementById(dis+obj.id).innerHTML;}
}
}
function show_con(tbs,ids,hids){
var obj_click=document.getElementById(hids);
obj_click.innerHTML=(obj_click.innerHTML=="+")?"-":"+"
obj_click.className=(obj_click.className=='showme')?'hidme':'showme'
var hid=(obj_click.className=='showme')?1:-1
var obj_tab=document.getElementById(tbs)
var obj_nav=document.getElementById(ids)
var h_m=obj_nav.offsetHeight+2
var H=tb_h[tbs]
var n=20,t=50;
var timers=new Array(n);
if (hid<0){
    for(var i=0;i<n;i++){(
     function(){
      if(timers[i]) clearTimeout(timers[i]);
      var j=i;
      timers[i]=setTimeout(function(){obj_tab.style.height=H-Math.round((H-h_m)*(j+1)/n);},(i+1)*t);
     }
    )()};
}
if (hid>0){
    for(var i=0;i<n;i++){(
     function(){
      if(timers[i]) clearTimeout(timers[i]);
      var j=i;
      timers[i]=setTimeout(function(){obj_tab.style.height=h_m+Math.round(H*(j+1)/n);},(i+1)*t);
     }
    )()};
}
}
</script>
<body>

<table width="76%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
    <td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="1%" align="left" valign="middle"><img src="images/st19a.gif" width="10" height="35" /></td>
        <td width="98%" align="left" valign="top" background="images/st19.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <%
            dim boardid
    If DataType=1 Then
        sql="select BoardID,FBoardID,BoardName from LxTel_Board where NoSeeBoard=0 order by orderid "
    Else
        sql="select BoardID,FBoardID,BoardName from LxTel_Board where NoSeeBoard=false order by orderid "
    End IF
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open sql,conn,1,1
    if rs.BOF and rs.EOF then
        Response.Write "<td width=""10%"" height=""33"" align=""center"" valign=""middle"">无论坛版块</td>"
    else
        while not rs.EOF
            Response.Write "<td width=""10%"" height=""33"" align=""center"" valign=""middle"" class=""top""><a href=""dislist.asp?boardid="&rs("boardid")&""" class=""top"">"&rs("boardname")&"</a></td>"
            boardid=rs("boardid")
            rs.MoveNext
        wend
    end if
    rs.Close
    set rs=nothing
            %>
          </tr>
        </table></td>
        <td width="1%" align="left" valign="middle"><img src="images/st19b.gif" width="10" height="35" /></td>
      </tr>
    </table></td>
</tr>
<tr>
    <td height="10"></td>
</tr>
<tr>
    <td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="20%" align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#D9D9D9">
          <tr>
            <td align="left" valign="middle" bgcolor="#FFFFFF">
            <%
            if trim(Request.Cookies(bbsinfo&"username"))="" then
            %>
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td height="25" colspan="2" align="left" valign="middle" background="images/bg-login.gif"> <strong><img src="images/07.gif" width="16" height="14" align="absmiddle" />用户登陆</strong></td>
                </tr>
              <tr><form action="login.asp?login=login" method=post>
                <td width="50%" height="25" align="center" valign="middle">用户名：</td>
                <td width="50%" height="25" align="left" valign="middle"><input name="username" type="text" class="wbk" size="12" /></td>
              </tr>
              <tr>
                <td width="50%" height="25" align="center" valign="middle">密  码：</td>
                <td width="50%" height="25" align="left" valign="middle"><input name="password" type="text" class="wbk" size="12" /></td>
              </tr>
              <tr>
                <td height="25" colspan="2" align="center" valign="middle"><input type="checkbox" name="passsave" value="360" />
                  <font color="#666666">在本机保存我的信息</font></td>
              </tr>
              <tr>
                <td height="25" colspan="2" align="center" valign="middle"><input type=image src="images/27.gif" width="90" height="22" /></td>
              </tr>
              <tr></form>
                <td width="50%" height="25" align="center" valign="middle"><a href=getpass.asp><font color="#FF0000">忘记密码</font></a></td>
                <td width="50%" height="25" align="center" valign="middle"><a href=reg.asp>免费注册</a></td>
              </tr>
            </table>
            <%
            else
            %>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="100%" height="25" align="left" valign="middle" background="images/bg-login.gif"> <strong><img src="images/07.gif" width="16" height="14" align="absmiddle" />用户登陆</strong></td>
                </tr>
              <tr>
                <td height="25" align="left" valign="middle" class="jl">欢迎你：<%=trim(Request.Cookies(bbsinfo&"username"))%></td>
                </tr>
              <tr>
                <td height="25" align="left" valign="middle" class="jl"><a href="javascript:window.external.AddFavorite('http://psp.Lvgo.com.cn','PSP社区-爱狗网-LVGO网络')">收藏本站</a> <a href=userinfo.asp>个人中心</a> </td>
              </tr>
              <tr>
                <td height="25" align="left" valign="middle" class="jl">·<a href=userinfo.asp?cz=2>修改个人资料</a></td>
              </tr>
              <tr>
                <td height="25" align="left" valign="middle" class="jl">·<a href=UserInfo.asp?cz=7&optionvar=短消息&shortinfo=收件箱>我的消息</a></td>
              </tr>
              <tr>
                <td height="25" align="left" valign="middle" class="jl">·<a href=exit.asp>退出</a></td>
              </tr>
            </table>
            <%
            end if
            %>
            </td>
          </tr>
        </table></td>
        <td width="1%" align="left" valign="top"></td>
        <td width="79%" align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#aaccee">
          <tr>
            <td height="150" align="left" valign="top" bgcolor="#ebf4fb"></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
</tr>

<tr>
    <td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="6%" height="35" align="left" valign="middle"><a href=post.asp?boardid=<%=boardid%>><img src="images/st20.gif" width="65" height="21" border="0" /></a></td>
        <td width="8%" height="35" align="center" valign="middle"><a href=dislist_jh.asp?boardid=<%=boardid%>><img src="images/st17.gif" width="48" height="21" border="0" /></a></td>
        <td width="6%" height="35" align="left" valign="middle"><a href=help.asp><img src="images/st21.gif" width="65" height="21" border="0" /></td>
        <td width="76%" height="35" align="right" valign="middle"><font color="#FF0000">最新列表</font> | <a href=http://lvgo.com.cn>官方</a> | <a href=gglist.asp>公告</a> | <a href=http://www.lvgo.com.cn>商城</a> | <a href=http://psp.lvgo.com.cn/search.asp>搜索</a></td>
        </tr>
    </table></td>
</tr>
<tr>
    <td height="30" align="left" valign="middle" background="images/bm64.gif"><strong><img src="images/nav.gif" width="30" height="9" align="absmiddle"><a href=index.asp>社区首页</a> >> 最新列表</strong></td>
</tr>
<tr>
    <td align="left" valign="top"><table width="100%" cellspacing="1" bgcolor="#cbd6ea">
      <tr>
        <td width="45%" height="27" align="left" valign="middle" background="images/bg01.gif"> <strong>管理员</strong>:
        <%
        sql="select username from LxTel_user where admin=1 Order By ID desc "
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.open sql,conn,1,1
        if rs.bof and rs.eof then
            Response.Write "无"
        else
            while not rs.eof
                Response.Write ""&rs("username")&" "
                rs.movenext
            wend
        end if
        %>
        </td>
        <td width="30%" height="27" align="center" valign="middle" bgcolor="#FFFFFF">
      <select id="incidence" name="incidence"
       onchange="refreshPage(this)">
       <option value='0' >手动刷新</option><option value='60' selected='selected'>1分钟刷新</option><option value='180' >3分钟刷新</option><option value='300' >5分钟刷新</option>
      </select>
        </td>
        <td width="25%" height="27" align="center" valign="middle" background="images/bg01.gif"><a href="#" onclick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.cszq.net');" style="CURSOR: hand">设为首页</a>
     <a href="javascript:window.external.AddFavorite('http://psp.Lvgo.com.cn','PSP社区-爱狗网-LVGO网络')">添加到收藏夹</a> <a href="rss.asp?boardid=<%=boardid%>"><img src="images/rss.gif" title="RSS订阅" width="30" height="13" border="0" align="absmiddle" /></a></td>
      </tr>
    </table></td>
</tr>
<tr>
    <td height="25" align="left" valign="middle"><font color="#009900"><marquee onmouseover=this.stop() onmouseout=this.start() scrollamount=5>
<%
    dim xxxxx
    If DataType=1 Then
        sql="select top 8 ID,BoardID,Subject,FileName,CreateHtml from LxTel_Topic where IsDel=0 and postsh=0 and gg=1 order by id desc "
    Else
        sql="select top 8 ID,BoardID,Subject,FileName,CreateHtml from LxTel_Topic where IsDel=false and postsh=false and gg=true order by id desc "
    End IF
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open sql,conn,1,1
    while not rs.eof and xxxxx<8
        xxxxx=xxxxx+1
        if Application(BBSInfo&"sysinfo")(78,0)=true then
            Response.Write "·<a href=""post_"&rs("boardid")&"_"&rs("id")&"_1.html"" target=""_blank"">"&InterceptString(rs("subject"),36)&"</a>  "
        else
            Response.Write "·<a href=""dispost.asp?boardid="&rs("boardid")&"&postid="&rs("id")&""" target=""_blank"">"&InterceptString(rs("subject"),30)&"</a>  "
        end if
        rs.movenext
    wend
    rs.close
    set rs=nothing
%>
</marquee> </font></td>
</tr>
<tr>
    <td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">

      <tr>
        <td width="3%" align="center" valign="middle" background="images/st13.gif"></td>
        <td width="57%" height="31" align="center" valign="middle" background="images/st13.gif"><strong>主题</strong></td>
        <td width="12%" height="31" align="center" valign="middle" background="images/st13.gif"><strong>作者</strong></td>
        <td width="8%" align="center" valign="middle" background="images/st13.gif"><strong>点击</strong></td>
        <td width="8%" align="center" valign="middle" background="images/st13.gif"><strong>回复</strong></td>
        <td width="12%" height="31" align="center" valign="middle" background="images/st13.gif"><strong>最后回复</strong></td>
        </tr>
<%
dim page,titlenum,pagenum,colori,color,httpurl,istop,xxx
Page=Cint(RequestNumSafe(Request.QueryString("Page")))
if page=0 then page=1 end if '取得页号
TitleNum = conn.execute ("select count(ID) from LxTel_Topic",0,1)(0)
PageNum = abs(int(-abs(TitleNum/Application(BBSInfo&"sysinfo")(20,0))))

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top "&page*Application(BBSInfo&"sysinfo")(20,0)&" ID,BoardID,Ftbq,TitleColor,Subject,PostUser,PostTime,RePostNum,Hits,LastPostTime,LastPostUser,IsTop,IsBest,CreateHtml,FileName,Admin,IsDel,BoldFace,Pollzt,CommTrue,postsh,upfiletype from LxTel_Topic where IsDel=false and postsh=false and (istop=2 or istop=0) order by istop desc,LastPostTime desc"
rs.open sql,conn,1,1,&h0001

if not(rs.bof and rs.eof) then

rs.absoluteposition=rs.absoluteposition+((abs(page)-1)*Application(BBSInfo&"sysinfo")(20,0))
colori=0
while not rs.eof
if colori=0 then
    color="#ffffff"
    colori=1
else
    color="#EBEDF1"
    colori=0
end if

if rs("createhtml")=true then
    httpurl=GetFolderPath(Application(BBSInfo&"sysinfo")(95,0),rs("posttime"))
    httpurl=httpurl+"/"+rs("filename")
else
    httpurl="dispost.asp?boardid="&rs("boardid")&"&postid="&rs("id")&""
end if
if rs("istop")>0 then
    istop="<img src=""images/ding.gif"" width=""15"" height=""13"" align=""absmiddle"" />"
else
    istop="·"
end if

if rs("isbest")=true then
    istop="<img src=""images/best.gif"" width=""15"" height=""13"" align=""absmiddle"" />"
end if
%>
      <tr bgcolor="<%=color%>">
        <td width="3%" align="center" valign="middle" bgcolor="<%=color%>"><%=istop%></td>
        <td width="57%" height="30" align="left" valign="middle"><a href="<%=httpurl%>" target="_blank"><span class="bt"><%=rs("subject")%></span></a> <a href="dislist.asp?boardid=<%=rs("boardid")%>" target="_blank"><font color="#990000">[<%=getboard(2,rs("boardid"))%>]</font></a></td>
        <td width="12%" height="30" align="center" valign="middle" bgcolor="<%=color%>" class="lb"><%=rs("postuser")%></td>
        <td width="8%" align="center" valign="middle" bgcolor="<%=color%>" class="lb"><%=rs("hits")%></td>
        <td width="8%" align="center" valign="middle" bgcolor="<%=color%>" class="lb"><%=rs("repostnum")%></td>
        <td width="12%" height="30" align="center" valign="middle" bgcolor="<%=color%>" class="lb"><%=rs("posttime")%> </td>
        </tr>
<%
    rs.movenext
wend

end if
%>
      <tr>
        <td height="1" colspan="6" align="center" valign="middle" bgcolor="#aeb9bf"></td>
      </tr>
      <tr><form action="?">
        <td height="30" colspan="6" align="center" valign="middle" bgcolor="#FFFFFF">本社区共有主题<%=TitleNum%>个  共<%=PageNum%>页  <%=Pagination2(pagenum,0)%> 转到
          <input name="page" type="text" size="3" />
页
<input name="Submitx" type="submit" value="GO" /></td></form>
        </tr>
      <tr>
        <td height="1" colspan="6" align="center" valign="middle" bgcolor="#aeb9bf"></td>
        </tr>


    </table></td>
</tr>
<tr>
    <td align="center" valign="middle" height="10"></td>
</tr>
<tr>
    <td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="49%" align="left" valign="top">

<div id='tab1' class='tab'>
<ul id='nav1' class='menu'>

   <li id="l1" class='default'>48小时热门点击</li>
   <li id="l2" class='default'>一周热门点击</li>

   <li id="hid1" class="showme"></li>
</ul>
<div class='con' id='con1'>
</div>
</div>
<div style="display:none">
<div id="div1_l1">
<table width="100%" border="0" cellpadding="0" cellspacing="0">

          <tr>
            <td height="29" align="center" valign="middle" background="images/n_b01.gif"><strong>主题</strong></td>
            <td height="29" align="center" valign="middle" background="images/n_b01.gif"><strong>点击</strong></td>
          </tr>
<%
    If DataType=1 Then
        sql="select top 15 ID,BoardID,Subject,FileName,CreateHtml,posttime,hits from LxTel_Topic where IsDel=0 and postsh=0 and datediff(""d"",PostTime,'"&date()&"')<2 order by hits desc "
    Else
        sql="select top 15 ID,BoardID,Subject,FileName,CreateHtml,posttime,hits from LxTel_Topic where IsDel=false and postsh=false and datediff(""d"",PostTime,'"&date()&"')<2 order by hits desc "
    End IF
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open sql,conn,1,1
    xxx=0
    while not rs.eof and xxx<15
    xxx=xxx+1
if rs("createhtml")=true then
    httpurl=GetFolderPath(Application(BBSInfo&"sysinfo")(95,0),rs("posttime"))
    httpurl=httpurl+"/"+rs("filename")
else
    httpurl="dispost.asp?boardid="&rs("boardid")&"&postid="&rs("id")&""
end if
%>
          <tr>
            <td width="60%" height="25" align="left" valign="middle" class="jl">· <a href="<%=httpurl%>" target="_blank"><%=InterceptString(rs("subject"),40)%></a> <a href="dislist.asp?boardid=<%=rs("boardid")%>" target="_blank"><font color="#990000">[<%=getboard(2,rs("boardid"))%>]</font></a></td>
            <td width="20%" height="25" align="center" valign="middle"><%=rs("hits")%></td>
          </tr>
          <tr bgcolor="#CCCCCC">
            <td height="1" colspan="2" align="left" valign="middle"></td>
          </tr>
<%
        rs.movenext
    wend
    rs.close
    set rs=nothing
%>
          <tr bgcolor="#CCCCCC">
            <td height="1" colspan="2" align="left" valign="middle"></td>
          </tr>
        </table>
</div>
<div id="div2_l2">
   <table width="100%" border="0" cellpadding="0" cellspacing="0">

          <tr>
            <td height="29" align="center" valign="middle" background="images/n_b01.gif"><strong>主题</strong></td>
            <td height="29" align="center" valign="middle" background="images/n_b01.gif"><strong>回复</strong></td>
          </tr>
<%
    If DataType=1 Then
        sql="select top 15 ID,BoardID,Subject,FileName,CreateHtml,posttime,repostnum,hits from LxTel_Topic where IsDel=0 and postsh=0 and datediff(""d"",PostTime,'"&date()&"')<7 order by repostnum desc "
    Else
        sql="select top 15 ID,BoardID,Subject,FileName,CreateHtml,posttime,repostnum,hits from LxTel_Topic where IsDel=false and postsh=false and datediff(""d"",PostTime,'"&date()&"')<7 order by repostnum desc "
    End IF
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open sql,conn,1,1
    xxx=0
    while not rs.eof and xxx<15
    xxx=xxx+1
if rs("createhtml")=true then
    httpurl=GetFolderPath(Application(BBSInfo&"sysinfo")(95,0),rs("posttime"))
    httpurl=httpurl+"/"+rs("filename")
else
    httpurl="dispost.asp?boardid="&rs("boardid")&"&postid="&rs("id")&""
end if
%>
          <tr>
            <td width="60%" height="25" align="left" valign="middle" class="jl">· <a href="<%=httpurl%>" target="_blank"><%=InterceptString(rs("subject"),40)%></a> <a href="dislist.asp?boardid=<%=rs("boardid")%>" target="_blank"><font color="#990000">[<%=getboard(2,rs("boardid"))%>]</font></a></td>
            <td width="20%" height="25" align="center" valign="middle"><%=rs("repostnum")%></td>
          </tr>
          <tr bgcolor="#CCCCCC">
            <td height="1" colspan="2" align="left" valign="middle"></td>
          </tr>
<%
        rs.movenext
    wend
    rs.close
    set rs=nothing
%>
          <tr bgcolor="#CCCCCC">
            <td height="1" colspan="2" align="left" valign="middle"></td>
          </tr>
        </table></div>
</div>
<script>
init('nav1','con1',"div1_","hid1",'tab1');
</script>
</td>
        <td width="2%"></td>
        <td width="49%" align="left" valign="top">
<div id='tab2' class='tab'>
<ul id='nav2' class='menu'>

   <li id="l1" class='default'>48小时热门回复</li>
   <li id="l2" class='default'>一周热门回复</li>

   <li id="hid2" class="showme"></li>
</ul>
<div class='con' id='con2'>
</div>
</div>
<div style="display:none">
<div id="div2_l1">
<table width="100%" border="0" cellpadding="0" cellspacing="0">

          <tr>
            <td height="29" align="center" valign="middle" background="images/n_b01.gif"><strong>主题</strong></td>
            <td height="29" align="center" valign="middle" background="images/n_b01.gif"><strong>回复</strong></td>
          </tr>
<%
    If DataType=1 Then
        sql="select top 15 ID,BoardID,Subject,FileName,CreateHtml,posttime,repostnum,hits from LxTel_Topic where IsDel=0 and postsh=0 and datediff(""d"",PostTime,'"&date()&"')<2 order by repostnum desc "
    Else
        sql="select top 15 ID,BoardID,Subject,FileName,CreateHtml,posttime,repostnum,hits from LxTel_Topic where IsDel=false and postsh=false and datediff(""d"",PostTime,'"&date()&"')<2 order by repostnum desc "
    End IF
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open sql,conn,1,1
    xxx=0
    while not rs.eof and xxx<15
    xxx=xxx+1
if rs("createhtml")=true then
    httpurl=GetFolderPath(Application(BBSInfo&"sysinfo")(95,0),rs("posttime"))
    httpurl=httpurl+"/"+rs("filename")
else
    httpurl="dispost.asp?boardid="&rs("boardid")&"&postid="&rs("id")&""
end if
%>
          <tr>
            <td width="60%" height="25" align="left" valign="middle" class="jl">· <a href="<%=httpurl%>" target="_blank"><%=InterceptString(rs("subject"),40)%></a> <a href="dislist.asp?boardid=<%=rs("boardid")%>" target="_blank"><font color="#990000">[<%=getboard(2,rs("boardid"))%>]</font></a></td>
            <td width="20%" height="25" align="center" valign="middle"><%=rs("repostnum")%></td>
          </tr>
          <tr bgcolor="#CCCCCC">
            <td height="1" colspan="2" align="left" valign="middle"></td>
          </tr>
<%
        rs.movenext
    wend
    rs.close
    set rs=nothing
%>
          <tr bgcolor="#CCCCCC">
            <td height="1" colspan="2" align="left" valign="middle"></td>
          </tr>
        </table>
</div>
<div id="div1_l2">
    <table width="100%" border="0" cellpadding="0" cellspacing="0">

          <tr>
            <td height="29" align="center" valign="middle" background="images/n_b01.gif"><strong>主题</strong></td>
            <td height="29" align="center" valign="middle" background="images/n_b01.gif"><strong>点击</strong></td>
          </tr>
<%
    If DataType=1 Then
        sql="select top 15 ID,BoardID,Subject,FileName,CreateHtml,posttime,hits from LxTel_Topic where IsDel=0 and postsh=0 and datediff(""d"",PostTime,'"&date()&"')<7 order by hits desc "
    Else
        sql="select top 15 ID,BoardID,Subject,FileName,CreateHtml,posttime,hits from LxTel_Topic where IsDel=false and postsh=false and datediff(""d"",PostTime,'"&date()&"')<7 order by hits desc "
    End IF
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open sql,conn,1,1
    xxx=0
    while not rs.eof and xxx<15
    xxx=xxx+1
if rs("createhtml")=true then
    httpurl=GetFolderPath(Application(BBSInfo&"sysinfo")(95,0),rs("posttime"))
    httpurl=httpurl+"/"+rs("filename")
else
    httpurl="dispost.asp?boardid="&rs("boardid")&"&postid="&rs("id")&""
end if
%>
          <tr>
            <td width="60%" height="25" align="left" valign="middle" class="jl">· <a href="<%=httpurl%>" target="_blank"><%=InterceptString(rs("subject"),40)%></a> <a href="dislist.asp?boardid=<%=rs("boardid")%>" target="_blank"><font color="#990000">[<%=getboard(2,rs("boardid"))%>]</font></a></td>
            <td width="20%" height="25" align="center" valign="middle"><%=rs("hits")%></td>
          </tr>
          <tr bgcolor="#CCCCCC">
            <td height="1" colspan="2" align="left" valign="middle"></td>
          </tr>
<%
        rs.movenext
    wend
    rs.close
    set rs=nothing
%>
          <tr bgcolor="#CCCCCC">
            <td height="1" colspan="2" align="left" valign="middle"></td>
          </tr>
        </table></div>
</div>
<script>
init('nav2','con2',"div2_","hid2",'tab2');
</script></td>
      </tr>
    </table></td>
</tr>
<tr>
    <td height="10" align="left" valign="top"></td>
</tr>
<tr>
    <td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#aeb9bf">
      <tr>
        <td height="25" bgcolor="#f5f7f7"><strong> 合作伙伴</strong></td>
      </tr>
      <tr>
        <td align="left" valign="top" bgcolor="#FFFFFF"><%=link%></td>
      </tr>
    </table></td>
</tr>
<tr>
    <td height="25" align="center" valign="middle"><A href="http://bbs.lvgo.com.cn/about/job.asp" target=_blank>诚聘英才</A> | <a target=blank href=firlink.asp?add=1 alt="点击查看本站友情链接交换标准，点击进入自助申请">申请合作</a> | <A href="http://bbs.lvgo.com.cn/about/contact.asp" target=_blank>联系我们</A> | <A href="http://bbs.lvgo.com.cn/about/client.asp" target=_blank>广告服务</A> | <A href="http://www.lvgo.com.cn" target=_blank>爱购商城</A> | <A href="http://bbs.lvgo.com.cn/hoologin.asp" target=_blank>在线投稿</A> | <A href="http://bbs.lvgo.com.cn/about/intro.asp" target=_blank>关于LVGO</A></td>
</tr>
<tr>
    <td height="1" align="left" valign="top" bgcolor="#006699"></td>
</tr>
<tr>
    <td height="20" align="center" valign="middle">Copyright @ 2006-2008 LVGO.COM.CN. All Right Reserved LVGO网络版权所有</td>
</tr>
<tr>
     <td height="20" align="center" valign="middle">
            <a href=http://www.miibeian.gov.cn/ target=_blank>鄂ICP备07003477号</a> |
            <script type="text/javascript" src="http://js.tongji.yahoo.com.cn/0/27/139/ystat.js"></script>
            <noscript>
            <a href="http://js.tongji.yahoo.com.cn"></a>
            </noscript>
            |
            <script language="javascript" type="text/javascript" src="http://js.users.51.la/907011.js"></script>
            <noscript>
            <a href="http://www.51.la/?907011" target="_blank"></a>
            </noscript> </td>
</tr>
<tr>
    <td height="20" align="center" valign="middle"><a href="http://net.china.cn/chinese/index.htm"><img src="images/netchina.gif" title="不良信息举报中心" width="47" height="47" border="0" /></td>
</tr>
</table>
</body>
</html>
<script>
  function refreshPage(obj)
  {
   var str = obj.options[obj.selectedIndex].value;
   location.href='?page=<%=page%>&refreshTime='+str;
  }
</script>
<%
Function Pagination2(PageCount,BoardID)
   Dim WzPage,WzPageCount,PageNum
   'If BoardID = 0 Then BoardID = 1
       If Len(Request.QueryString("Page"))<>0 Then
          WzPage = Clng(RequestNumSafe(Request.QueryString("Page")))
         Else
          WzPage =1
       End If

If WzPage <= 0 Then WzPage =1

PageNum = (WzPage \ 10)*10+1

       If WzPage Mod 10 = 0 Then PageNum = (WzPage \ 10)*10-9
         Pagination2=Pagination2+"<font face=""Webdings"">"
            Pagination2=Pagination2+"<a href=""?BoardId="& BoardID &"&Page=1"" title=""首页""><</a> "
   Pagination2=Pagination2+"<a href=""?BoardId="& BoardID &"&Page="& PageNum-1 &""" title=""前十页""><</a>"
            Pagination2=Pagination2+"</font>"
       For PageNum = PageNum TO PageNum + 9
           If PageNum = WzPage Then
                  Pagination2=Pagination2+"<font color=""#FF0000"">"
                  Pagination2=Pagination2+" ["& PageNum &"] "
                  Pagination2=Pagination2+"</font>"
        Else
                  Pagination2=Pagination2+" <a href=""?BoardId="& BoardID &"&Page="& PageNum &""">"
                  Pagination2=Pagination2+"["& PageNum &"]"
                  Pagination2=Pagination2+"</a> "
   End If
         If PageNum >= PageCount Then Exit For
       Next
         Pagination2=Pagination2+"<font face=""Webdings"">"
            Pagination2=Pagination2+"<a href=""?BoardId="& BoardID &"&Page="& PageNum &""" title=""后十页"">></a> "
   Pagination2=Pagination2+"<a href=""?BoardId="& BoardID &"&Page="& PageCount &""" title=""末页"">></a>"
            Pagination2=Pagination2+"</font>"
End Function
%>

第1页共页共0个回复

<< >>

快速回复

支持UBB,HTML标签

高级回复

操作选项:评分加精解精奖惩设专题设公告解公告固顶总固顶解固顶结帖解结帖锁帖解锁移帖删帖


首页 \| 购买指南 \| 虚拟主机 \| 特色介绍 \| 下载中心 \| 支付方式	Copyright 2004-2008 BBSGood.com Powered By: BBSGood.Speed Version 5.0
咨询电话：0575-85513832、0575-85513825(传真)、7*24小时咨询服务：13606552007	不良信息举报中心浙ICP备05029817号
业务QQ:38958768、客服QQ1:415896239、客服QQ2:343896043、MSN:jccsxx@hotmail.com