📄 system.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>系统功能|毕业设计选题系统</title>
<link href="../css/Style.css" rel="stylesheet" type="text/css" />
</head>
<BODY leftMargin=0 topMargin=0 marginwidth="0">
<!--#include file=../top.asp-->
<!--#include file=top.asp-->
<div align="center"><td><table width="768" border="0" bgcolor="#FFFFFF"><tr><td><div align="left">
<p>系统功能选项（<span class="notetext">选中表示开启</span>）</p>
<form id="form1" name="form1" method="post" action="system2.asp">
<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.system where sys_config='open' "
conn.CursorType = 0
conn.LockType = 1
conn.Open()
%>
<input type="checkbox" name="checkbox1" value="1" <%If (Not isNull(conn("sys_state"))) Then If ("1" = CStr(conn("sys_state"))) Then Response.Write("checked=""checked""") : Response.Write("")%> />
开启选题系统（不开启则除管理员外其他用户无法登录浏览）
<%
conn.Close()
Set conn = Nothing
%>
<br>
<%
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "select * from dbo.system where sys_config='upload' "
conn2.CursorType = 0
conn2.LockType = 1
conn2.Open()
%>
<input type="checkbox" name="checkbox2" value="1" <%If (Not isNull(conn2("sys_state"))) Then If ("1" = CStr(conn2("sys_state"))) Then Response.Write("checked=""checked""") : Response.Write("")%>/>
文件上传功能（管理员和教师可通过此功能上传文件）
<%
conn2.Close()
Set conn2 = Nothing
%>
<br>
<%
Dim conn3
Set conn3=Server.CreateObject("ADODB.RecordSet")
conn3.ActiveConnection = "DSN=hw;User ID=sa"
conn3.Source = "select * from dbo.system where sys_config='addtitle' "
conn3.CursorType = 0
conn3.LockType = 1
conn3.Open()
%>
<input type="checkbox" name="checkbox3" value="1" <%If (Not isNull(conn3("sys_state"))) Then If ("1" = CStr(conn3("sys_state"))) Then Response.Write("checked=""checked""") : Response.Write("")%>/>
添加课题功能（教师可通过此功能增加待审核题目）
<%
conn3.Close()
Set conn3 = Nothing
%>
<br>
<%
Dim conn4
Set conn4=Server.CreateObject("ADODB.RecordSet")
conn4.ActiveConnection = "DSN=hw;User ID=sa"
conn4.Source = "select * from dbo.system where sys_config='review' "
conn4.CursorType = 0
conn4.LockType = 1
conn4.Open()
%>
<input type="checkbox" name="checkbox4" value="1" <%If (Not isNull(conn4("sys_state"))) Then If ("1" = CStr(conn4("sys_state"))) Then Response.Write("checked=""checked""") : Response.Write("")%>/>
审核课题功能（审核管理员可以通过此功能审核教师提交的选题）
<%
conn4.Close()
Set conn4 = Nothing
%>
<br>
<%
Dim conn5
Set conn5=Server.CreateObject("ADODB.RecordSet")
conn5.ActiveConnection = "DSN=hw;User ID=sa"
conn5.Source = "select * from dbo.system where sys_config='choice' "
conn5.CursorType = 0
conn5.LockType = 1
conn5.Open()
%>
<input type="checkbox" name="checkbox5" value="1" <%If (Not isNull(conn5("sys_state"))) Then If ("1" = CStr(conn5("sys_state"))) Then Response.Write("checked=""checked""") : Response.Write("")%>/>
选报课题功能（学生可以通过此功能选报审核通过的课题）
<%
conn5.Close()
Set conn5 = Nothing
%>
<br>
<%
Dim conn6
Set conn6=Server.CreateObject("ADODB.RecordSet")
conn6.ActiveConnection = "DSN=hw;User ID=sa"
conn6.Source = "select * from dbo.system where sys_config='studentreg' "
conn6.CursorType = 0
conn6.LockType = 1
conn6.Open()
%>
<input type="checkbox" name="checkbox6" value="1" <%If (Not isNull(conn6("sys_state"))) Then If ("1" = CStr(conn6("sys_state"))) Then Response.Write("checked=""checked""") : Response.Write("")%>/>
学生注册功能（学生可以通过此功能注册自己的学号及帐户）
<%
conn6.Close()
Set conn6 = Nothing
%>
<br>
<input type="submit" name="Submit" value="提交" />
<input type="reset" name="Submit2" value="重置" />
</form>
</div></td></tr></table></td></div>
<!--#include file=botton.asp-->
<!--#include file=../botton.asp-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -