📄 theme.asp

📁 酷虎网同学录V1.0
💻 ASP
字号:
<%
sub pagehead()
	call online()
	if act<>"" then title=act else title=locat
	response.write "<html><head>"&_
	"<meta NAME=GENERATOR Content=Microsoft FrontPage 4.0 CHARSET=GB2312>"&_
	"<title>"&SchoolmateName&"——"&title&"</title>"%>
	<!--#include file=css.asp-->
	<%response.write "<script language=JavaScript src=script/jsfun.js></script></head>"&_
	"<body alink=#333333 vlink=#333333 link=#333333 topmargin=0 leftmargin=0 background=""images/back.gif"">"

end sub


sub top(navlayer,headshow)
	response.write 	"<table width=700 align=center border=0><tr><td width=""100%"">"
	if headshow<>0 then call pagehead()
	%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
  <TR>
    <TD colSpan=3 align=right valign=top width=750 height=20><A HREF="login.asp">登陆</A>&nbsp;|&nbsp;<A HREF="register.asp"  class=>注册</A>&nbsp;|&nbsp;<%if membername<>"" then%><A HREF="mymodify.asp">资料</A>&nbsp;|&nbsp;<A HREF="usersms.asp">短信</A>&nbsp;|&nbsp;<%end if%><A HREF="help.asp">帮助</A>&nbsp;|&nbsp;<A HREF="login.asp?action=logout">退出</A><%if membername<>"" then 
	
	if sysadmin then%>&nbsp;|&nbsp;<A HREF="sysadm_index.asp">管理</A><%end if
	end if%></TD></TR>
  <TR>
    <TD width=210><a href="http://khoo.kom.cn" target=_blank><IMG height=60 src="images/logo.gif" width=180 border=0></a></TD>
    <TD align=right colSpan=2>
<center>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
  codebase="http://active.macromedia.com/flash4/cabs/swflash.cab#version=4,0,0,0"
  id="Movie1" width="468" height="60">
  <param name="movie" value="images/banner.swf">
  <param name="quality" value="high">
  <param name="bgcolor" value="#FFFFFF">
  <embed name="banner" src="images/banner.swf" quality="high" bgcolor="#FFFFFF"
    width="468" height="60"
    type="application/x-shockwave-flash"
    pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash">
  </embed>
</object>
</center>
    </TD></TR></TBODY></TABLE>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=100% border=0>
  <TBODY>
  <TR>
    <TD></TD></TR></TBODY></TABLE>
<%
call navbar(navlayer)
end sub

sub online()

	if membername<>"" then
		Set ors = Server.CreateObject("ADODB.Recordset")
		sql="select userid from online where userid='"&membername&"'"
		ors.open sql,conn,1,3
		if ors.eof and ors.bof then
			sql="insert into online(userid,ip,logintime,activetime,location) values "&_
				"('"&membername&"','"&Request.ServerVariables("REMOTE_HOST")&"',Now(),Now(),'同学录首页')"
			conn.execute(sql)
		else
			if membername<>"" and clsid<>"" then
				set clsrs=conn.execute("select classname,classid from class where classid="&clng(clsid))
				if not (clsrs.eof and clsrs.bof) then
					loc="『 <a href=BrowseClass.asp?classid="&clsrs(1)&" target=_blank>"&clsrs(0)&"</a> 』 "&locat
				end if
				set clsrs=nothing
			end if
			sql="update online set activetime=Now(),location='"&loc&"',act='"&act&"' where userid='"&membername&"'"
			conn.execute(sql)
		end if
		ors.close
		set ors=nothing
	end if

	sql="Delete FROM online WHERE DATEDIFF('s', activetime, now())>1200"
	Conn.Execute sql

end sub


sub navbar(layer)

	response.write "<TABLE height=25 cellSpacing=1 cellPadding=2 width=100% border=0 align=center "&_
	"bgcolor="&tablebordercolor&"><TR bgcolor=#d7edbe>"
	if act<>"" then title=act else title=locat

	select case layer
	case 0 
		response.write "<TD align=middle background=images/ma_bg1.gif>"&_
		"<A class=b12a href=index.asp>首页</A> <FONT color=#97dd60>|</FONT> "&_
		"<A class=b12a href=OnlineUser.asp>在线</A> <FONT color=#97dd60>|</FONT> "&_
		"<A class=b12a href=ForumDisplay.asp>论坛</A> <FONT color=#97dd60>|</FONT> "&_
		"<A class=b12a href=ClassList.asp>班级</A> <FONT color=#97dd60>|</FONT> "&_
		"<A class=b12a href=UserList.asp>用户</A> <FONT color=#97dd60>|</FONT> "&_
		"<A class=b12a href=TeacherList.asp>教师</A>"
	case 1
		response.write "<TD align=left><A class=b12a href=index.asp><IMG SRC=IMAGES/home.gif hspace=2 border=0>"&schoolmatename&"</A> <img src=images/nav1.gif align=absmiddle> "&title
	case 2
		if locat="校园论坛" then
			response.write "<td><table width=""100%"" cellspacing=0 cellpadding=0><tr><TD align=left><A class=b12a href=index.asp><IMG SRC=IMAGES/home.gif hspace=2 border=0>"&schoolmatename&"</A> <img src=images/nav1.gif align=absmiddle> 『 <A class=b12a href=ForumDisplay.asp>校园论坛</a> 』 <img src=images/nav1.gif align=absmiddle> "&act&"</td></tr></table>"
		else
			set classname=conn.execute("select classname from class where classid="&clsid)
			response.write "<td><table width=""100%"" cellspacing=0 cellpadding=0><tr><TD align=left><A class=b12a href=index.asp><IMG SRC=IMAGES/home.gif hspace=2 border=0>"&schoolmatename&"</A> <img src=images/nav1.gif align=absmiddle> 『 <A class=b12a href=MyClass.Asp>"&classname(0)&_
			"</a> 』 <img src=images/nav1.gif align=absmiddle> "&title&"</td><td align=right>"
			if locat<>"班级首页" then
			response.write "<A class=b12a href=MyClass.Asp><img src=images/return.gif border=0 hspace=2 align=absmiddle>返回班级首页</a>"
			end if
			response.write "</td></tr></table>"
			set classname=nothing
		end if
	end select
	response.write "</TD></TR></TABLE>"
end sub

sub success(byval suctitle,byval sucmsg)
%>
<br><br>
<table cellpadding=0 cellspacing=0 border=0 width="100%" align=center bgcolor=<%=tablebordercolor%>><tr><td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr align="center"><th width="100%" >成功：<%=suctitle%></th></tr>
<tr><td width="100%" bgcolor=<%=tablebodycolor2%>><br>&nbsp;&nbsp;<%=sucmsg%></b><br><br></td></tr>
<tr align="center"><td width="100%" bgcolor=<%=tabletitlecolor%>><a href="javascript:history.go(-1)"></a></td></tr>  
</table>
</td></tr></table>

<%
end sub

sub redirect(timeout,url,title,msg)

	response.write "<meta http-equiv=refresh content="&timeout&";URL="&url&">"
	response.write "<br><br><table cellpadding=0 cellspacing=1 border=0 width=100% bgcolor="&tablebordercolor&" align=center>"&_
		"<tr><td><table cellpadding=3 cellspacing=1 border=0 width=""100%"">"&_
		"<tr align=center><th width=100% bgcolor="&tabletitlecolor&"><b><FONT COLOR="&TableFontcolor&">状态："&title&"</font></b></th>"&_
		"</tr><tr><td width=100% bgcolor="&tablebodycolor2&">"&_
		"<FONT COLOR="&TableContentcolor&">"&msg&"</td></tr></table></td></tr></table>"
end sub

sub footer()
%>
</td></tr></table>
<p><TABLE cellSpacing=0 cellPadding=0 width="95%" border=0 align=center>
<tr>
<td>
<p align=center><%rem =ads2%>
</td>
</tr>
<tr valign="center">
<td width =100% align=center>
<font face="Verdana">
<a href=http://khoo.kom.cn title=酷虎网同学录(中小学版) V1.0 </a>
<br>Copyright&copy; 2002-2003 Powered By <a href=mailto:tphoocys@163.com>陈寅生</a></font>
<%'response.write "<br>"&(timer-start)%>
</td>
</tr>
</table>

<%call endconnection()%>

<%

end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -