⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.asp

📁 西风班级信息管理系统 v1.1的源码
💻 ASP
字号:
🔍 
<!--#include file="syssetup.asp"-->
<!--#include file="inc/func.INC"--><!--#include file="inc/chkonline.asp"--><%
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If
if request.cookies("myuserid")<>""then
userid=request.cookies("myuserid")
password=request.cookies("mypwd")
session("myuserid")=userid
session("mypwd")=password
else
userid=session("myuserid")
password=session("mypwd")
end if
call online()
%><HTML><HEAD><TITLE>仰恩大学98信管（2）班班级主页</TITLE><LINK href=jscs/mcss.css type=text/css rel=stylesheet><script language="javascript"type="text/javascript"src="img/chromeless_35.js"></script><script language="javascript">
function openIT(u,W,H,X,Y,n,b,x,m,r,jj,tt){var cU='img/close_up.gif'
var cO='img/close_ovr.gif'
var cL='img/clock.gif'
var mU='img/min_up.gif'
var mO='img/min_ovr.gif'
var xU='img/max_up.gif'
var xO='img/max_ovr.gif'
var rU='img/res_up.gif'
var rO='img/res_ovr.gif'
var tH=jj
var tW=tt
var wB='#000000'
var wBs='#FFFFFF'
var wBG='#e0e0e0'
var wBGs='#e0e0e0'
var wNS='toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0'
var fSO='scrolling=no noresize'
var brd=b||0;var max=x||false;var min=m||false;var res=r||false;var tsz=20;return chromeless(u,n,W,H,X,Y,cU,cO,cL,mU,mO,xU,xO,rU,rO,tH,tW,wB,wBs,wBG,wBGs,wNS,fSO,brd,max,min,res,tsz)
}</script><Script language="javascript">
<!--
function JHshLTrim(sString)
{var sStr,i,iStart,sResult="";sStr=sString.split("");iStart=-1;for(i=0;i<sStr.length;i++)
{if(sStr[i]!=" ")
{iStart=i;break;}}if(iStart==-1){return"";}else{return sString.substring(iStart);}}function JHshRTrim(sString)
{var sStr,i,sResult="",sTemp="";sStr=sString.split("");for(i=sStr.length-1;i>=0;i--)
{sResult=sResult+sStr[i];}sTemp=JHshLTrim(sResult);if(sTemp==""){return"";}sStr=sTemp.split("");sResult="";for(i=sStr.length-1;i>=0;i--)
{sResult=sResult+sStr[i];}return sResult;}function JHshTrim(sString)
{var strTmp
strTmp=JHshRTrim(JHshLTrim(sString))
return strTmp
}function checkpass(myword)
{var i,j,strTemp;strTemp="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstruvwxyz";if(myword.length==0)
return 0
for(i=0;i<myword.length;i++)
{j=strTemp.indexOf(myword.charAt(i));if(j==-1)
{return 0;}}return 1;}function datacheck(form1)
{var userid,password
userid=JHshTrim(form1.userid.value)
password=JHshTrim(form1.password.value)
flag=true
if(userid=="")
{alert("同学ID不能为空!")
flag=false
form1.userid.focus()
return
}if(password.length<4||!checkpass(password))
{alert("密码不能少于4位，且只能包含数字、字母！")
form1.password.focus()
flag=false
return
}return true
}//--></script></HEAD><BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0><TABLE cellSpacing=0 cellPadding=0 width=750 bgColor=#ffffff border=0><tr><td bgcolor=#666666><font color=#FFFFCC>&nbsp;仰恩大学98信管（2）班级网站</font></td><td bgcolor=#666666><div align=right><img src=IMAGES/navbar_home.jpg width=14 height=14 align=top> <SPAN onclick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.3doing.com');" style=CURSOR:hand><font color=#FFFFCC>设为首页</font></span> <font color=#FFFFFF>|</font> <img src=IMAGES/bookmark%5B2%5D.gif width=15 height=13 align=absmiddle> <A href=javascript:window.external.AddFavorite('http://www.3doing.com','★风矣亭★') target=_self><font color=#FFFFCC>加入收藏</font></a> <font color=#FFFFFF>|</font> <img src=IMAGES/email%5B1%5D.gif width=16 height=16 align=absmiddle> <a href=mailto:webmaster@3doing.com><font color=#FFFFCC>联系信箱</font></a> <font color=#FFFFFF>|</font> <img src=IMAGES/3%5B1%5D.gif width=18 height=18 align=absmiddle> <font color=#FFFFCC>即时帮助 <font color=#FFFFFF>|</font></font><font color=#FFFFCC><%=now%></font></div></td></tr></table><TABLE cellSpacing=0 cellPadding=0 width=750 bgColor=#ffffff border=0><TBODY><TR><TD vAlign=top width=38 background=images/table_bg_001.gif><TABLE cellSpacing=0 cellPadding=0 width=100% background=images/table_bg_001.gif border=0><TBODY><TR><TD vAlign=top width=4><IMG height=720 src=images/color_line.gif width=4></TD><TD vAlign=top><IMG height=749 src=images/left_navigation.gif width=34 border=0></TD></TR></TBODY></TABLE></TD><TD vAlign=top align=left><TABLE cellSpacing=0 cellPadding=0 width=100% border=0><td width=20><TBODY><TR><TD>&nbsp;</TD><TD height=70><div align=left><img src=IMAGES/logo.GIF width=170 height=60 align=absmiddle>&nbsp;<img src=IMAGES/adv.gif width=468 height=60 border=1 align=absmiddle></div></TD></TR><TR bgcolor=#000000><TD height=1 colspan=2></TD></TR><TR><TD>&nbsp;</TD><TD><TABLE height=189 cellSpacing=0 cellPadding=0 width=100% background=images/table_bg_002.gif border=0><TBODY><TR><TD width=169 height=189 valign=top><table width=75% border=0><tr><td><br><img src=IMAGES/class_center_anounce.gif width=163 height=16><br>&nbsp;</td></tr><tr><td align=center valign=middle><div align=left><img src=IMAGES/jingpin011220.jpg width=71 height=96 hspace=5 vspace=5 align=left> <%set rs=Server.CreateObject("ADODB.RECORDSET")
sql="select * from syssetup"
rs.open sql,conn,1,1%>
<%=rs("xuan")%> <%set rs=nothing%></div></td></tr><tr><td valign=middle>站点计数：
<%
counter=cstr(webcounter)
while len(counter)<6
counter="0"&counter
wend
for i=1 to cint(len(counter))
jpg=mid(counter,i,1)
response.write"<img src=images/c"&jpg&".jpg align=absmiddle>"
next
%></td></tr></table></TD><TD width=28 height=189></TD><TD width=494 height=189><TABLE cellSpacing=0 cellPadding=0 width=100% border=0><TBODY><TR><TD colspan=2><img src=IMAGES/cgchina_guide.gif width=203 height=45></TD><TD width=53%>&nbsp;</TD></TR><%set rs=Server.CreateObject("ADODB.RECORDSET")
sql="select * from classnotice order by id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write"<tr><td>目前还没公告！</td></tr>"
else
set kcontent=rs("content")
set kuserid=rs("userid")
set kposttime=rs("posttime")
%>
<%for i=1 to 2
if rs.eof then exit for%><TR><TD width=4% valign=top><IMG src=images/point.gif width=20 height=5 align=baseline></TD><TD width=43% height=18><%=kcontent%><br>&nbsp;<font color=#D4D0C8>(<%=kuserid%>，<%=kposttime%>)</font><br><br><%rs.movenext
next
set rs=nothing
set kcontent=nothing
set kuserid=nothing
set kposttime=nothing%></TD><TD>&nbsp;</TD></TR><%end if%></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR><TR><TD background=images/table_bg_003.gif height=26>　</TD><TD background=images/table_bg_003.gif height=26><TABLE cellSpacing=0 cellPadding=0 width=100% border=0><FORM name=form1 action=login.asp method=post onsubmit="return flag"><TBODY><TR><TD width=340 height=24>用户名： <INPUT class=stedit size=12 name=userid>密 码：<INPUT class=stedit type=password size=12 name=password><INPUT type=image height=18 width=57 src=images/button_logoin.gif align=middle border=0 name=imageField2 onclick=datacheck(this.form)></TD><TD vAlign=center width=261 height=24><A href=reg.asp>用户注册</A> | <a href=# onclick="mywin=openIT('get_pwd.asp',300,300,null,null,'找回密码',0,false,false,false,'','找回密码')";>忘记密码</A> | <a href=modify.asp>修改资料</a> | <a href=http://mail.3doing.com>3doing邮局</a></TD><TD vAlign=center width=71 height=24><A href=bbs target=_blank>进入论坛</A></TD></TR></FORM></TBODY></TABLE></TD></TR><TR><TD>　</TD><TD><TABLE cellSpacing=0 cellPadding=0 width=100% border=0><TBODY><TR><TD height=30>　</TD></TR></TBODY></TABLE><TABLE cellSpacing=0 cellPadding=0 width=100% border=0><TBODY><TR><TD vAlign=top width=220 height=433><TABLE cellSpacing=0 cellPadding=0 width=100% border=0><TBODY><TR><TD><A href=note.asp><IMG height=50 alt=班级留言 src=IMAGES/pic02.jpg width=210 border=0></A></TD></TR><TR><TD height=14>&nbsp;</TD></TR><TR><TD><A href=ecard.asp><IMG height=50 alt=班级名片 src=IMAGES/pic01.jpg width=210 border=0></A></TD></TR><TR><TD>&nbsp;</TD></TR><TR><TD><A href=bbs target=_blank><IMG height=50 alt=班级论坛 src=IMAGES/pic05.jpg width=210 border=0></A></TD></TR><TR><TD height=14>&nbsp;</TD></TR><TR><TD><A href=showpic.asp><IMG height=50 alt=班级相册 src=IMAGES/pic03.jpg width=210 border=0></A></TD></TR><TR><TD height=14>&nbsp;</TD></TR><TR><TD><A href=loveword.asp><IMG height=50 alt=个人赠言 src=IMAGES/pic04.jpg width=210 border=0></A></TD></TR><TR><TD height=14>&nbsp;</TD></TR><TR><TD><a href=manage.asp><img src=IMAGES/pic07.gif alt=管理入口 width=210 height=50 border=0></a></TD></TR><TR><TD>&nbsp;</TD></TR><TR><TD><a href=guest.asp><img src=IMAGES/pic06.gif alt=私人留言 width=190 height=54 border=0></a></TD></TR><TR><TD>&nbsp;</TD></TR><TR><TD><img src=IMAGES/tbar04.gif width=100 height=25></TD></TR><TR><TD>&nbsp;</TD></TR><TR><TD><table width=100% border=0 cellpadding=0><%
set rs=server.createobject("ADODB.Recordset")
sql="select truename,headpic,birthday from [txluser] where month(birthday)=month(Now())"
rs.open sql,conn,1,1
if rs.eof then
response.write"<tr><td>本月没有寿星</td></tr>"
else
set truename=rs("truename")
set headpic=rs("headpic")
do while not rs.eof
mymonth=datepart("m",rs("birthday"))&"月"&datepart("d",rs("birthday"))&"日"%><tr><td width=10%><IMG height=5 src=images/point.gif width=20></td><td width=15%><img height=16 width=16 src=<%=headpic%>></td><td width=35%><a href=# onclick="openIT('writeword.asp',400,300,null,null,'写赠言',0,false,false,false,'<font size=2>写生日赠言</font>','写生日赠言')"; title=给他/她写生日赠言><%=truename%></a></td><td width=40%>（<%=mymonth%>）</td></tr><%
rs.movenext
loop
set rs=nothing
set truename=nothing
set headpic=nothing
end if%></table></TD></TR><TR><TD>&nbsp;</TD></TR><TR><TD><img src=IMAGES/tbar03.gif width=100 height=25></TD></TR><TR><TD>&nbsp;</TD></TR><TR><TD>本站成立于<font color=red>2002年9月15日</font>，在大家的支持下，现有成员<font color=red><%=allrec("txluser")%></font>名，拥有留言板、相册、名片册、个人赠言册、班级论坛及完善的管理功能。其中留言数已达到<font color=red><%=allrec("classnote")%></font>条，相册中有相片<font color=red><%=allphotoes("all")%></font>张，目前的管理员是<font color=red> <%set rs=Server.CreateObject("ADODB.RECORDSET")
sql="select truename from txluser where manclass=1"
rs.open sql,conn,1,1
set mytruename=rs("truename")
i=1
while not rs.eof
if i=1 then
response.write mytruename
i=2
else
response.write"、"&mytruename
end if
rs.movenext
wend
set rs=nothing
set mytruename=nothing%>
</font>。希望大家一有空多到老家来逛逛，记住是<a href=http://www.3doing.com><font face=Verdana, Arial, Helvetica, sans-serif size=1 color=red>3doing.com</font></a>喔！</td></tr></TBODY></TABLE></TD><TD width=1 background=images/table_bg_004.gif height=433></TD><TD width=20 height=433>　</TD><TD vAlign=top height=433><TABLE cellSpacing=0 cellPadding=0 width=100% border=0><TBODY><TR><TD vAlign=top height=35><TABLE width=95% border=0><TBODY><TR><TD colspan=2><img src=IMAGES/tbar01.gif width=100 height=25>　　</TD><TD width=19%>　</TD></TR><%set rs=server.createobject("ADODB.Recordset")
sql="select * from classnote order by posttime desc"
rs.open sql,conn,1,1
for i=1 to 5
if rs.eof then
exit for
end if%><TR><TD width=3%><IMG height=5 src=images/point.gif width=20></TD><TD width=78%><img src=IMAGES/lie.gif width=8 height=8><%=rs("posttime")%>&nbsp;<font color=#FD890D><a title=<%=rs("userid")%>><%=rs("truename")%></a></font><br><%=rs("content")%></TD><TD width=19%><IMG height=50 src=images/note<%=i%>.gif width=65></TD></TR><TR><TD width=3% height=2>&nbsp;</TD><TD width=78% background=images/bg2_2.gif height=2>　</TD><TD width=19% height=2>&nbsp;</TD></TR><%rs.movenext
next%>
<%rs.close
set rs=nothing
%><TR><TD width=3%>　</TD><TD width=78%><A href=note.asp><IMG height=16 src=images/more.gif width=53 border=0></A></TD><TD width=19%>　</TD></TR></TBODY></TABLE></TD></TR><TR><TD vAlign=top>&nbsp;</TD></TR><TR><TD vAlign=top><img src=IMAGES/tbar05.gif width=100 height=25><br><br></TD></TR><TR><TD vAlign=middle><TABLE width=99% border=0><TBODY><%
sql="select truename,lastime,userip from online"
set rs=conn.execute(sql)
if not rs.eof then
set onname=rs("truename")
set ontime=rs("lastime")
set onip=rs("userip")
while not rs.eof%><TR><TD width=5%><IMG height=5 src=images/point.gif width=20></TD><TD width=18%><%=onname%></TD><TD width=36%><%=ontime%></TD><TD width=41%>IP地址:<%
Position = InStrRev(onip, ".")
myip=mid(onip,1,position)
response.write myip&"***"
%></TD></TR><%rs.movenext
wend
set rs=nothing
set onname=nothing
set notime=nothing
set onip=nothing
end if%><TR><TD width=5%>　</TD><TD width=18%>　</TD><TD width=36%>　</TD><TD width=41%>&nbsp;</TD></TR></TBODY></TABLE></TD></TR><TR><TD vAlign=top height=27><img src=IMAGES/tbar02.gif width=100 height=25><br><br></TD></TR><%
set conn=nothing
'Set conn=Server.CreateObject("ADODB.Connection")
'conn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data 'Source="&Server.MapPath("oklt\data\dvBBS5.asp")
'set rs=server.createobject("adodb.recordset")
'sql="select topicid,boardid,Title,PostUserName from topic  order by topicid desc"
'rs.open sql,conn,1,1
'set topicid=rs("topicid")
'set boardid=rs("boardid")
'set title=rs("Title")
'set PostUserName=rs("PostUserName")
'for i=1 to 10
'if rs.eof then exit for%><!--<TR><TD height=18><IMG height=5 src=images/point.gif width=20><A href=oklt/dispbbs.asp?boardID=<%=boardid%>&ID=<%=topicid%> target=_blank><%=title%></A>&nbsp;<font color=#e0e0e0>(<%=PostUserName%>)</font></TD></TR>--><%
'rs.movenext
'next
'set topicid=nothing
'set boardid=nothing
'set topic=nothing
'set rs=nothing
'set conn=nothing
%>请按你的链接修改你的坛论新贴显示<UL></UL><TR><TD height=40><A href=bbs target=_blank><IMG height=16 src=images/more.gif width=53 border=0></A></TD></TR></TBODY></TABLE><P>&nbsp;</P></TD></TR></TBODY></TABLE><P>　</P></TD></TR></TBODY></TABLE></TD><TD vAlign=top align=left width=1 background=images/table_bg_005.gif></TD></TR></TBODY></TABLE><TABLE cellSpacing=0 cellPadding=0 width=750 border=0><TBODY><TR><TD width=38 height=23><IMG height=23 src=images/under_pic.gif width=38></TD><TD class=right_text align=middle width=712 bgColor=#666666 height=23>Rainolt制作&nbsp;<font color=#FFFFCC>版权所有</font> 联系方式：13600745512 <A class=right href=mailto:Rainolt@etang.com>Rainolt@etang.com</A></TD></TR></TBODY></TABLE></BODY></HTML>

⌨️ 快捷键说明

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