main00.asp

来自「漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了」· ASP 代码 · 共 138 行

<!-- #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)
'------------------------------------left1----------------------------------
call format_login()

'----------------------------------left1 end--------------------------------
call web_center(0)
'-----------------------------------center1---------------------------------
%>
<table width='98%' border=1 align=center cellpadding=0 cellspacing=0 bordercolor="#ffffff" >
<tr><td height=6></td></tr>
  <tr>
    <td align=center>
      <%call news_fpic("",8,"jt0",7,21,1,1)%>
    </td>
  </tr>
</table>
<%
'---------------------------------center1 end-------------------------------
response.write web_right()&web_left(0)
'------------------------------------left2----------------------------------
call main_stat("","jt1",1,1,1)
'----------------------------------left2 end--------------------------------
call web_center(0)
'-----------------------------------center2---------------------------------
%>
<table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
<tr><td align=center><%call web_search(1)%></td></tr>
</table>
<%
'---------------------------------center2 end-------------------------------
response.write web_right()&web_left(0)
'------------------------------------left3----------------------------------
call user_data_top("bbs_counter","jt12",1,8)
'----------------------------------left3 end--------------------------------
call web_center(0)
'-----------------------------------center3---------------------------------
%>
<table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
<tr align=center valign=top>
<td width='55%'><%call main_forum("jt0",8,17,1,1)%></td>
<td width='1%'></td>
<td width='44%'><%call main_update_view()'call main_update("jt0",8,16,1,11)%></td>
</tr>
</table>
<%
'---------------------------------center3 end-------------------------------
response.write web_right()&web_left(0)
'------------------------------------left4----------------------------------
call links_up(10,"fir",1)
'----------------------------------left4 end--------------------------------
call web_center(0)
'-----------------------------------center4---------------------------------
%><table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
<tr align=center valign=top>
<td width='98%'><%call video_new_hot_pic("","","",4,9,120,100)%></td>
</tr>
</table>
<%
'---------------------------------center4 end-------------------------------
response.write web_right()&web_left(0)
'------------------------------------left5----------------------------------
call vote_type(1,1,"","f7f7f7")
'----------------------------------left5 end--------------------------------
call web_center(0)
'-----------------------------------center5---------------------------------
%><table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
<tr align=center valign=top>
<td width='55%'><%call main_down("jt0","","","","new",7,0,21,1,1)%></td>
<td width='1%'></td>
<td width='44%'><%call main_article("jt0","","",7,17,-1,1)%></td>
</tr>
</table>
<%
'---------------------------------center5 end-------------------------------
response.write web_right()&web_left(0)
'------------------------------------left6----------------------------------
call top_flea("price","jt0",1,7)
'call links_left() 
'----------------------------------left6 end--------------------------------
call web_center(0)
'-----------------------------------center6---------------------------------
%>
<table border=0 width='98%' cellspacing=0 cellpadding=0>
<tr bgcolor=#FFFFFF bordercolor=#FFFFFF>
<td width='78%'><%call main_gallery_pic("","","paste",3,13,120,81)%></td>
<td width='22%'><%call vouch_top("jt12",1,7)%></td>
</tr>
</table>
<%
'---------------------------------center6 end-------------------------------
response.write web_right()&web_left(0)
'------------------------------------left7----------------------------------
'call ip_search
response.write "<img src='images/hyl.gif'>"
response.write ukong
'----------------------------------left7 end--------------------------------
call web_center(0)
'-----------------------------------center7---------------------------------
%>
<%
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
%>