addxueok.asp

来自「北京市公交车查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar」· ASP 代码 · 共 41 行

<!--#include file="conn.asp"-->
<%
dim xueqi
xueqi=request.form("xueqi")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from xueqi where xueqi='"&xueqi&"'"
rs.open sql,conn,3,2
if not rs.eof then
response.write"对不起,此课程已经存在"
else

if trim(request.form("xueqi"))="" then
   xueqi="没有命名"
else
   xueqi=request.form("xueqi")
end if

%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM xueqi" 
rs.Open sql,conn,3,2
rs.addnew
rs("xueqi")=xueqi
rs.update
rs.close

conn.close
set conn=nothing %>
<script language="JavaScript">        
alert("\恭喜您,成功添加新学期!!")

</script>
<%end if%>
<table border="0" cellspacing="0" width="100%" cellpadding="0">
   <tr>
      
    <td width="100%"  height="250" valign="middle" align="center"><a href="addxue.asp">返回</a></td>
   </tr>
</table>