insertcourse.asp
来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 47 行
ASP
47 行
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="adovbs.inc"-->
<!--#include file=connection.asp -->
<%
CoursenoExit=0
Courseno=CStr(Request.Form("TxtCourseno"))
Credit=Request.Form("selCredit")
Name=Request.Form("TxtName")
Description=Request.Form("TxtDescription")
MaximumNum=Request.Form("TxtMaximumNum")
Teacherno=Request.Form("selTeacherno")
Set rsTest=Server.CreateObject("ADODB.RecordSet")
rsTest.Open "Course",Conn,adOpenkeySet,adLockOptimistic
Do While Not rsTest.EOF
If rsTest("Courseno").Value=Courseno Then
CoursenoExit=1
End If
rsTest.MoveNext
Loop
If CoursenoExit=0 Then
rsTest.AddNew
rsTest("Courseno")=Courseno
rsTest("Credit")=Credit
rsTest("Name")=Name
rsTest("Description")=Description
rsTest("MaximumNum")=MaximumNum
rsTest("Teacherno")=Teacherno
rsTest.Update
rsTest.Close
Else
Response.Redirect "CoursenoExit.asp"
End If
Conn.Close
Set rsTest=Nothing
Set Conn=Nothing
%>
<html>
<body>
<div align="center">
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p><font color="#FF0000" size="+7" face="华文新魏">新输入的课程信息已保存！</font></p>
<p align="center"><a href="main.asp">返回</a></p>
</div>
</body>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?