📄 bj.asp
字号:
<!--#include file="head.asp"-->
<%dim gg,bj
bj=request.QueryString("bj")
gg=request.QueryString("join")
if gg<>"" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from user where username='"&session("wzname")&"'"
rs.open sql,conn,1,3
rs("userclass")=bj
Session("userclass")=bj
rs.update
response.write "<div align=center>"
response.write "你已成功加入【"&bj&"】班"
response.write "<br>"
response.write "<a href=bj/index.asp?bj="&bj&">进入班级</a>"
response.write "</div>"
rs.close
set rs=nothing
else%>
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid"
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
<TBODY>
<TR vAlign=top>
<TD width=200 bgColor=#f4f4f4>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR borderColor=#999999>
<TD vAlign=center align=middle><IMG height=8 alt=""
src="image/stu.htm" width=1 name=""></TD></TR>
<TR>
<TD vAlign=top height=350>
<TABLE id=AutoNumber4
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="90%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD align=middle width="100%"><IMG height=40
src="image/vbj.gif" width=180></TD>
</TR>
<TR>
<TD align=middle><IMG height=8 alt="" src="image/stu.htm"
width=1 name=""></TD></TR> <TR><form name="form1" method="post" action="bj.asp">
<TD align=middle> <div align="left">类别:
<select name="stype" size="1">
<option value="bjname" selected>班级名称</option>
<option value="bjtype">班级类型</option>
</select>
<br>
搜索:
<input name="bjcx" type="text" size="15">
<input type="submit" name="Submit" value="提交">
</div></TD>
</form>
</TR>
<TR>
<TD align=middle><IMG height=8 alt="" src="image/stu.htm"
width=1 name=""></TD></TR></TBODY></TABLE>
<TABLE id=AutoNumber4 cellSpacing=0 cellPadding=0 width="90%"
align=center border=0>
<TBODY>
<TR>
<TD align=middle width="100%"><IMG height=8 alt=""
src="image/stu.htm" width=1 name=""></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="90%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD>
<%dim sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select bydate from bydate"
rs.open sql,conn,1,1
%>
<DIV align=center><IMG height=40
src="image/vbj2.gif" width=180></DIV></TD></TR>
<TR><form name="form3" method="post" action="bj.asp">
<TD>毕业时间:
<select name="bydate" size="1">
<%do while not rs.eof%>
<option><%=rs("bydate")%>届</option>
<%rs.movenext
loop
rs.close
set rs= nothing%>
</select>
<br>
毕业班名:
<select name="byclass" size="1">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select byclass from byclass"
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
<option><%=rs("byclass")%></option>
<%rs.movenext
loop
rs.close
set rs= nothing%>
</select>
<br>
班级类别:
<select name="bjtype" size="1">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select bytype from bytype"
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
<option selected><%=rs("bytype")%></option>
<%rs.movenext
loop
rs.close
set rs= nothing%>
</select>
<br>
班 主任:
<input name="sir" type="text" size="15">
<br>
班级简介:
<textarea name="bjjz" rows="10"></textarea><br>
<% If session("wzname")="" Then%>
<font color=red>只有登录才能创建!</font>
<%else%>
<input type="submit" name="Submit2" value="提交">
<input type="reset" name="Submit3" value="重置">
<%End If%></TD>
</form>
</TR></TBODY></TABLE>
<TABLE id=AutoNumber4 cellSpacing=0 cellPadding=0 width="90%"
align=center border=0>
<TBODY>
<TR>
<TD align=middle width="100%"><IMG height=8 alt=""
src="image/stu.htm" width=1 name=""></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="90%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD>
<DIV align=center><STRONG><FONT color=#000000><IMG height=40
src="image/vbj3.gif"
width=180></FONT></STRONG></DIV></TD></TR>
<TR>
<TD>
<TABLE id=AutoNumber4 cellSpacing=6 cellPadding=0 width="100%"
align=center bgColor=#ffffff>
<TBODY>
<TR>
<TD align=middle width="100%" bgColor=#ffffff
height=20><p align="left">1、先去看看04届高三04，依例创建，重要的是将“班级简介”的文字写多点，否则会影响班级版面美观。<br>
2、如果你创建的班级实际不是你班，得到举报后将被删除<br>
3、创建班级后，请通知你班同学来注册进入，这样才会起到班级作用。<br>
4、要做好班级管理员的职责，不要允许不良的内容进入班级</p> </TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD bgColor=#cccccc><IMG height=1 alt="" src="image/stu.htm" width=1
name=""></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD height=8 bgColor=#f4f4f4></TD></TR>
<TD>
<TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse"
cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top height=52>
<TABLE id=AutoNumber5 style="BORDER-COLLAPSE: collapse"
borderColor=#111111 cellSpacing=0 cellPadding=3 width="100%"
border=0>
<TBODY>
<TR>
<TD class=6 width=495 background=image/type_bg.gif
height=30><IMG height=12 src="image/type01.gif" width=12
align=absMiddle> <span style="color: #CC3300">当前位置:</span> <a href="index.asp"><font color="#FF6699">网站首页</font></a> - <font color="#FF6699">学校班级</font></TD>
<TD width=100 background=image/type_bg.gif>
<DIV align=center><IMG
src="image/more.gif"
border=0></DIV></TD></TR>
<TR>
<TD colSpan=2> <DIV align=center>
<%
dim bjjz,bjname,sir,bydate,byclass,admin,first
bjjz=request.form("bjjz")
if bjjz<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
set rs=conn.execute("select name from user where username='"&Session("wzname")&"'")
sir=request.form("sir")
admin=rs("name")
first=rs("name")
bjtype=request.form("bjtype")
bydate=request.form("bydate")
byclass=request.form("byclass")
bjname=bydate+byclass
rs.close
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from bj where adminname='" &Session("wzname")& "'"
rs.open sql,conn,1,1
if not rs.eof then%>
<table width="100%" border="0">
<tr>
<td>请别要创建不属于你的班级,谢谢合作。</td>
</tr>
</table>
<%else
rs.close
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select bjname from bj where bjname='" &bjname& "'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<table width="100%" border="0">
<tr>
<td>该班级已经存在，不用你再劳神了，现在修改你资料中的<span class="样式7">“班级”</span>加入该班吧</td>
</tr>
</table>
<%else
rs.close
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from bj where 1=2",conn,1,3
rs.addnew()
rs("bjname")=bjname
rs("admin")=admin
rs("adminname")=session("wzname")
rs("sir")=sir
rs("first")=first
rs("bjjz")=bjjz
rs("bjtype")=bjtype
rs("date")=now()
rs.update
rs.close
set rs=nothing
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from user where username='"&session("wzname")&"'"
rs.open sql,conn,1,3
rs("userclass")=bjname
rs("money")=rs("money")+5
Session("userclass")=bjname
rs.update
rs.close
set rs=nothing
%>
<table width="100%" border="0">
<tr>
<td><div align="center" style="color: #FF0000">恭喜你创建班级成功</div></td>
</tr>
<tr>
<td><div align="center" class="样式5">
<p> </p>
<p>同时你也成为该班级的管理员，快告诉你的同学来进入啊</p>
</div></td>
</tr>
<tr>
<td><div align="center" class="样式5">以后这个班就交给你了，别让我们失望啊！</div></td>
</tr>
</table>
<%end if
end if
else%>
<TABLE width="99%" border=0 align="center" cellPadding=0 cellSpacing=0
background=image/line1.gif>
<TBODY>
<TR background="image/b.gif">
<TD width="20%" height=20><div align="center">班名</div></TD>
<TD width="18%" align=right><div align="center">班主任</div></TD>
<TD width="18%" align=left><div align="center">创始人</div></TD>
<TD width="20%" align=left><div align="center">管理员</div></TD>
<TD width="13%" align=left><div align="center">班级类型</div></TD>
<TD width="11%" align=left><div align="center">加入</div></TD>
</TR>
<%
dim bjcx,stype,cur,rowcount,i
bjcx=request.form("bjcx")
stype=request.form("stype")
Set rs = Server.CreateObject("ADODB.Recordset")
if stype="" then
sql="select * from bj order by date desc"
else
if bjcx="" then
sql="select * from bj order by date desc"
else
sql="select * from bj where "&stype&"='" &bjcx& "' order by date"
end if
end if
cur=request.form("cur")
if cur="" then
cur=1
end if
rs.pagesize=30
rs.open sql,conn,1,1
if rs.eof then
response.write "<TR><TD>没有信息</TD></TR>"
else
rs.absolutepage=cint(cur)
rowcount=0
do while not rs.eof and rowcount<rs.pagesize%>
<TR>
<TD width="20%" height=20><div align="center"><a href="bj/index.asp?bj=<%=rs("bjname")%>"><L><FONT color=#0><%=rs("bjname")%></FONT></L></a><L></L></div></TD>
<TD align=right width="18%"> <div align="center"><%=rs("sir")%></div></TD>
<TD align=left> <div align="center"><%=rs("first")%></div></TD>
<TD align=left> <div align="center"><%=rs("admin")%></div></TD>
<TD align=left> <div align="center"><%=rs("bjtype")%></div></TD>
<TD align=left> <div align="center"><a href="?join=add&bj=<%=rs("bjname")%>">加入</a></div></TD>
</TR>
<%rowcount=rowcount+1
rs.movenext
loop%>
</TBODY>
</TABLE><table width="98%" border="0">
<tr><form name="form2" method="post" action="bj.asp">
<TD align=left bgcolor="#FAF1DB"><span class="style2">共<%=rs.recordcount%>班 分<%=rs.pagecount%>页 当前页次：<%=cur%>/<%=rs.pagecount%>
转到:
<select name="cur" size="1" onchange="javascript:submit()">
<%for i = 1 to rs.pagecount%>
<option value="<%=i%>" <%if i=cint(cur) then%> selected <%end if%>>第<%=i%>页 </option>
<%next%>
</select>
<%
rs.close
set rs=nothing%>
</span></td>
</form>
</tr>
<%end if%>
</table>
<%end if%>
</DIV>
</TBODY></TABLE>
</TD></TR></TBODY></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE><%end if%>
<!--#include file="bottom.asp"--></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -