default.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_other.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/config_flea.asp" -->
  <!-- #include file="include/conn.asp" -->
<%
dim hidden
sql="select * from popwin"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
  rs.close:set rs=nothing:call close_conn()
  response.end
end if
hidden=rs("hidden")
if hidden=0 then
else
    response.write("<SCRIPT LANGUAGE='javascript' src='js/popwin.js'></script>")
end if
rs.close
%>
<%
dim atb:atb=" target=_blank"
dim titl1,titl0
index_url="main"
tit=format_menu(index_url)
tit_fir=""

call web_head(0,0,0,0,0)
%>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="185" valign="top"> 
      <%call format_login()%>


      </script> 
      <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td> 
            <%call main_update_view()%>
          </td>
        </tr>
      </table>
      <%call main_stat("","jt1",1,1,1)%>
      <%call user_data_top("bbs_counter","jt12",1,8)%>
      <%call links_up(10,"fir",1)%>
      <%call vote_type(1,1,"","f7f7f7")%>
      <%call top_flea("price","jt0",1,7)%>
      <br>
    </td>
    <td width="8" background="IMAGES/BG3R.GIF"><img src="IMAGES/BG3R.GIF" width="8" height="1"></td>
    <td align="center" valign="top" bgcolor="#FFFFFF" width="583"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" align="right">
        <tr> 
          <td align="center" valign="top"> 
            <table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
              <tr align=center valign=top> 
                <td> 
                  <%call web_search(1)%>
                </td>
              </tr>
            </table>
            <table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
              <tr align=center valign=top> 
                <td> 
                  <%call news_fpic("",8,"jt0",7,21,1,1)%>
                </td>
              </tr>
            </table>
            <table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
              <tr align=center valign=top> 
                <td> 
                  <%call video_new_hot_pic("","","",4,9,120,100)%>
                </td>
              </tr>
            </table>
            <table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
              <tr align=center valign=top> 
                <td width='49%'> 
                  <%call main_down("jt0","","","","new",7,0,21,1,1)%>
                </td>
                <td width='2%'></td>
                <td width='49%'> 
                  <%call main_article("jt0",2,"",7,17,1,1)%>
                </td>
              </tr>
            </table>
            <table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
              <tr align=center valign=top> 
                <td> 
                  <%call main_gallery_pic("","","paste",8,13,110,80,4)%>
                </td>
              </tr>
            </table>
            <table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
              <tr align=center valign=top> 
                <td width='49%'> 
                  <%call main_news("jt0",49,"",7,17,1,1)%>
                </td>
                <td width='2%'></td>
                <td width='49%'> 
                  <%call main_news("jt0",50,"",7,17,1,1)%>
                </td>
              </tr>
            </table>
            <table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
              <tr align=center valign=top> 
                <td width='49%'> 
                  <%call main_flash_picv("","","flash",2,13,115,88)%>
                </td>
                <td width='2%'></td>
                <td width='49%'> 
                  <%call main_forum("jt0",8,17,1,1)%>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
response.write ukong
'---------------------------------center end-------------------------------
call web_end(0)
sub links_left()
  tit=vbcrlf&"<table border=0 width='100%' cellpadding=0 cellspacing=0>" & _
      vbcrlf&"<tr><td align=center height=50><a href='" & web_var(web_config,2) & "' target=_blank><img border=0 src='images/logo.gif' width=88 heigh=31 alt='" & web_var(web_config,1) & "'></a></td></tr>" & _
      vbcrlf&"<tr><td align=center valign=top><textarea name=flink_main rows=5 cols=21  onfocus=this.select() onmouseover=this.focus()><a href='" & web_var(web_config,2) & "' target=_blank><img border=0 src='" & web_var(web_config,2) & "images/logo.gif' width=88 heigh=31 alt='" & web_var(web_config,1) & "'></a></textarea></td></tr>" & _
      vbcrlf&"</table>"
  call left_type(tit,"links",1)
end sub
%>