📄 head.asp
字号:
<!--#include file="conn.asp"-->
<HTML><HEAD>
<TITLE><%Set rs=conn.execute ("select sitename from siteinfo")
response.write rs(0)
rs.close%></TITLE>
<META http-equiv=Content-Language content=zh-cn>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="image/index.css" rel=stylesheet>
<SCRIPT language=JavaScript1.2>
<!--
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=20
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</SCRIPT>
<STYLE type=text/css>
BODY {
MARGIN-LEFT: 0px; MARGIN-RIGHT: 0px
}
.样式1 {color: #FFFFFF}
.style3 {font-size: 12px}
.style4 {font-size: 12px; color: #CC3300; }
</STYLE>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<STYLE type=TEXT/CSS>
A {
TEXT-DECORATION: none
}
A:hover {
COLOR: #0000CC; TEXT-DECORATION: underline
}
TD {
FONT-SIZE: 9pt; LINE-HEIGHT: 13pt
}
TH {
FONT-SIZE: 9pt; LINE-HEIGHT: 13pt
}
BODY {
FONT-SIZE: 9pt; LINE-HEIGHT: 13pt
}
#mnu {
FILTER: revealTrans(Duration=1.5,Transition=12) visibility:hide
}
.style3 {color: #FFFFFF}
.style5 {color: #CC3300}
</STYLE>
<SCRIPT>
function set_mnu()
{
if (mnu.style.visibility=="hidden")
{
//产生效果和把图层显示
mnu.filters.revealTrans.apply();
mnu.style.visibility="visible";
mnu.filters.revealTrans.play();
}
else{
//隐藏图层和停止效果播放
mnu.filters.revealTrans.stop();
mnu.style.visibility="hidden" ;
}
}
</SCRIPT>
<script language="JavaScript1.2" src="image/mm_menu.js"></script>
</HEAD>
<BODY background="" topMargin=0 marginheight="0">
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid"
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD width="165" bgColor=#ECCF83><SPAN class=style4><%Set rs=conn.execute ("select sitename from siteinfo")
response.write rs(0)
rs.close%>欢迎您</SPAN></TD>
<TD width=616 bgColor=#0066ff>
<TABLE id=AutoNumber2 style="BORDER-COLLAPSE: collapse" cellSpacing=0
cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<FORM action=chklogin.asp method=post name=user class="style3">
<TD height=25 align=left bgcolor="#ECCF83">
<%if Session("wzname")="" then%> <span class="样式1"><span class="style5">用户名</span>
<INPUT
style="HEIGHT: 16px" size=10 name=username>
<span class="style5">密 码</span></span>
<INPUT
name=userpassword type=password id="userpassword"
style="HEIGHT: 16px" size=14>
<input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="重置">
<a href="getpass.asp"> <span class="样式1 style5">忘记密码</span></a>
<%else%>
<%dim sex,ql
set rs=server.createobject("adodb.recordset")
ql="select * from user where username='"&Session("wzname")&"'"
rs.open ql,conn,1,3%><marquee scrollAmount=3 scrollDelay=100 width=300>
<span class="样式1"><span class="style5">欢迎<%=rs("name")%>
<%if rs("usersex")="男" then%>
先生</span>
<%else%>
<span class="style5">小姐
<%end if%>
的第<%=rs("userlogins")%>次光临,你是我校<%=rs("userclass")%>的
<%if rs("usertype")="1" then%>
老师
<%else%>
学生
<%end if%>
</span></span>
</marquee>
<span class="style5">
<a href="logout.ASP" class="style5">退出</a> </span>
<%Dim usermsgnum
usermsgnum=getmsgnum(Trim(session("wzname")))
if usermsgnum>0 Then
Response.Write "<a href='mail.ASP'><font color=white>信箱(<font color=red>"&usermsgnum&"</font>新)</a></font>"
Response.Write "<bgsound balance=0 src='image/mail.wav' loop=1> "
Else
Response.Write "<a href='mail.ASP'><font color=white>信箱(0新)</a></font>"
End if%>
<%end if%><%dim cl
cl=session("userclass")
%>
<a href="bj/index.asp?bj=<%=cl%>"><span class="样式1 style5">进入班级</span></a>
<select name="select" id="select" onchange="location=this.options[this.selectedIndex].value">
<option selected>学校班级</option><%dim rt
Set rt = Server.CreateObject("ADODB.Recordset")
sql="select bjname from bj order by bjname"
rt.open sql,conn,1,1
do while not rt.eof%>
<option value="bj/index.asp?bj=<%=rt("bjname")%>"><%=rt("bjname")%></option>
<%rt.movenext
loop
rt.close
set rt= nothing%>
</select> </TD>
</FORM>
</TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE>
<TABLE
style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid"
cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=770>
<img src="image/school01.jpg" width='778' height='134' border='0'>
<div id="Layer1" style="position:absolute; width:200px; height:115px; z-index:1; left: 5px; top: 29px;">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="755" height="120">
<param name="movie" value="in1.swf">
<param name="quality" value="high">
<param name="wmode" value="transparent">
<embed src="in1.swf" width="755" height="120" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
</div>
<div id=mnu style="LEFT: 702px; POSITION: absolute; TOP: 188px; VISIBILITY: hidden; Z-INDEX: 1">
<TABLE width="70" border=1 cellPadding=0 cellSpacing=1 bordercolor="#000000">
<TBODY>
<TR >
<TD align="center" solid #000000"><a href="note.asp"><font color="#000000">记事本</font></a></TD>
</TR>
<TR >
<TD align="center" solid #000000"><a href="editreg.asp"><font color="#000000">编辑资料</font></a></TD></TR>
<TR >
<TD align="center" solid #000000"><a href="mail.asp"><font color="#000000">我的信箱</font></a></TD></TR>
<TR >
<TD align="center" solid #000000"><a href="bj/ly.asp?type2=cz&type3=username&key=<%=session("wzname")%>&bj=<%=session("userclass")%>"><font color="#000000">我的留言</font></a></TD></TR>
<TR >
<TD align="center" solid #000000"><a href="grphoto.asp?mmm=0&photocx=<%=session("wzname")%>"><font color="#000000">我的相册</font></a></TD></TR>
</TBODY>
</TABLE></div> </TD>
</TR></TBODY></TABLE>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EFCF84">
<tr>
<td height="27"><div align="center"><a href="index.asp">首页</a></div></td>
<td><div align="center"><a href="gg.asp">公告</a></div></td>
<td><div align="center"><a href="news.asp">新闻</a></div></td>
<td><div align="center"><a href="ly.asp">留言</a></div></td>
<td><div align="center"><a href="photo.asp">相册</a></div></td>
<td><div align="center"><a href="bbs/index.asp">论坛</a></div></td>
<td><div align="center"><a href="bj.asp">班级</a></div></td>
<td><div align="center"><a href="xy.asp">校友</a></div></td>
<td><div align="center"><a href="wishindex.asp">许愿</a></div></td>
<td><div align="center"><a href="song.asp">点歌</a></div></td>
<td><div align="center"><a href="javascript:set_mnu(mnu);">个人面板</a></div></td>
<td><div align="center"><a href="reg.asp">注册</a></div></td>
<td><div align="center"><a href="logout.ASP">退出</a></div></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -