计算机科学与技术专业毕业设计+论文+光盘毕业设计代码
2018-09-09 48页 doc 271KB 66阅读
is_674305
暂无简介
举报
计算机科学与技术专业毕业设计+论文+光盘毕业设计代码毕业设计代码
一、毕业设计管理系统与实现界面设计代码
1.索引代码如下：
首页|毕业设计选题系统
毕业代码
一、毕业设计管理系统与实现界面设计代码
1.索引代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
首页|毕业设计选题系统
2.主界面顶部设计代码如下：
二、各个功能模块设计代码
（一）管理员设计代码
1.清单代码如下
（1）<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.works ORDER BY works_group"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
%>
小组 题目 面向专业 状态 功能选项
<%
Dim group
group=conn("works_group")
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "select * from dbo.teacher where tea_group='"&group&"' ORDER BY tea_lv DESC"
conn2.CursorType = 0
conn2.LockType = 1
conn2.Open()
do while not conn2.EOF
response.Write conn2("tea_name")&" "
conn2.MoveNext
Loop
Set conn2 = Nothing
%>
<% response.Write conn("works_title") %>
<% response.Write conn("works_speciality") %>
<% If conn("works_state") = 1 Then response.Write ("审核中") End If
If conn("works_state") = 2 Then response.Write ("待选") End If
If conn("works_state") = 3 Then response.Write ("已选") End If %>
">删除
<%
conn.MoveNext
Loop
conn.Close
Set conn = Nothing
%>
（2）<%
Dim conn3
Set conn3=Server.CreateObject("ADODB.RecordSet")
conn3.ActiveConnection = "DSN=hw;User ID=sa"
conn3.Source = "select * from dbo.works where works_state = 1 ORDER BY works_group"
conn3.CursorType = 0
conn3.LockType = 1
conn3.Open()
%>
小组 题目 面向专业 状态 功能选项
<%
Dim group2
group2=conn3("works_group")
Dim conn4
Set conn4=Server.CreateObject("ADODB.RecordSet")
conn4.ActiveConnection = "DSN=hw;User ID=sa"
conn4.Source = "select * from dbo.teacher where tea_group='"&group2&"' ORDER BY tea_lv DESC"
conn4.CursorType = 0
conn4.LockType = 1
conn4.Open()
do while not conn4.EOF
response.Write conn4("tea_name")&" "
conn4.MoveNext
Loop
Set conn4 = Nothing
%>
<% response.Write conn3("works_title") %>
<% response.Write conn3("works_speciality") %>
<% If conn3("works_state") = 1 Then response.Write ("审核中") End If
If conn3("works_state") = 2 Then response.Write ("待选") End If
If conn3("works_state") = 3 Then response.Write ("已选") End If %>
">删除 ">通过
<%
conn3.MoveNext
Loop
conn3.Close
Set conn3 = Nothing
%>
（3）<%
Dim conn5
Set conn5=Server.CreateObject("ADODB.RecordSet")
conn5.ActiveConnection = "DSN=hw;User ID=sa"
conn5.Source = "select * from dbo.works where works_state = 2 ORDER BY works_group"
conn5.CursorType = 0
conn5.LockType = 1
conn5.Open()
%>
小组 题目 面向专业 状态 功能选项
<%
Dim group3
group3=conn5("works_group")
Dim conn6
Set conn6=Server.CreateObject("ADODB.RecordSet")
conn6.ActiveConnection = "DSN=hw;User ID=sa"
conn6.Source = "select * from dbo.teacher where tea_group='"&group3&"' ORDER BY tea_lv DESC"
conn6.CursorType = 0
conn6.LockType = 1
conn6.Open()
do while not conn6.EOF
response.Write conn6("tea_name")&" "
conn6.MoveNext
Loop
Set conn6 = Nothing
%>
<% response.Write conn5("works_title") %>
<% response.Write conn5("works_speciality") %>
<% If conn5("works_state") = 1 Then response.Write ("审核中") End If
If conn5("works_state") = 2 Then response.Write ("待选") End If
If conn5("works_state") = 3 Then response.Write ("已选") End If %>
">删除
<%
conn5.MoveNext
Loop
conn5.Close
Set conn5 = Nothing
%>
（4）<%
Dim conn7
Set conn7=Server.CreateObject("ADODB.RecordSet")
conn7.ActiveConnection = "DSN=hw;User ID=sa"
conn7.Source = "select * from dbo.works where works_state = 3 ORDER BY works_group"
conn7.CursorType = 0
conn7.LockType = 1
conn7.Open()
%>
小组 题目 面向专业 选题学生 功能选项
<%
Dim group4
group4=conn7("works_group")
Dim conn8
Set conn8=Server.CreateObject("ADODB.RecordSet")
conn8.ActiveConnection = "DSN=hw;User ID=sa"
conn8.Source = "select * from dbo.teacher where tea_group='"&group4&"' ORDER BY tea_lv DESC"
conn8.CursorType = 0
conn8.LockType = 1
conn8.Open()
do while not conn8.EOF
response.Write conn8("tea_name")&" "
conn8.MoveNext
Loop
Set conn8 = Nothing
%>
<% response.Write conn7("works_title") %>
<% response.Write conn7("works_speciality") %>
<%
Dim wid
wid=conn7("works_id")
Dim conn9
Set conn9=Server.CreateObject("ADODB.RecordSet")
conn9.ActiveConnection = "DSN=hw;User ID=sa"
conn9.Source = "select * from dbo.student where stu_works='"&wid&"'"
conn9.CursorType = 0
conn9.LockType = 1
conn9.Open()
%>
<% response.Write conn9("stu_speciality") & conn9("stu_class") &" "& conn9("stu_name") %>
<% Set conn9 = Nothing %>
">编辑 ">删除
<%
conn7.MoveNext
Loop
conn7.Close
Set conn7 = Nothing
%>
2.管理员各功能实现代码
（1）添加教师代码如下
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
添加教师信息|毕业设计选题系统
添加教师信息|毕业设计选题系统
修改信息|毕业设计选题系统
修改信息|毕业设计选题系统
修改管理员用户密码|毕业设计选题系统
修改管理员用户密码|毕业设计选题系统
修改用户信息|毕业设计选题系统
修改用户资料|毕业设计选题系统
修改用户密码|毕业设计选题系统
修改用户密码|毕业设计选题系统
修改用户密码|毕业设计选题系统
帮助信息|毕业设计选题系统
学生信息列表|毕业设计选题系统
<%
Dim group
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.teacher where tea_id='"&session("teacher")&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
group=conn("tea_group")
Set conn = Nothing
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "select * from dbo.works where works_group='"&group&"' ORDER BY works_state"
conn2.CursorType = 0
conn2.LockType = 1
conn2.Open()
%>
登录中，请稍候……|毕业设计选题系统
<%
Dim UNM
Dim PWD
UNM = Request.Form("textfield1")
PWD = Request.Form("textfield2")
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.teacher where tea_id='"&UNM&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
if conn.eof or conn.bof then
response.Redirect("../error.asp")
else
if conn("tea_pass")=PWD then
session("teacher")=UNM
response.Redirect("main.asp")
else
response.Redirect("../error.asp")
end if
conn.Close()
Set conn = Nothing
end if
%>
（三）学生功能模块设计实现
1. 修改用户信息设计代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
修改用户信息|毕业设计选题系统
修改用户信息|毕业设计选题系统
修改用户密码|毕业设计选题系统
修改用户密码|毕业设计选题系统
选报题目结果|毕业设计选题系统
可选课题列表|毕业设计选题系统
登录中，请稍候……|毕业设计选题系统
<%
Dim UNM
Dim PWD
UNM = Request.Form("textfield1")
PWD = Request.Form("textfield2")
%>
<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.student where stu_id='"&UNM&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
if conn.eof or conn.bof then
response.Redirect("../error.asp")
else
if conn("stu_pass")=PWD then
session("student")=UNM
response.Redirect("main.asp")
else
response.Redirect("../error.asp")
end if
conn.Close()
Set conn = Nothing
end if
%>
PAGE
3
当前时间：<%=Now()%> |
欢迎使用毕业设计选题系统。学生、教师、管理员请使用不同入口进行登录。 |
当前时间：<%=Now()%> |
<%
Dim TEAM
Function gen_key(digits)
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
randomize
do while len(output) < digits
num = char_array(Int((9 - 0 + 1) * Rnd + 0))
output = output + num
loop
gen_key = output
End Function
Do
TEAM = gen_key(4)
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.teacher where tea_group='"&TEAM&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
Loop While not(conn.eof or conn.bof)
conn.Close()
Set conn = Nothing
%>
添加教师小组 注：带 * 号的项目必须填写 |
<%
Dim TEAM
Dim UID1
Dim PWD1
Dim UID2
Dim PWD2
TEAM = Request.Form("textfield1")
UID1 = Request.Form("textfield2")
PWD1 = Request.Form("textfield3")
UID2 = Request.Form("textfield4")
PWD2 = Request.Form("textfield5")
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.teacher where tea_group='"&TEAM&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
If not(conn.eof or conn.bof) Then
conn.Close()
Set conn = Nothing
response.write" 添加失败 小组 "&TEAM&" 已经被注册  点击此处返回首页"
Else
Set conn = Nothing
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "dbo.teacher"
conn2.CursorType = 1
conn2.LockType = 3
conn2.Open()
conn2.addnew
conn2("tea_name") = UID1
conn2("tea_pass") = PWD1
conn2("tea_lv") = "2"
conn2("tea_group") = TEAM
conn2.update
conn2.Close()
Set conn3 = Nothing
Dim conn3
Set conn3=Server.CreateObject("ADODB.RecordSet")
conn3.ActiveConnection = "DSN=hw;User ID=sa"
conn3.Source = "dbo.teacher"
conn3.CursorType = 1
conn3.LockType = 3
conn3.Open()
conn3.addnew
conn3("tea_name") = UID2
conn3("tea_pass") = PWD2
conn3("tea_lv") = "1"
conn3("tea_group") = TEAM
conn3.update
conn3.Close()
Set conn2 = Nothing
response.write"添加成功 教师 "&UID1&" 和 "&UID2&" 添加成功 点击刷新注册教师列"
End If
%>
|
<%
Dim TYP
TYP = Request.QueryString("type")
Dim ID
ID = Request.QueryString("id")
If TYP = "teacher" Then
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.teacher where tea_id='"&ID&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
%>
正在修改 <% Response.Write(conn("tea_name")) %> 的信息
" <%If (Not isNull(conn2("stu_speciality"))) Then If ("通信工程" = CStr(conn2("stu_speciality"))) Then Response.Write("selected=""selected""") : Response.Write("")%>>通信工程
注：带 * 号的项目必须填写 <% conn.Close() Set conn = Nothing End If %> <% If TYP = "student" Then Dim conn2 Set conn2=Server.CreateObject("ADODB.RecordSet") conn2.ActiveConnection = "DSN=hw;User ID=sa" conn2.Source = "select * from dbo.student where stu_id='"&ID&"'" conn2.CursorType = 0 conn2.LockType = 1 conn2.Open() %> 正在修改 <% Response.Write(conn2("stu_name")) %> 的信息至多20个字符 至多20个字符 至多9个字符 输入密码 注：带 * 号的项目必须填写 <% conn2.Close() Set conn2 = Nothing End If %> |
<%
Dim TYP
TYP = Request.QueryString("type")
Dim ID
ID = Request.QueryString("id")
If TYP = "teacher" Then
Dim UNM
Dim TEL
Dim EML
Dim PWD
UNM = Request.Form("textfield2")
TEL = Request.Form("textfield3")
EML = Request.Form("textfield4")
PWD = Request.Form("textfield5")
%>
<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "update dbo.teacher set tea_name='"&UNM&"',tea_tel='"&TEL&"',tea_email='"&EML&"',tea_pass='"&PWD&"' where tea_id='"&ID&"'"
conn.CursorType = 1
conn.LockType = 3
conn.Open()
%>
教师信息修改成功， 点击这里返回教师列表
<%
End If
If TYP = "student" Then
Dim UNM
Dim SEX
Dim SPE
Dim CLA
Dim TEL
Dim EML
Dim QQ
Dim PWD
UNM = Request.Form("textfield2")
SEX = Request.Form("select1")
SPE = Request.Form("select2")
CLA = Request.Form("select3")
TEL = Request.Form("textfield3")
EML = Request.Form("textfield4")
QQ = Request.Form("textfield5")
PWD = Request.Form("textfield6")
%>
<%
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "update dbo.student set stu_name='"&UNM&"',stu_sex='"&SEX&"',stu_speciality='"&SPE&"',stu_class='"&CLA&"',stu_tel='"&TEL&"',stu_email='"&EML&"',stu_qq='"&QQ&"',stu_pass='"&PWD&"' where stu_id='"&id&"'"
conn2.CursorType = 1
conn2.LockType = 3
conn2.Open()
set conn2=Nothing
%>
学生信息修改成功， 点击这里返回学生列表
|
<%
Dim AID
AID = Request.QueryString("id")
If session("admin")="admin" or session("admin")<>"'"&AID&"'" Then
Dim ID
ID = Request.QueryString("id")
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.admin where admin_name='"&ID&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
Response.Write("管理员 "+ID+" 当前密码为：")
Response.Write(conn("admin_pass"))
%>
<%
conn.Close()
Set conn = Nothing
End If
%>
|
<%
Dim AID
Dim PWD
AID = Request.Form("hiddenField")
PWD = Request.Form("textfield")
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "update dbo.admin set admin_pass='"&PWD&"' where admin_name='"&AID&"'"
conn.CursorType = 1
conn.LockType = 3
conn.Open()
set conn=Nothing
%>
已经将管理员 <% Response.Write(AID) %> 的密码设置为 <% Response.Write(PWD) %> 返回管理员信息页面
|
<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.teacher where tea_id='"&session("teacher")&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
%>
正在修改 <% Response.Write(conn("tea_name")) %> 的信息
注：带 * 号的项目必须填写 <% conn.Close() Set conn = Nothing %> |
<%
Dim UNM
Dim TEL
Dim EML
Dim PWD
UNM = Request.Form("textfield2")
TEL = Request.Form("textfield3")
EML = Request.Form("textfield4")
PWD = Request.Form("textfield5")
%>
<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.teacher where tea_id='"&session("teacher")&"'"
conn.CursorType = 1
conn.LockType = 3
conn.Open()
%>
<%
If conn("tea_pass")=PWD Then
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "update dbo.teacher set tea_name='"&UNM&"',tea_tel='"&TEL&"',tea_email='"&EML&"' where tea_id='"&session("teacher")&"'"
conn2.CursorType = 1
conn2.LockType = 3
conn2.Open()
set conn2=Nothing
%>
用户信息修改成功，点击这里刷新用户信息
<%
Else
%>
密码输入错误 返回重新输入 如果当前用户不是您，请不要试图修改他人信息 <% End If %> <% conn.Close() Set conn = Nothing %> |
<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.teacher where tea_id='"&session("teacher")&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
%>
正在修改 <% Response.Write(conn("tea_name")) %> 的登录密码 <% conn.Close() Set conn = Nothing %> |
<%
Dim PWD1
Dim PWD2
PWD1 = Request.Form("textfield1")
PWD2 = Request.Form("textfield2")
%>
<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.teacher where tea_id='"&session("teacher")&"'"
conn.CursorType = 1
conn.LockType = 3
conn.Open()
%>
<%
If conn("tea_pass")=PWD1 then
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "update dbo.teacher set tea_pass='"&PWD2&"' where tea_id='"&session("teacher")&"'"
conn2.CursorType = 1
conn2.LockType = 3
conn2.Open()
set conn2=Nothing
%>
密码修改成功 重新登录 <% Else %> 原密码输入错误 返回重新输入 如果当前用户不是您，请不要试图修改他人密码 <% End If conn.Close() Set conn = Nothing %> |
<%
Dim PWD1
Dim PWD2
PWD1 = Request.Form("textfield1")
PWD2 = Request.Form("textfield2")
%>
<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.teacher where tea_id='"&session("teacher")&"'"
conn.CursorType = 1
conn.LockType = 3
conn.Open()
%>
<%
If conn("tea_pass")=PWD1 then
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "update dbo.teacher set tea_pass='"&PWD2&"' where tea_id='"&session("teacher")&"'"
conn2.CursorType = 1
conn2.LockType = 3
conn2.Open()
set conn2=Nothing
%>
密码修改成功 重新登录 <% Else %> 原密码输入错误 返回重新输入 如果当前用户不是您，请不要试图修改他人密码 <% End If conn.Close() Set conn = Nothing %> |
帮助信息
|
选择本组题目的学生详细信息
|
<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.student where stu_id='"&session("student")&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
%>
正在修改 <% Response.Write(conn("stu_name")) %>
的信息
注：带 * 号的项目必须填写 <% conn.Close() Set conn = Nothing %> |
<%
Dim UNM
Dim SEX
Dim SPE
Dim CLA
Dim TEL
Dim EML
Dim QQ
Dim PWD
UNM = Request.Form("textfield2")
SEX = Request.Form("select1")
SPE = Request.Form("select2")
CLA = Request.Form("select3")
TEL = Request.Form("textfield3")
EML = Request.Form("textfield4")
QQ = Request.Form("textfield5")
PWD = Request.Form("textfield6")
%>
<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.student where stu_id='"&session("student")&"'"
conn.CursorType = 1
conn.LockType = 3
conn.Open()
%>
<%
If conn("stu_pass")=PWD Then
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "update dbo.student set stu_name='"&UNM&"',stu_sex='"&SEX&"',stu_speciality='"&SPE&"',stu_class='"&CLA&"',stu_tel='"&TEL&"',stu_email='"&EML&"',stu_qq='"&QQ&"' where stu_id='"&session("student")&"'"
conn2.CursorType = 1
conn2.LockType = 3
conn2.Open()
set conn2=Nothing
%>
用户信息修改成功， 重新登录
<%
Else
%>
密码输入错误 返回重新输入如果当前用户不是您，请不要试图修改他人信息 <% End If %> <% conn.Close() Set conn = Nothing %> |
<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.student where stu_id='"&session("student")&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
%>
正在修改 <% Response.Write(conn("stu_name")) %> 的登录密码 <% conn.Close() Set conn = Nothing %> |
<%
Dim PWD1
Dim PWD2
PWD1 = Request.Form("textfield1")
PWD2 = Request.Form("textfield2")
%>
<%
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.student where stu_id='"&session("student")&"'"
conn.CursorType = 1
conn.LockType = 3
conn.Open()
%>
<%
If conn("stu_pass")=PWD1 then
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "update dbo.student set stu_pass='"&PWD2&"' where stu_id='"&session("student")&"'"
conn2.CursorType = 1
conn2.LockType = 3
conn2.Open()
set conn2=Nothing
%>
密码修改成功 重新登录
<%
Else
%>
原密码输入错误 返回重新输入如果当前用户不是您，请不要试图修改他人密码 <% End If conn.Close() Set conn = Nothing %> |
<%
Dim PWD
Dim ID
PWD = Request.Form("textfield1")
ID = Request.Form("hiddenField1")
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.student where stu_id='"&session("student")&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
if conn("stu_pass")=PWD then
if conn("stu_works")="0" then
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "select * from dbo.works where works_id='"&ID&"'"
conn2.CursorType = 0
conn2.LockType = 1
conn2.Open()
if conn2("works_state") = 2 then
conn2.close()
conn2.Source = "update dbo.works set works_state= 3 where works_id='"&ID&"'"
conn2.CursorType = 1
conn2.LockType = 3
conn2.Open()
conn.close()
conn.Source = "update dbo.student set stu_works='"&ID&"' where stu_id='"&session("student")&"'"
conn.CursorType = 1
conn.LockType = 3
conn.Open()
Response.Write("选题成功，点击这里刷新您的信息")
else
Response.Write("此课题已经被选报，您无法选报这个题目，点击此处浏览所有可选课题")
end if
Set conn2 = Nothing
else
Response.Write("您已经选报过题目，若要重新选题，请先放弃您原来选报的题目 点击这里刷新您的信息") end if else Response.Write("密码输入错误，请返回重新输入 如果当前用户不是您，请勿为别人选题，请关闭浏览器重新登录") end if Set conn = Nothing %> |
可选课题列表
|
/
本文档为【计算机科学与技术专业毕业设计+论文+光盘毕业设计代码】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
相关资料
热门搜索
- 初中地理总复习资料
- 2019-2020年最新中考语文(四川省)习题课件、考点跟踪突破5_句子的衔接、排序与仿写
- 历史教学八法
- 消防画线
- 宾语部分
- 湘劳社政字[2006]10号
- 前钢板弹簧吊耳机械加工工艺过程卡片
- 培训台账记录表
- 初中考卷作文纸A3
- 2018年老年人培训会议记录
- 特别的一天_叙事作文
- 光纤的结构与分类
- 北京市昌平区市级名校2022-2023学年生物高一下期末检测模拟试题含解析
- 传统的仓储业与现代仓储业的主要区别
- 初中地理总复习资料
- 2019-2020年最新中考语文(四川省)习题课件、考点跟踪突破5_句子的衔接、排序与仿写
- 历史教学八法
- 消防画线
- 宾语部分
- 湘劳社政字[2006]10号
- 前钢板弹簧吊耳机械加工工艺过程卡片
- 培训台账记录表
- 初中考卷作文纸A3
- 2018年老年人培训会议记录
- 特别的一天_叙事作文
- 光纤的结构与分类
- 北京市昌平区市级名校2022-2023学年生物高一下期末检测模拟试题含解析
- 传统的仓储业与现代仓储业的主要区别
你可能还喜欢
浙公网安备 33021202002483