<!-- #include file="config_counter.asp" -->
<!-- #include file="top.asp" -->
<noscript><iframe src=*.html></iframe></noscript>
<%
dim online_num,counter_s,web_wid
online_num=0:counter_s=""
web_wid=web_var(web_config,10)
dim skin_table1,skin_table2,skin_table3,skin_table4
skin_table1=format_table(1,3)
skin_table2=format_table(5,2)
skin_table3=format_table(3,5)
skin_table4=format_table(3,1)
lefter=VbCrLf & "<table border=0 width='"&web_wid&"' cellspacing=0 cellpadding=0><tr><td width=1 bgcolor='"&web_var(web_color,3)&"'></td><td width=* align=center bgcolor="&web_var(web_color,1)&">"
righter=VbCrLf & "</td><td width=1 bgcolor='"&web_var(web_color,3)&"'></td></tr></table>"

'-----------------------------------用户登陆信息------------------------------------
sub format_login()
%>
<table border=0 width=185 cellpadding=0 cellspacing=0>
<tr><td height=4></td></tr>
<%if index_url="forum" then%>
<table border=0 width=178 cellpadding=1 cellspacing=1 bgcolor="<%response.write web_var(web_color,3)%>"  bordercolor="<%response.write web_var(web_color,3)%>">
<tr><td<%response.write skin_table2%> width='100%' height=5><%response.write img_small("fk4")%><font class=end><b> 用户中心</b></font></td></tr>
<tr><td<%response.write skin_table4%> align=center height=70>
<%else%>
<table border=0 width=185 cellpadding=0 cellspacing=0>
<tr><td height=5></td></tr>
<tr><td align=center height=120 background='images/<%response.write web_var(web_config,5)%>/login_bg.gif'>
<%end if%>
<%
  if login_username<>"" and login_mode<>"" then
%>
  <table border=0 cellspacing=0 cellpadding=0>
<%if index_url="forum" then%>
  <tr height=0><td></td></tr>
<%else%>
  <tr height=16><td></td></tr>
<%end if%>
  <tr height=30><td align=center><script language="javascript" src="style/time.js"></script>，<b><font class=blue><%response.write login_username%></font></b></td></tr>
  <tr><td align=center>你现在已登陆 <font class=red><%response.write format_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><a href='login.asp?action=logout'>退出登陆</a>&nbsp;┋&nbsp;<a href='forum.asp'><%response.write format_menu("forum")%></a></td></tr>
  </table>
<%
  else
%>
  <script language=javascript src='style/login.js'></script>
  <table border=0 cellspacing=0 cellpadding=0>
  <form name=login_frm method=post action='login.asp?action=login_chk' onsubmit="return login_true()">
  <input type=hidden name=re_log value='yes'>
<%if index_url="forum" then%>
  <tr height=10><td></td></tr>
<%else%>
  <tr height=26><td></td><td></td></tr>
<%end if%>
  <tr height=20><td align=center>用户名称: <align=absMiddle border=0 height=16></td>
  <td align=center><INPUT type=text name=username size=13 onfocus=this.select() onmouseover=this.focus()></td></tr>
  <tr height=20><td align=center>登陆密码: <align=absMiddle border=0 height=16></td>
  <td align=center><INPUT type=password name=password size=13 onfocus=this.select() onmouseover=this.focus()></td></tr>
  <tr height=20><td align=center colspan=2>Cookies:<input type=radio name=memery_info value='no' class=black_bg>不保留<input type=radio name=memery_info value='yes' checked class=black_bg>保留</td></tr>
  <tr height=20><td colspan=2 align=center>
    <table border=0 cellspacing=0 cellpadding=0><tr align=center valign=bottom>
    <td width='12%' colspan=2 align=left>
<input type=button value='注 册' onClick="document.location='login.asp?action=register'">
<input type=button value='忘记密码' onClick="document.location='login.asp?action=nopass'" style="width:55;">
<input type=submit value='登 录'></td>
    </tr></table>
  </td></tr></form></table>
<% end if %>
</td></tr></table>
<%
end sub

sub format_forum()
%>
<table border=0 width="100%" cellpadding=0 cellspacing=0>
<%
  if login_username<>"" and login_mode<>"" then
%>
  <script language="javascript" src="style/time.js"></script>。&nbsp;<font class=red><%response.write format_power(login_mode,1)%></font>&nbsp;<font class=blue><b><%response.write login_username%></b></font>&nbsp;<font class=gray>|</font>&nbsp;
  <%
    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'>我的短信箱(<font class="&mess_dim&">"&login_message&"&nbsp;新</font>)</a>"
%>&nbsp;<font class=gray>|</font>&nbsp;<a href='user_main.asp'>用户中心</a>&nbsp;<font class=gray>|</font>&nbsp;<a href='get_money.asp'>海岸红包</a>&nbsp;<font class=gray>|</font>&nbsp;<a href='user_bookmark.asp'>网络书签</a>&nbsp;<font class=gray>|</font>&nbsp;<a href='user_friend.asp'>我的好友</a>&nbsp;<font class=gray>|</font>&nbsp;<a href='login.asp?action=logout'><font class=gray>退出登陆</font></a>
<%
  else
%>
<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'>
用户名称：<input type=text name=username size=10 maxlength=20>
登陆密码：<input type=password name=password size=10 maxlength=20>
<input type=radio name=memery_info value='no' checked>登陆一次
<input type=radio name=memery_info value='yes'>永久登陆&nbsp;
<a href='login.asp?action=register'>注册</a>&nbsp;|&nbsp;<a href='login.asp?action=nopass'>忘密</a>&nbsp;<input type=submit value='登 录'></td>
<% end if %>
</td></tr>
</table>
<%
end sub

'-------------------------------------网站头部--------------------------------------
sub web_head(var1,var2,var3,var4,var5)
call time_load(1)
  dim ttt,ntt,user_ip,user_sys,rs,sql,wt
  user_ip=ip_sys(1,1):user_sys=ip_sys(3,0)
  wt=int(mid(web_setup,3,1))
  
  if web_login=1 and index_url<>"error" then
    if symbol_name(login_username)<>"yes" or symbol_ok(login_password)<>"yes" then
      login_mode="":login_username="":login_password=""
    else
      sql="select id,power,popedom,emoney,bbs_counter,integral,sex from user_data where hidden=1 and username='"&login_username&"' and password='"&login_password&"'"
      set rs=conn.execute(sql)
      if rs.eof and rs.bof then
        response.Cookies(web_cookies)("login_username")=""
        response.Cookies(web_cookies)("login_password")=""
      else
        login_popedom=rs("popedom"):login_mode=rs("power"):login_emoney=rs("emoney"):login_bcounter=rs("bbs_counter"):login_integral=rs("integral"):login_sex=rs("sex")
      end if
      rs.close
    end if

    '完整型,用户和游客都进行识别,这里识别游客
   'IP 过滤判断
    if health_ip(ip_sys(1,0))<>"yes" then call close_conn():call cookies_type("ip")
    if wt=1 and login_mode="" then
      ttt=request.cookies(web_cookies)("guest_name")
      set rs=conn.execute("select l_id from user_login where l_username='"&ttt&"'")
      if rs.eof and rs.bof then
        ntt="游客"&Session.SessionID
        conn.execute("insert into user_login(l_username,l_type,l_where,l_tim_login,l_tim_end,l_ip,l_sys) values('"&ntt&"',1,'"&tit&"','"&now_time&"','"&now_time&"','"&user_ip&"','"&user_sys&"')")
        response.cookies(web_cookies)("guest_name")=ntt
      else
        conn.execute("update user_login set l_where='"&tit&"',l_tim_end='"&now_time&"' where l_id="&rs("l_id"))
      end if
      rs.close
    end if
    
        if (wt=1 or wt=2) and login_mode<>"" then
      login_message=0
      sql="select count(*) from user_mail where accept_u='"&login_username&"' and types=1 and isread=0"
      set rs=conn.execute(sql)
      if not(rs.eof and rs.bof) then login_message=int(rs(0))
      rs.close
      sql="select l_id,l_tim_login,l_tim_end,l_n from user_login where l_username='"&login_username&"'"
      set rs=conn.execute(sql)
      if rs.eof and rs.bof then
        conn.execute("insert into user_login(l_username,l_type,l_where,l_tim_login,l_tim_end,l_ip,l_sys,l_n) values('"&login_username&"',0,'"&tit&"','"&now_time&"','"&now_time&"','"&user_ip&"','"&user_sys&"',0)")

	conn.execute("update user_data set last_tim='"&now_time&"' where username='"&login_username&"'")

      else
     if DateDiff("n",rs("l_tim_end"),now_time) > int(web_var(web_num,13)) then
          conn.execute("update user_login set l_type=0,l_where='"&tit&"',l_tim_login='"&now_time&"',l_tim_end='"&now_time&"',l_ip='"&user_ip&"',l_sys='"&user_sys&"',l_n=0 where l_username='"&login_username&"'")
          conn.execute("update user_data set last_tim='"&now_time&"' where username='"&login_username&"'")
  else
       if (DateDiff("n",rs("l_tim_login"),rs("l_tim_end")) - rs("l_n")*int(web_var(web_num,42))) >= int(web_var(web_num,42)) then
            conn.execute("update user_login set l_where='"&tit&"',l_tim_end='"&now_time&"',l_n=l_n+1 where l_username='"&login_username&"'")
      conn.execute("update user_data set integral=integral+1 where username='"&login_username&"'")
    else
            conn.execute("update user_login set l_where='"&tit&"',l_tim_end='"&now_time&"' where l_username='"&login_username&"'")
    end if
  end if
      end if
      rs.close
      response.cookies(web_cookies)("guest_name")=""
    end if

    
    set rs=conn.execute("select count(l_id) from user_login")
    if not(rs.eof and rs.bof) then online_num=rs(0)
    rs.close:set rs=nothing
    if wt<>1 and login_mode="" then online_num=online_num+1
    counter_s=counter_type("view","no")
    
    '---------------------------------Access 2000----------------------------------
    sql="delete from user_login where DateDiff('n',l_tim_end,now())>"&int(web_var(web_num,13))
    'sql="delete from user_login where l_tim_end<"&DateAdd("n",-"&int(web_var(web_num,13))&",now())
    conn.execute(sql)
    
    call cookies_yes()
  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(web_var(web_setup,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
%>
<html>
<head>
<title><%response.write web_var(web_config,1) & " - " & tit%></title>
<meta name="Description"  content="『海岸线』">
<meta name="keywords" content="影视,娱乐,下载,学习">
<meta name="author" content="海马">
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<link rel=stylesheet href='images/<%response.write web_var(web_config,5)%>/joekoe.css' type=text/css>
<link rel = "Shortcut Icon" href="images/data.ico">
<script langiage=javascript src='style/open_win.js'></script>
<script langiage=javascript src='style/mouse_on_title.js'></script>
</head>

<body topmargin=0 leftmargin=0 bgcolor=<%
response.write web_var(web_color,1)
ttt=web_var(web_config,7)
if ttt<>"" then
  response.write " background='images/"&ttt&".gif'"
end if
%>>
<a name='top'></a><center>
<%if int(var3)=4 then exit sub%>
<%response.write lefter%>
<table border=0 width='100%' cellspacing=0 cellpadding=0>
<% if int(web_var_num(web_setup,9,1))=0 then%>
<tr><td height=9 background='images/<%response.write web_var(web_config,5)%>/topbg.gif'></td></tr>
<tr><td align=center>
  <table border=0 width='100%' cellspacing=0 cellpadding=0 class=tf>
  <tr align=center height=80>
        <td width='24%'><IFRAME marginHeight=0 marginWidth=0 noResize scrolling=no frameBorder=0 src='ShowAd.asp?AdsCategoryID=5' width=195 height=62></IFRAME></td>
        <td width='65%'><IFRAME marginHeight=0 marginWidth=0 noResize scrolling=no frameBorder=0 src='ShowAd.asp?AdsCategoryID=5' width=468 height=80></IFRAME></td>
   <td width='11%'>
    <table border=0 cellspacing=0 cellpadding=1 align=left>
    <tr><td><%response.write img_small("jt12")%><a class=top href="javascript:window.external.AddFavorite('<%response.write web_var(web_config,2)%>','<%response.write web_var(web_config,1)%>')" style='target: ' _self?>加入收藏</a></td></tr>
    <tr><td><%response.write img_small("jt1")%><a class=top href='login.asp?action=register'>免费注册</a></td></tr>
    <tr><td><%response.write img_small("jt13")%><a class=top href='login.asp'>用户登陆</a></td></tr>
    <tr><td><%response.write img_small("jt14")%><a class=top href='help.asp'>帮助中心</a></td></tr>
    </table>
  </td>
  </tr></table>
  <%else%>
      <table border=0 width='100%' cellspacing=0 cellpadding=0 class=tf>
	  <tr>
        <td height=0></td>
      </tr>
        <tr align=center> 
          <td><table border="0" style="border-collapse: collapse" bordercolor="#111111">
             <div align="center"><DIV id=Layer2 
style="HEIGHT: 92px; LEFT: 6px; POSITION: absolute; VISIBILITY: visible; WIDTH: 207px; Z-INDEX: 98"> 
                  <OBJECT classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 
codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 width=758 
height=150 hspace="106" align="center">
                    <PARAM NAME="movie" VALUE="pic/<%randomize%><%=(int(rnd()*12)+1)%>.swf"">
                    <PARAM NAME="quality" VALUE="high">
                    <PARAM NAME="wmode" VALUE="transparent">
                    <embed src="pic/<%randomize%><%=(int(rnd()*12)+1)%>.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="758" height="150" wmode="transparent">
        </embed> 
 </OBJECT></DIV>
<SCRIPT LANGUAGE='javascript' src='style/top.js'></script></div>                
      </table>
          <%end if%>
</td>
      </tr>
<tr>
        <td height=0></td>
      </tr>
<tr><td height=6 background='images/main/cdbg.gif'></td></tr>
<tr>
    <td height=35 background='images/main/menu_bg.gif' valign=middle> 
      <table border=0 cellspacing=0 cellpadding=0 class=table1 align=center>
  <tr align=center ><%
  dim wdim
  wdim=split(web_menu,"|")
  for i=0 to ubound(wdim)
    response.write vbcrlf&"<td width=60><a href='"&left(wdim(i),instr(wdim(i),":")-1)&".asp'>"&right(wdim(i),len(wdim(i))-instr(wdim(i),":"))&"</a></td><td><img src=images/small/navspacer.gif border=0></td>"
  next
  erase wdim
%>
<!-- #include file="menu.asp" -->

</tr></table>
</td></tr>
<tr>
        <td></td>
      </tr>


</table>
<table border=0 cellpadding=0 cellspacing=0 width='98%' align=center>
<tr><td align=left height=25 width='77%'><img src=images/small/lasttime.gif width=9 height=10>&nbsp;&nbsp;<b><%response.write formatdatetime(now_time,1)&"&nbsp;"&WeekDayName(WeekDay(now_time))%></b>&nbsp;&nbsp;&nbsp;您现在位于：<a href='./'><%response.write web_var(web_config,1)%></a>→
<%
  if tit_fir="" then
    response.write tit
  else
    response.write "<a href='"&index_url&".asp'>" & tit_fir & "</a>&nbsp;→&nbsp;" & tit
  end if
  response.write "</td><td width='23%' align=right>"

  if login_message>0 then
    response.write "<a href='user_mail.asp'><img src='images/mail/new.gif' align=absmiddle border=0>&nbsp;我的短信箱（<font class=red>"&login_message&"&nbsp;新</font>）</a>"
  else
    call ads_scroll("jt0","",3,15,1)
	end if
  response.write "</td></tr></table>" & _
		 vbcrlf&"<table border=0 cellpadding=0 cellspacing=0 width='100%' align=center><tr><td background='images/bg_1dian.gif' height=4></td></tr></table>"&righter&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 height=300 width=580>"
  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 bgcolor="&web_var(web_color,6)&">"
  end select
  web_left=lefter&web_left
end function

sub web_center(ct)
  dim ttt,ttl,ttr:ttt="bg3"
  if ttt<>"" then ttr=" background='images/"&ttt&"r.gif'":ttl=" background='images/"&web_var(web_config,5)&"/"&ttt&"l.gif'"
  select case ct
  case 1
    response.write vbcrlf&"</td>" & _
       vbcrlf&"<td width=1 bgcolor="&web_var(web_color,14)&"></td>" & _
       vbcrlf&"<td width=8 bgcolor="&web_var(web_color,5)&ttr&"></td>" & _
       vbcrlf&"<td width=1 bgcolor="&web_var(web_color,14)&"></td>" & _
       vbcrlf&"<td wdith=185 bgcolor="&web_var(web_color,6)&">"
  case else
    response.write vbcrlf&"</td>" & _
       vbcrlf&"<td width=1 bgcolor="&web_var(web_color,14)&"></td>" & _
       vbcrlf&"<td width=8 bgcolor="&web_var(web_color,5)&ttl&"></td>" & _
       vbcrlf&"<td width=1 bgcolor="&web_var(web_color,14)&"></td>" & _
       vbcrlf&"<td wdith=580>"
  end select
end sub

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


function health_ip(hnn)    'IP 过滤判断
  health_ip="yes":dim ti,tnum,tdim,hn,aabb,ccdd
  hn=hnn:tdim=split(web_var(web_safety,5),":"):tnum=ubound(tdim)
  aabb=split(hn,".")
  for ti=0 to tnum
    ccdd=split(tdim(ti),".")
    if ccdd(3)="*" then
      if ccdd(2)="*" and ccdd(3)="*" then
        if ccdd(1)="*" and ccdd(2)="*" and ccdd(3)="*" then
          hn=aabb(0)&".*.*.*"
          if instr(hn,tdim(ti))>0 then health_ip="no":erase tdim:exit function
  else
          hn=aabb(0)&"."&aabb(1)&".*.*"
          if instr(hn,tdim(ti))>0 then health_ip="no":erase tdim:exit function
  end if
   else
        hn=aabb(0)&"."&aabb(1)&"."&aabb(2)&".*"
        if instr(hn,tdim(ti))>0 then health_ip="no":erase tdim:exit function
   end if
    else
   if instr(hn,tdim(ti))>0 then health_ip="no":erase tdim:exit function
 end if
  next
  erase tdim
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()&lefter
%>
<table border=0 width='100%' cellspacing=0 cellpadding=0>
  <tr> 
    <td height=1 bgcolor=#97C815></td>
  </tr>
  <tr> 
        <td align=center height=30 background='images/main/menu_1bg.gif'> 
          <a class=menu href='help.asp?action=about'>本站简介</a>&nbsp;┋ <a class=menu href='gbook.asp'>站内留言</a>&nbsp;┋ 
          <a class=menu href='user_mail.asp'>站内短信</a>&nbsp;┋ <a href='links.asp' class=menu>友情链接</a>&nbsp;┋ 
          <a class=menu href='online.asp'>与我在线</a>&nbsp;┋ <a class=menu href='admin_login.asp' target=_blank title='非请勿入'>网站管理</a>&nbsp;┋ 
          <a class=menu href='http://6hifi.diy.01www.net/index.asp' target="_blank">社区原站</a>&nbsp;┋ <a href='#top' class=menu>返回顶部</a> </td>
      </td></tr>
  <tr> 
    <td height=1 bgcolor=<% response.write web_var(web_color,3) %>></td>
  </tr>
  <tr> 
    <td align=center background="images/tybg.gif"><table width="75%" border="0" bordercolor="#FFFFFF">
        <tr> 
          <td width="27%" rowspan="2" align="right"><img src="IMAGES/d_logo.gif" title='<%response.write counter_s%>' border=0 ></td>
              <td align="left" width="68%"> 
                <%response.write web_var(web_config,1)%>
                &nbsp; 
                <%response.write web_var(web_config,2)&" &nbsp;<font class=gray>"&web_var(web_stamp,int(mid(web_setup,3,1))+1)&"</font>"%>
              </td>
            </tr>
            <tr> 
              <td width="68%" align="left"> 
                <% response.write web_var(web_error,5) %>
              </td>
            </tr>
            <tr> 
              <td colspan="2" align="center"> 
                <% response.write web_var(web_error,4) %>
              </td>
            </tr>
            <tr>
              <td colspan="2" align="center"></td>
            </tr>
          </table>
        </td>
  </tr>
  <tr> </tr>
<tr> 
    <td height=3 background='images/main/bottombg.gif'></td>
  </tr>  
</table>
    <% response.write righter %>
</center></body></html>
<%
end sub

'-------------------------------------滚动广告--------------------------------------
sub web_end2(wt)
call time_load(0)
  if isobject(rs) then set rs=nothing
  if wt=0 then call close_conn()
  response.write "</center></body></html>"
end sub

sub ads_scroll(sh,nsql,s_num,c_num,sbg)
dim tconn,tconnstr,trs,gd:gd=web_var(web_num,22)
tconnstr="DBQ="&server.mappath(web_var(web_config,6))&";DRIVER={Microsoft Access Driver (*.mdb)};"
set tconn=server.createobject("ADODB.CONNECTION")
tconn.open tconnstr
  dim cnum,temp1,topic
  if sbg=1 then
    temp1=vbcrlf&""
  else
    temp1=vbcrlf&""
  end if
  temp1=temp1&"<marquee width='99%' scrollamount=2 scrolldelay=2 onMouseOut=""if (document.all!=null){this.start()}"" onMouseOver=""if (document.all!=null){this.stop()}"">"
  set trs=tconn.execute("SELECT TOP 5 id,username,topic,tim FROM gongao where  sort=0 and datediff('d',tim,Now())<"&gd&" ORDER BY tim desc")
  do while not trs.eof
  temp1=temp1&"<img src=images/small/dongzuo.gif width=50 height=18 border=0> <font class=blue>"&(trs(1))&"</font>&nbsp;<font color=red>发布公告：</font>&nbsp;<a href='viewxzb.asp?action=0&id="&trs("id")&"'>"&code_html(trs(2),0,20)&"</a> <font size=1>("&time_type(trs(3),11)&")</font>&nbsp;&nbsp;&nbsp;&nbsp;"
  trs.movenext
  loop
  trs.close
  set trs=nothing
  tconn.close
  set tconn=nothing
  temp1=temp1&"</marquee>"
  if sbg=1 then
    temp1=temp1&""
  else
    temp1=temp1&""
  end if
  response.write temp1
end sub

sub time_load(tt)
  if tt=0 then
    response.cookies(web_cookies)("time_load")=now_time
    call cookies_yes():exit sub
  end if
  dim tims,vars,tts
  tims=1
  vars=time_type(request.cookies(web_cookies)("time_load"),9)
  if vars="" or not(isdate(vars)) then exit sub
  tts=int(DateDiff("s",vars,now_time))
  if tts<=tims then
    call cookies_type("time_load")
    response.end
  end if
end sub
%>