skin.asp

这是一个师姐请我做的英语爱好者的毕业设计 已经通过东北大学的毕业答辩 有论文数据库结构分析等全套 已经是可以直接用的毕业设计!

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

dim online_num,counter_s
online_num=0:counter_s=""
lefter=VbCrLf & "<table border=0 width=777 cellspacing=0 cellpadding=0><tr><td width=1 bgcolor='"&web_var(web_color,3)&"'></td><td width=775 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=5></td></tr>
<tr><td align=center height=120 background='images/<%response.write web_var(web_config,5)%>/login_bg.gif'>
<%
  if login_username<>"" and login_mode<>"" then
%>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr height=16><td></td></tr>
  <tr height=30><td align=center>&#20320;&#22909;&#65292;<b><font class=blue><%response.write login_username%></font></b></td></tr>
  <tr><td align=center>&#20320;&#29616;&#22312;&#24050;&#30331;&#38470; <font class=red><%response.write format_power(login_mode,1)%></font> &#27169;&#24335;</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;&#25105;&#30340;&#30701;&#20449;&#31665;&#65288;<font class="&mess_dim&">"&login_message&"&nbsp;&#26032;</font>&#65289;</a>"
%></td></tr>
  <tr><td align=center><a href='login.asp?action=logout'>&#36864;&#20986;&#30331;&#38470;</a>&nbsp;&#9483;&nbsp;<a href='user_main.asp'><%response.write format_menu("user_main")%></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'>
  <tr height=16><td></td><td></td></tr>
  <tr height=30><td>&#29992;&#25143;&#21517;&#31216;&#65306;</td><td><input type=text name=username size=14 maxlength=20></td></tr>
  <tr height=26><td>&#30331;&#38470;&#23494;&#30721;&#65306;</td><td><input type=password name=password size=14 maxlength=20></td></tr>
  <tr height=26><td colspan=2 align=center>
    <table border=0 cellspacing=0 cellpadding=0><tr align=center valign=bottom>
    <td><a href='login.asp?action=register'>&#20813;&#36153;&#27880;&#20876;</a></td>
    <td width=60><a href='login.asp?action=nopass'>&#24536;&#35760;&#23494;&#30721;</a></td>
    <td><input type=submit value='&#30331; &#24405;'></td>
    </tr></table>
  </td></tr></form></table>
<% end if %>
</td></tr><tr><td height=5></td></tr></table>
<%
end sub
sub web_head(var1,var2,var3,var4,var5)
  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 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")
      end if
      rs.close
    end if
    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="&#28216;&#23458;"&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 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) values('"&login_username&"',0,'"&tit&"','"&now_time&"','"&now_time&"','"&user_ip&"','"&user_sys&"')")
      else
        conn.execute("update user_login set l_where='"&tit&"',l_tim_end='"&now_time&"' where l_username='"&login_username&"'")
      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_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
%>
<html>
<head>
<title><%response.write web_var(web_config,1) & " - " & tit%></title>
<meta name="Description"  content="&#25856;&#35199;&#20449;&#24687;">
<meta name="keywords" content="&#25856;&#35199;&#20449;&#24687;,&#28304;&#30721;,&#21150;&#20844;&#31995;&#32479;,&#19979;&#36733;,&#20813;&#36153;,ERP,CRM,OA">
<meta name="author" content="&#25856;&#35199;&#20449;&#24687;">
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<link rel=stylesheet href='images/joekoe.css' type=text/css>
<script language=javascript src='style/open_win.js'></script>
<script language=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>
<tr><td height=5 bgcolor=<% response.write web_var(web_color,3) %>></td></tr>
<tr><td height=2 bgcolor=<% response.write web_var(web_color,4) %>></td></tr>
<tr><td align=center>
  <table border=0 width='100%' cellspacing=0 cellpadding=0 class=tf>
  <tr align=center height=80>
  <td width="77" height="100" background="images/top.gif">
      <OBJECT classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 height=100 width=775>
<PARAM NAME="movie" VALUE="../_img/tx10.swf">
<PARAM NAME="quality" VALUE="high">
<PARAM NAME="wmode" VALUE="transparent">
<embed src="../img/tx10.swf" width="775" height="100" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent">
      </OBJECT>      
      
</td>  </tr></table>
</td></tr>
<tr><td height=22 background='images/<%response.write web_var(web_config,5)%>/menu_bg.gif' valign=bottom>
  <table border=0 cellspacing=0 cellpadding=0 class=tf align=center>
  <tr align=center height=18><%
  dim wdim
  wdim=split(web_menu,"|")
  for i=0 to ubound(wdim)
    response.write vbcrlf&"<td width=70><a href='"&left(wdim(i),instr(wdim(i),":")-1)&".asp'>"&right(wdim(i),len(wdim(i))-instr(wdim(i),":"))&"</a></td>"
  next
  erase wdim
%></tr></table>
</td></tr>
<tr><td height=1 bgcolor=<%response.write web_var(web_color,3)%>></td></tr>
</table>
<table border=0 cellpadding=0 cellspacing=0 width='98%' align=center>
<tr><td align=left height=35 width='80%'>
&#20170;&#22825;&#26159;&#65306;<%response.write formatdatetime(now_time,1)&"&nbsp;"&WeekDayName(WeekDay(now_time))%>
&nbsp;&nbsp;&#24744;&#29616;&#22312;&#20301;&#20110;&#65306;&nbsp;<a href='./'>&#39318;&#39029;</a>&nbsp;&#8594;&nbsp;
<%
  if tit_fir="" then
    response.write tit
  else
    response.write "<a href='"&index_url&".asp'>" & tit_fir & "</a>&nbsp;&#8594;&nbsp;" & tit
  end if
  response.write "</td><td width='20%' 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;&#25105;&#30340;&#30701;&#20449;&#31665;&#65288;<font class=red>"&login_message&"&nbsp;&#26032;</font>&#65289;</a>"
  else
%>





<marquee scrolldelay=120 scrollamount=4 onMouseOut="if (document.all!=null){this.start()}" onMouseOver="if (document.all!=null){this.stop()}"><script src='style/head_scroll.js'></script></marquee>

<tr><td>  <embed src="images/banner.swf" quality=high  width="774" height="82"></td></tr>
<%
  end if
  response.write "</td></tr></table>" & _
		 vbcrlf&"<table border=0 cellpadding=0 cellspacing=0 width='100%' align=center><tr><td background='images/bg_dian.gif'></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=775 cellspacing=0 cellpadding=0><tr valign=top align=center><td height=300 width=580>"
  case 2
    web_left=vbcrlf&"<table border=0 width=775 cellspacing=0 cellpadding=0><tr><td align=center>"
  case 3
    web_left=vbcrlf&"<table border=0 width=775 cellspacing=0 cellpadding=0><tr><td height=300 align=center>"
  case else
    web_left=vbcrlf&"<table border=0 width=775 cellspacing=0 cellpadding=0><tr valign=top align=center><td height=300 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/"&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
sub web_end(wt)
  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=<%response.write web_var(web_color,3)%>></td></tr>
<tr><td class=end align=center height=20 bgcolor=<% response.write web_var(web_color,2) %>>
<a class=menu href='help.asp?action=about'>&#20851;&#20110;&#25105;&#20204;</a>&nbsp;&#9483;
<a class=menu href='gbook.asp'>&#32593;&#31449;&#30041;&#35328;</a>&nbsp;&#9483;
<a href='links.asp' class=menu>&#21451;&#24773;&#38142;&#25509;</a>&nbsp;&#9483;
<a class=menu href='online.asp'>&#19982;&#25105;&#22312;&#32447;</a>&nbsp;&#9483;
<a href='mailto:[e-mail]' class=menu>QQ:303522564</a>&nbsp;&#9483;
<a class=menu href='admin_login.asp' target=_blank>&#31649;&#29702;</a>&nbsp;&#9483;
<a href='#top' class=menu>TOP</a>
</td></tr>
<tr><td height=1 bgcolor=<% response.write web_var(web_color,3) %>></td></tr>
<tr><td align=center height=20><% response.write counter_s%></td></tr>
<tr><td align=center><%response.write web_var(web_config,1)&"&nbsp;<font class=gray>"&web_var(web_stamp,int(mid(web_setup,3,1))+1)&"</font>"%>&nbsp;&#9483;&#39029;&#38754;&#25191;&#34892;&#26102;&#38388;&#65306;<font class=red_3><% response.write FormatNumber((timer()-timer_start)*1000,3) %></font> &#27627;&#31186;<br><a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=303522564&Site=www.xbqq.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:303522564:13 alt="&#28857;&#20987;&#36825;&#37324;&#32473;&#25105;&#21457;&#28040;&#24687;"></a></td></tr>
<tr><td align=center height=20><% response.write web_var(web_error,4) %></td></tr>
<tr><td height=2 bgcolor=<% response.write web_var(web_color,4) %>></td></tr>
<tr><td height=5 bgcolor=<% response.write web_var(web_color,3)%>></td></tr>
</table><% response.write righter %>
</center></body></html>
<%
end sub
sub web_end2(wt)
  if isobject(rs) then set rs=nothing
  if wt=0 then call close_conn()
  response.write "</center></body></html>"
end sub
%>