skin.asp

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

<!-- #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>