<!-- #include file="config_counter.asp" -->
<!-- #include file="web_above.asp" -->
<!-- #include file="web_js.asp" -->

<%
dim online_num,counter_s,web_wid
online_num=0
counter_s=""
web_wid=objv7.web_var(web_config,10)
lefter=VbCrLf & "<table border=0 class=twidth cellspacing=0 cellpadding=0><tr><td width=* align=center>"
righter=VbCrLf & "</td></tr></table>"

'-----------------------------------用户登陆信息------------------------------------
sub format_login()
response.write kong&login_bar("会员登陆",1,"100%")
  if login_username<>"" and login_mode<>"" then
%>
<table width=95% align=center cellpadding=0 cellspacing=0 border=0>
<tr><td valign=top align=center>
  <tr height=30><td align=center><script language="javascript" src="style/time.js"></script>，<font class=time><%response.write login_username%></font></td></tr>
  <tr><td align=center>你现在已登陆 <font class=time><%response.write objv7.format_power(user_power,login_mode,1)%></font> 模式</td></tr>
  <tr height=30><td align=center><%
    dim mess_dim
    if login_message>0 then
      mess_dim="red"
      response.write "<bgsound src='images/mail/message.wav' border=0>"
    else
      login_message=0:mess_dim="gray"
    end if
   response.write "<a href='user_mail.asp'><img src='images/mail/new.gif' align=absmiddle border=0>&nbsp;我的短信箱（<font class="&mess_dim&">"&login_message&"&nbsp;新</font>）</a>"
%>
</td></tr>
  <tr><td align=center><%if objv7.format_power(user_power,login_mode,0)="carer" then%><a href='caruser.asp'>会 员 卡</a><%else%><a href='notes.asp'>消费记录</a><%end if%>&nbsp;┋&nbsp;<A href="user_edit.asp">修改资料</A></td></tr>
  <tr><td align=center><a href='login.asp?action=logout'>退出登陆</a>&nbsp;┋&nbsp;<a href='user_main.asp'>用户中心</a></td></tr>
  </table>
<%
elseif LockmbIP(Request.ServerVariables("REMOTE_ADDR")) then
 response.write "<td>"&mbname&"</font><br>"
response.write "<A href=""login.asp"">以会员模式登录登陆</A><br><a href='shop.asp'>批量购买电影卡</a><br><a title='你的IP:"&Request.ServerVariables("REMOTE_ADDR")&"可以在本站免费观看所有电影' href='#'>"&Request.ServerVariables("REMOTE_ADDR")&"<br>"
if now()>=""&timemb&"" then
response.write "网吧帐号已经到期<br><A href=shop.asp>续费</A>"
else
response.write "网吧帐号"&timemb&"到期"
end if
else%>
<table width=95% align=center cellpadding=0 cellspacing=0 border=0>
<tr><td valign=top align=center>
<script language=javascript src='style/login.js'></script>
<form name=login_frm method=post action='login.asp?action=login_chk' onsubmit="return login_true()">
<input type=hidden name=re_log value='yes'>
<table width=100% cellpadding=3 align=center cellspacing=0 border=0>
<tr><td align=center>用户名称：<INPUT type=text name=username class=inputbg size=12></td></tr>
<tr><td align=center>登陆密码：<INPUT type=password name=password size=12 class=inputbg></td></tr>
<tr><td align=center>登陆保留：
<select name=memery_info><option value="no">一次登陆</option><option value="yes">永久登陆</option></select></td></tr>
<tr><td align=center>
<input type=button value='注 册' onClick="document.location='login.asp?action=register'" class=inputbg>
<input type=button value='忘记密码' onClick="document.location='login.asp?action=nopass'" style="width:55;" class=inputbg>
<input type=submit value='登 录' class=inputbg></td></tr></table>
</td></tr></form></table>
<% end if
response.write login_bar("",2,"100%")
end sub

'-------------------------------------网站头部--------------------------------------
sub web_head(var1,var2,var3,var4,var5)
  call web_above()
if objv7.web_var_num(web_setup,2,1)=0 then
call time_load(1)
end if
  if page_power<>"" and format_page_power(login_mode)<>"yes" then call close_conn():call cookies_type("power")
  select case var1
  case 1
    if int(objv7.web_var_num(web_setup,1,1))<>0 and (login_username="" or login_mode="") then call close_conn():call cookies_type("login")
  case 2
    if login_username="" or login_mode="" then call close_conn():call cookies_type("login")
  end select
  select case var2
  case 1
    call close_conn()
  case 2
    exit sub
  end select
  if var3=5 then exit sub
  call web_js(var3)
  if var3=4 then exit sub
  response.write web_left(var3)
end sub

'-------------------------------------网站布局--------------------------------------
function web_left(lt)
  select case lt
  case 1
    web_left=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=0><tr valign=top align=center><td width=185 height=300>"
  case 2
    web_left=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=0><tr><td align=center>"
  case 3
    web_left=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=0><tr><td height=300 align=center>"
  case else
    web_left=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=0><tr valign=top align=center><td width=185>"
  end select
  web_left=lefter&web_left
end function

sub web_center(ct)
  response.write vbcrlf&"</td><td width=8></td><td wdith=*>"
end sub

function web_right()
  web_right=vbcrlf&"</td></tr></table>"&righter
end function

'-------------------------------------网站底部--------------------------------------
sub web_end(wt)
  call time_load(0)
  if isobject(rs) then set rs=nothing
  if wt=0 then call close_conn()
  response.write web_right()
%><script language=javascript>web_end('<%response.write web_edition%>','<%response.write counter_s%>','<%response.write objv7.web_var(web_stamp,int(mid(web_setup,3,1))+1)%>','<%response.write FormatNumber((timer()-timer_start)*1000,3)%>','<%response.write objv7.web_var(web_error,4)%>');</script>
<p align="center">


  
<%
  if isobject(objv7) then set objv7=nothing
end sub

sub web_end2(wt)

  if isobject(objv7) then set objv7=nothing
  if isobject(rs) then set rs=nothing
  if wt=0 then call close_conn()
  response.write "</center></body></html>"
  call time_load(0)
end sub
%>