📄 addsuject.asp
字号:
<style type="text/css">
<!--
body {
background-color: #B1DB99;
}
body,td,th {
font-size: 12px;
}
-->
</style><!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
Dim strName ,strSynopsis
strName = trim(Request.Form("name"))
strSynopsis = trim(Request.Form("Synopsis"))
Dim rs ,strSql
Set rs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT * FROM Suject WHERE name = '"& strName &"'"
rs.open strSql,conn,1,1
If Not rs.EOF Then
Response.Write("<Br><Br>对不起,您不能添加该课程信息,因该课程已经存在已经存在!")
Response.End
End If
rs.Close
strSql = "INSERT INTO Suject (name,Synopsis) Values('"& strName &"','"& strSynopsis &"')"
rs.open strSql,conn,3,1
Response.Write("<BR><BR><BR><Div align=center>添加成功!<Br><BR><a href=Add_Suject.asp>返回继续添加</a></div>")
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -