save.asp

很好的一个学生成绩管理系统

<!--#include file="conn.asp"-->
<%
dim cj
dim cx
dim pl
dim jg
dim mc
dim dh
cj=request.form("cj")
cx=request.form("cx")
pl=request.form("pl")
jg=request.form("jg")
mc=request.form("mc")
dh=request.form("dh")

if trim(request.form("cj"))="" then
   cj="空"
else
   cj=request.form("cj")
end if

if trim(request.form("cx"))="" then
   cx="空"
else
   cx=request.form("cx")
end if

if trim(request.form("pl"))="" then
   pl="空"
else
   pl=request.form("pl")
end if

if trim(request.form("jg"))="" then
   jg="空"
else
   jg=request.form("jg")
end if

if trim(request.form("mc"))="" then
   mc="暂缺"
else
   mc=request.form("mc")
end if

if trim(request.form("dh"))="" then
   dh="暂缺"
else
   dh=request.form("dh")
end if
id=request("id")
%>
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("hljcar.com.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM c1 where id="&id
rs.Open sql,conn,3,2
rs("cj")=cj
rs("cx")=cx
rs("pl")=pl
rs("jg")=jg
rs("mc")=mc
rs("dh")=dh
rs.update
rs.close

conn.close
set conn=nothing         
%>
<table border="0" cellspacing="0" width="100%" cellpadding="0">
   <tr>
      
    <td width="100%"  height="250" valign="middle" align="center"><font color="#000000"><b>恭喜您，您的资料已修改成功！</b></font> 
      <a href="admin.asp">返回</a></td>
   </tr>
</table>