xuemanageok.asp

查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar] - 网上成绩查询系统 把学生姓名成绩输入数据库...[

<!--#include file="conn.asp"-->
<%
xueqi1=request("xueqi1")
xueqi=request.form("xueqi")
if trim(request.form("xueqi"))="" then
   xueqi="没有命名"
else
   xueqi=request.form("xueqi")
end if
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from xueqi where xueqi='"&xueqi1&"'"
rs.open sql,conn,3,2
rs("xueqi")=xueqi
rs.update
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from c1 where xueqi='"&xueqi1&"'"
rs.open sql,conn,3,2
if not rs.eof then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="update c1 set xueqi='"&xueqi&"' where xueqi='"&xueqi1&"'"
conn.execute sql 
end if
%>
<script language="JavaScript">        
alert("\恭喜您,成功修改课程信息!!")

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