📄 userfunction.asp
字号:
<!--#include file ="../include.asp"-->
<%
StartPage "用户功能首页",2
%>
<!--<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY leftmargin=150 rightmargin=150 topmargin=30>
<link rel="stylesheet" type="text/css" href="../default.css">
<IMG src="../images/title.JPG" border=0>
<hr>
<br>
-->
<%
UserName = Request.Form ("UserName")
PassWord = Request.Form ("PassWord")
session ("UserName") = UserName
session ("PassWord") = PassWord
set conn = Server.CreateObject ("adodb.connection")
conn.Open "NetExamine","sa",""
set userconn = Server.CreateObject ("adodb.recordset")
sqlstr = "select * from 用户表 where 用户名 = '" &UserName& "' and 密码 = '" &PassWord& "'"
userconn.Open sqlstr,conn
if userconn.EOF then
Response.Write "<center><font size = 6 color=LightSkyBlue>您所输入的用户名或密码有错<br>请返回重新输入</font></center>"
Response.Write"<br><br><center><a href =../Index.asp>返回</a></center>"
Response.Write"<br><hr><center>"
Response.Write"<font size=2>欢迎来到本网站，最佳分辨率：800×600<br>如果有困难请与我联系：FD_FYY@hotmail.com</font></center>"
Response.End()
end if
%>
<form name ="Next" action ="" method ="post">
<table border=1 width=80% align=center bordercolor=LightSkyBlue cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse">
<tr>
<td height=20 bgcolor=LightSkyBlue><%Response.Write(UserName)
Response.Write"您好！"%></td>
<tr>
<tr>
<td align=center>
<table>
<tr>
<td height=20></td>
</tr>
</table>
<table border=1 width=90% align=center bordercolor=LightSkyBlue cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse">
<tr>
<td height=20 bgcolor=LightSkyBlue></td>
<tr>
<tr>
<td align=center>
<table width=100% border=0>
<tr>
<td align=center height=20 colspan=2><font size=7 color=LightSkyBlue >用户功能设置页</font></td>
</tr>
<tr>
<td height=150 >
<table border=1 width=150 bordercolor=LightSkyBlue cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse">
<tr>
<td height=30 bgcolor=LightSkyBlue>用户功能</td>
</tr>
<tr>
<td>
<table height=120 width=150>
<tr>
<td height=30>
<a href=UpdateUserInfor.asp target="rusource window">修改信息</a>
</td>
</tr>
<tr>
<td height=30>
<a href="../forum/default.asp">观看论坛</a>
</td>
</tr>
<tr>
<td height=30>
<a href=../Index.html>返回</a>
</td>
</tr>
<tr>
<td height=30>
</td>
</tr>
</table>
</td>
<td>
</td>
</tr>
</table>
</td>
<td height=150 width=70% >
<table border=1 width=300 bordercolor=LightSkyBlue cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse">
<tr>
<td height=30 colspan=2 bgcolor=LightSkyBlue>考试设置</td>
</tr>
<tr>
<td>
<table height=120 width=300>
<tr>
<td height=30 align=center>
考试课目：
<select name = "Subject" size = 1 >
<%
Object = Request.Form("Object")
set conn = Server.CreateObject ("adodb.connection")
conn.Open "NetExamine","sa",""
set userconn = Server.CreateObject ("adodb.recordset")
sqlstr = "select * from 科目表"
userconn.Open sqlstr,conn
while not userconn.EOF
Item = "<option>" + userconn.Fields ("科目名")+"</option>"
Response.Write (Item)
userconn.MoveNext()
wend
userconn.Close ()
set userconn = nothing
conn.Close()
set conn = nothing
%>
</select>
</td>
</tr>
<tr>
<td height=30 align=center>考试时间：
<!--<input type ="text" name ="Time" size=15>-->
<select name = "Time" size = 1 >
<option>1</option>
<option>30</option>
<option>60</option>
<option>90</option>
<option>120</option>
<option>150</option>
</select>分钟
</td>
</tr>
<tr>
<td align=center>组卷方式：<INPUT type="radio" name="Execute_Type" value=手动>手动 <INPUT type="radio" name="Execute_Type" value=自动 checked>自动
</td>
</tr>
<tr>
<td height=30 align=center>
<input type ="button" value ="提交" onclick ="Check()"> <input type ="reset" value ="重填">
</td>
</tr>
<tr>
<td height=30>
</td>
<td height=30>
</td>
</tr>
</table>
</td>
<td>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height=20 bgcolor=LightSkyBlue></td>
<tr>
</table>
<table>
<tr>
<td height=20></td>
</tr>
</table>
</td>
</tr>
</table>"
</form>
<!--
<br>
<hr>
<center>
<font size=2>
欢迎来到本网站，最佳分辨率：800×600
<br>如果有困难请与我联系：FD_FYY@hotmail.com
</font>
</center>
</BODY>
</HTML>
-->
<%
EndPage
%>
<script language="javascript">
function Check()
{
if (document.Next.Execute_Type[0].checked == true)
{
document.Next.action = "../examine/Hand_ExecuteSet.asp";
document.Next.submit ();
}
else
{
document.Next.action = "../examine/Auto_Execute.asp";
document.Next.submit ();
}
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -