📄 index.asp
字号:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CSTUDY.mdb")
set rootrs= server.createobject("adodb.recordset")
sql= "select * from tutorial order by ID"
Set rootrs= conn.Execute(sql)
%>
<HTML>
<HEAD>
<TITLE><%=title%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" type="text/css" href="css/index1.css">
<link rel="stylesheet" type="text/css" href="css/toolbar2.css">
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<base target="_blank">
<meta name="Microsoft Theme" content="sumipntg 011, default">
</HEAD>
<SCRIPT lanuage="javascript">
<!-- Hide
function checkdata()
{
if(document.form_reg.username.value=="")
{
alert("请填写用户名称");
return false;
}
var index=0;
var count=0;
var counoir=0;
var str=document.form_reg.username.value
var thechar;
var array="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
var array1="0123456789.";
var arry2="/\:*?<>|()'`~!@#$%^&";
while((thechar=str.charAt(index))!="")
{
if(array.indexOf(thechar)==-1) count+=2;
else count++;
if(arry2.indexOf(thechar)!==-1) counoir++;
index++;
}
if(count>16) {alert("用户名称过长!");return false;}
if(counoir>0) {window.alert ("用户名不能出现不规则字符!");return false;}
if(document.form_reg.pwd.value=="")
{
alert("请输入密码");
return false;
}
var index=0;
var count=0;
var str=document.form_reg.pwd.value
var thechar;
var array="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
var array1="0123456789.";
while((thechar=str.charAt(index))!="")
{
if(array.indexOf(thechar)==-1) count+=2;
else count++;
index++;
}
if(count<4) {alert("请注意密码长度不能少于4位!");return false;}
}
// -->
</SCRIPT>
<BODY leftMargin=0 topMargin=0 background="sumtextb.jpg" bgcolor="#FFFFFF" text="#000066" link="#3333CC" vlink="#666699" alink="#990099"><!--mstheme--><font face="宋体"><!--mstheme--></font><TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=c width=832 height="74">
<tr>
<td height="127" width="169" valign="top" align="left"><!--mstheme--><font face="宋体">现在位置：<a href="index.asp"><font face="华文行楷" size="4"><b>首页</b></font></a>
<!--mstheme--></font>
<TABLE border=1 bgcolor="#e6e5b8" cellPadding=5 cellSpacing=0 width="141" height="54" align="left" bordercolorlight="#C0C0C0" bordercolordark="#003366"> <TBODY>
<TR align=middle>
<TD height="79" align="center" bgcolor="#A8B8E0" width="211" background="image/A-bg.gif" valign="top">
<!--mstheme--><font face="宋体">
<FORM action=check.asp method=post name=form_reg onsubmit="return checkdata()">
<p align="left"><span lang="zh-cn">用户</span>：
<input type="text" name="username" size="11" class="td1"><br><br>
<span lang="zh-cn">
密码：</span>
<input type="password" name="pwd" size="11" class="td1"><br><br>
<span lang="zh-cn">
身份： </span><select name="identity" class="td1" style="padding-top: 5" size="1">
<option value="student" selected>我是学生</option>
<option value="teacher">我是教师</option>
</select>
<p>
<input type="Image" name="submit" border="0" src="image/AnN-DenLu.gif" width="52" height="18">
<a href="newuser.asp"><img src="image/AnN-ZhuCe.gif" width="52" height="18" border="0" ></a> </form><!--mstheme--></font></TD>
</TR>
</TBODY>
</TABLE><!--mstheme--><font face="宋体"><!--mstheme--></font></td>
<td height="21" width="444" valign="middle" align="center"><!--mstheme--><font face="宋体"><!--mstheme--></font><table width=371 border=0 cellspacing=0 cellpadding=0 height="30">
<tr bgcolor=#808080><td width=12 height=30 valign=top>
<!--mstheme--><font face="宋体">
<img src=image/home01.gif width=7 height=7><!--mstheme--></font></td>
<td width=359 height="30">
<!--mstheme--><font face="宋体">
<p align="center"><font color="#FFFF00">请选择要学习的章节</font><!--mstheme--></font></td>
</tr>
</table><!--mstheme--><font face="宋体"><!--mstheme--></font><table width=371 border=0 cellspacing=0 cellpadding=0 height="170">
<tr>
<td width=2 bgcolor=#ffcf5b height="211"><!--mstheme--><font face="宋体"> <!--mstheme--></font></td>
<td width=800 height=211 valign="top"><!--mstheme--><font face="宋体"><!--mstheme--></font><table border="0" width="100%" height="60">
<%Do While Not rootrs.Eof%>
<tr>
<td width="15%" valign="middle" align="center" height="14"><!--mstheme--><font face="宋体"><img border="0" src="image/icon-books.gif"><!--mstheme--></font></td>
<td width="37%" valign="middle" align="left" height="14"><!--mstheme--><font face="宋体"><a href="viewtutorial.asp?id=<%=rootrs("ID")%>" ><%=rootRs("rule")%>：<%=rootRs("title")%></a><!--mstheme--></font></td>
<td width="48%" valign="middle" align="left" height="14"><!--mstheme--><font face="宋体"><b><font face="华文行楷" color="#FFCF5B">负责教师</font></b>：
<a href="viewteacher.asp?userid=<%=rootrs("teacher")%>">
<%SQL = "SELECT * FROM teacher where ID="&rootRs("teacher")&""
set rs=conn.execute(sql)
response.write rs("name")
%></a>
<!--mstheme--></font>
</td>
</tr>
<%rootRs.MoveNext
Loop
%>
<tr>
<td width="15%" valign="middle" align="center" height="38"><!--mstheme--><font face="宋体"><!--mstheme--></font></td>
<td width="37%" valign="middle" align="center" height="38"><!--mstheme--><font face="宋体"><!--mstheme--></font></td>
</tr></table><!--mstheme--><font face="宋体"><!--mstheme--></font></td>
<td width=2 bgcolor=#ffcf5b height="211"><!--mstheme--><font face="宋体"> <!--mstheme--></font></td></tr>
<tr><td height=1 colspan=3 bgcolor=#ffcf5b width="476"><!--mstheme--><font face="宋体"> <!--mstheme--></font></td></tr>
</table><!--mstheme--><font face="宋体"><!--mstheme--></font></td>
<td height="15" width="310" valign="top" align="right" rowspan="2">
<!--mstheme--><font face="宋体"><!--mstheme--></font>
<td height="296" width="440" valign="middle" align="center" rowspan="2"><!--mstheme--><font face="宋体"><!--mstheme--></font></td>
<tr>
<td height="90" width="169" valign="middle" align="center">
<!--mstheme--><font face="宋体">
<%
identity=session("identity")
if not identity=empty then
IF Session("identity")="student" Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CSTUDY.mdb")
set rootrs= server.createobject("adodb.recordset")
sql="select * from user where IDname='"&session("login")&"'"
set rs=conn.execute(sql)
%>
<div align="right">
<!--mstheme--></font>
<TABLE border=1 bgcolor="#e6e5b8" cellPadding=5 cellSpacing=0 width="150" height="199" align="right" bordercolorlight="#C0C0C0" bordercolordark="#003366">
<TBODY>
<TR align=middle>
<TD height="17" align="center" bgcolor="#8CAAE7" width="348" valign="middle">
<!--mstheme--><font face="宋体">
<p align="center">
<font color="#000000"><marquee onmouseover=this.stop() onmouseout=this.start()> <%=rs("name")%>,您好！
这是您第<%=rs("amount")%>次登录。 </font> </marquee>
</p>
<!--mstheme--></font>
</TD>
</TR>
<TR align=middle>
<TD height="4" align="center" width="348" valign="middle" bgcolor="#BECFF1" background="image/A-bg.gif"><!--mstheme--><font face="宋体"><a href="updateuser.asp?userid=<%=rs("ID")%>">修改个人信息</a><!--mstheme--></font></TD>
</TR>
<TR align=middle>
<TD height="4" align="center" width="348" valign="middle" bgcolor="#BECFF1" background="image/A-bg.gif"><!--mstheme--><font face="宋体"><a href="viewquestion.asp?userid=<%=rs("ID")%>">查看我的问题</a><!--mstheme--></font></TD>
</TR>
<TR align=middle>
<TD height=3 align="center" width="348" valign="middle" bgcolor="#BECFF1" background="image/A-bg.gif"><!--mstheme--><font face="宋体"><a href="myquestion.asp" target="_blank">进行网上提问</a><!--mstheme--></font></TD>
</TR>
<TR align=middle>
<TD height=4 align="center" width="348" valign="middle" bgcolor="#BECFF1" background="image/A-bg.gif"><!--mstheme--><font face="宋体"><a href="test.asp" target="_blank">进行网上测试</a><!--mstheme--></font></TD>
</TR>
</TBODY>
</TABLE>
<!--mstheme--><font face="宋体">
</div>
<%End If
If Session("identity")="teacher" Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CSTUDY.mdb")
set rootrs= server.createobject("adodb.recordset")
sql="select * from teacher where IDname='"&session("login")&"'"
set rs=conn.execute(sql)%>
<div align="right">
<!--mstheme--></font>
<TABLE border=1 bgcolor="#e6e5b8" cellPadding=5 cellSpacing=0 width="300" height="203" bordercolorlight="#C0C0C0" bordercolordark="#003366">
<TBODY>
<TR align=middle>
<TD height="4" align="center" bgcolor="#8CAAE7" width="496" valign="middle" 80%"">
<!--mstheme--><font face="宋体">
<p align="center">
<font color="#000000"><marquee onmouseover=this.stop() onmouseout=this.start()><%=rs("name")%>老师,您好！ 这是您第<%=rs("amount")%>次登录。</font></marquee>
</p>
<!--mstheme--></font>
</TD>
</TR>
<TR align=middle>
<TD height="4" align="center" width="496" valign="middle" bgcolor="#BECFF1" background="image/A-bg.gif"><!--mstheme--><font face="宋体"><a href="updateteacher.asp?userid=<%=rs("ID")%>">修改个人信息</a><!--mstheme--></font></TD>
</TR>
<TR align=middle>
<TD height=4 align="center" width="496" valign="middle" bgcolor="#BECFF1" background="image/A-bg.gif"><!--mstheme--><font face="宋体"><a href="managetutorial.asp?userid=<%=rs("ID")%>">进行教程管理</a><!--mstheme--></font></TD>
</TR>
<TR align=middle>
<TD height=4 align="center" width="496" valign="middle" bgcolor="#BECFF1" background="image/A-bg.gif"><!--mstheme--><font face="宋体"><a href="managequestion.asp?userid=<%=rs("ID")%>">进行答疑管理</a><!--mstheme--></font></TD>
</TR>
<TR align=middle>
<TD height=4 align="center" width="496" valign="middle" bgcolor="#BECFF1" background="image/A-bg.gif"><!--mstheme--><font face="宋体"><a href="managetest.asp?userid=<%=rs("ID")%>">进行试题管理</a><!--mstheme--></font></TD>
</TR>
</TBODY>
</TABLE>
<!--mstheme--><font face="宋体">
</div>
<%End if
else
response.end
end if%>
<!--mstheme--></font>
</td>
</tr>
</table><!--mstheme--><font face="宋体"><!--mstheme--></font></BODY>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -