📄 subjectadd.asp
字号:
<!--#include file="adovbs.inc" -->
<!--#include file="admin_conn.asp"-->
<html>
<head>
<script language="javascript">
<!--
function check() {
if (document.SubjectAdd.subjectID.value =="" ){
window.alert("请输入课程编号！");
document.SubjectAdd.subjectID.focus();
return false;
}
if (document.SubjectAdd.subjectName.value =="" ){
window.alert("请输入课程名称！");
document.SubjectAdd.subjectName.focus();
return false;
}
}
-->
</script>
</head>
<body background="EA51007.jpg">
<P align="center"><STRONG><FONT face="华文彩云" size=6 color=darkred>课程设置</FONT></STRONG></P>
<%
const N=3
set rs2=server.CreateObject("adodb.recordset")
set myrs=server.CreateObject("adodb.recordset")
set myrs2=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
rs1.PageSize=N
rs1.Open "select * from course ORDER BY 课程编号",conn,adOpenStatic
rs2.Open "select * from term",conn,adOpenStatic
pageth=Request.QueryString("pageth")
'判断页数是否为空
if pageth="" then pageth="1"
'判断页数是否为数字
if not IsNumeric(pageth) then pageth="1"
'判断数字是否大于总页数
pageth=cint(pageth)
if pageth>rs1.PageCount then pageth=rs1.PageCount
rs1.AbsolutePage=pageth
Err.Clear
on error resume next
if (Err.number<>0) then
Response.Write"Error:"+ Err.Description
end if
%>
<table align=center border=1 cellpadding=0 cellspacing=0 width="80%">
<tr><td colspan="3">共有 <%=rs1.RecordCount%> 条记录,每页 <%=N%> 条，共 <%=rs1.PageCount%> 页，当前是第 <%=rs1.AbsolutePage%> 页</td></tr>
<tr align=middle>
<td width="10%"><b>课程编号</b></td>
<td width="40%"><b>课程名称</b></td>
<td width="20%"><b>学期</b></td>
</tr>
<%
for i=1 to N
%>
<tr align=middle>
<td><%=rs1(0)%></td>
<td><%=rs1(1)%></td>
<td><%=rs1(2)%></td>
</tr>
<%
rs1.MoveNext
if rs1.EOF then exit for '避免存在半页时循环出现问题；
next
pagepre=pageth-1
pagenext=pageth+1
if pagepre<1 then pagepre=1
if pagenext>rs1.PageCount then pagenext=rs1.PageCount
%>
<tr>
<td colspan=3>
<form action="SubjectAdd.asp" method="get" id=form1 name=form1>
<%
'如果当前页不是第一页，则显示;
if pageth<>1 then
%>
<A href="SubjectAdd.asp?pageth=1">第一页</a> |
<A href="SubjectAdd.asp?pageth=<%=pagepre%>">上一页</a> |
<%
end if
'如果当前页不是最后一页，则显示;
if pageth<>rs1.PageCount then
%>
<A href="SubjectAdd.asp?pageth=<%=pagenext%>">下一页</a>
<A href="SubjectAdd.asp?pageth=<%=rs1.PageCount%>">最后一页</a> |
<%
end if
%>
转向第<input name="pageth" size=2>页
<input type="submit" value=" GO " id=submit1 name=submit1>
</form>
<%
rs1.Close
set rs1=nothing
%>
</td>
</tr>
</table>
<%
dim trem1,subjectID1,subjectName1,sqlstring,sql1
%>
<form name=SubjectAdd method=post action="SubjectAdd.asp" onSubmit="return check()">
<input type="hidden" name="trans" value=add>
<table border=1 align=center cellpadding=0 cellspacing=0 width="80%">
<tr align=middle>
<td width="10%"><b>课程编号</b></td>
<td width="40%"><b>课程名称</b></td>
<td width="20%"><b>学期</b></td>
</tr>
<%
if Request.Form("trans")="add" then
subjectID1=trim(Request.Form("subjectID"))
subjectName1=trim(Request.Form("subjectName"))
trem1=Request.Form("SubjectTrem")
myrs2.Open "select count(*) from course where 课程名称='" & subjectName1 & "'",conn,adOpenStatic
sqlstring="select * from course where 课程编号=" & subjectID1 & ""
%>
<%
if isNumeric(subjectID1) then '判断subjectID是否是数字
myrs.Open sqlstring,conn,adOpenStatic
if subjectName1="" then
%>
<script language="javascript">
<!--
window.alert("请输入课程名称！");
document.SubjectAdd.subjectName.focus();
-->
</script>
<%
else
if myrs2(0)>0 then '检查“课程名称”是否有重复
subjectName1=""
%>
<script language="javascript">
<!--
window.alert("课程名称重复,请重新输入！！");
document.SubjectAdd.subjectName.focus();
-->
</script>
<%
else
if not myrs.EOF then '检查“课程编号”是否有重复
%>
<script language="javascript">
<!--
window.alert("课程编号重复");
document.SubjectAdd.subjectID.focus();
-->
</script>
<%
else
sql1="insert into course (课程编号,课程名称,学期)"
sql1=sql1 & "values(" & subjectID1 & ",'"& subjectName1 &"','"& trem1 &"' )"
conn.Execute(sql1)
%>
<script language="javascript">
<!--
window.alert("已存入数据库。");
-->
</script>
<%
subjectName1=""
subjectID1=""
end if
end if
end if
myrs.Close
else
%>
<script language="javascript">
<!--
window.alert("课程编号必须是数字,请重新输入！");
document.SubjectAdd.subjectID.focus();
-->
</script>
<%
end if
myrs2.Close
end if
%>
<tr align=center>
<td><input name=subjectID style="WIDTH: 71px; HEIGHT: 22px" size=8 value=<% =subjectID1 %> ></td>
<td><input name=subjectName style="WIDTH: 304px; HEIGHT: 22px" size=39 value=<% =subjectName1 %> ></td>
<td ><SELECT style="WIDTH: 123px" name=SubjectTrem>
<%
while not rs2.EOF
%>
<OPTION value=<% =rs2.Fields("学期名称") %>> <% = rs2.Fields("学期名称") %> </OPTION>
<%
rs2.MoveNext
wend
%>
</SELECT></td>
</tr>
<tr>
<td colspan=3 align=right>
<input type=submit value=" 添加 " id=submit2 name=submit2>
<input type=reset value=" 重填 " id=reset1 name=reset1 >
</td>
</tr>
</table>
</form>
<%
rs2.Close
%>
<%
conn.Close
set conn=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -